MEDITECH.CUST.RPTS^Sky Lakes Medical Center^MWM5.64^TEST.5.64.MIS^IATRIC^20130528^A^
@@VERSION:1
ADM.PAT.zcus.is.cross.application.with.fragment
@@PROC
ADM.PAT.zcus.is.cross.application.with.fragment
ADM.PAT'zcus.is.cross.application.with.fragmentUYY @Inquiry Y
@@MACRO
ADM.PAT.zcus.is.cross.application.with.fragment.M.detail
0
@acct.number^BAR.PAT.number,
1
@OPEN.BAR,
2
@CLOSE.BAR
3

4
OPEN.BAR
5
"BAR."_(@.db#"1.")^MIS.APPL.database,
6
$["SEGS"](@MIS.APPL.database.segment,@MIS.APPL.database.directory),
7
O[""](:S,%.BAR.data[@.mis,MIS.APPL.database]),
8
O[""](?S,:),
9
""^BAR.PAT.account,
10
@Next(BAR.PAT.account,@BAR.PAT.number.x),
11
@BAR.PAT.balance^BAL
12

13
CLOSE.BAR
14
C($U,%U,:U,?U)
@@RPT
Y'zcus.is.cross.application.with.fragmentADM.PAT mainCross to Billing from ADmREG1292660 66adm.patient.fileNNNYNadm.pat.room.bed.index 01 1Y 
AT
1049026005
IATRICE
CI
  
F1
name  name30L
F2

xx.balance  
xx.balance R
F2CDAT
SMONEY
F2CJFY
R
F2CLEN
12
F2CVAL
BAL
FI10
301
FI131
122
I1
room.bed.index 
L1
D  
N1
AL D detail
P1
name__________________________ __xx.balance
PHI
Y
T1
facility NONEN   ASC
T2
room NONEN   ASC
T3
bed NONEN   ASC
T4
urn NONEN   ASC
U
1049026580
IATRICTEST.5.64.MIS
@@SCRN
Y'zcus.is.cross.application.with.fragmentADM.PAT/ADM.PAT.zcus.is.cross.application.with.fragment2N     N
CS
4648 
P1
Cross to Billing from ADm%Z.on.device