MEDITECH.CUST.RPTS^Hallmark Health System^HHS^HHS.LIVE.MIS^IATRIC^20170907^AA^ @@VERSION:1 BAR.PAT.zcus.is.id.demo @@PROC BAR.PAT.zcus.is.id.demo BAR.PATzcus.is.id.demoUYY@InquiryY @@MACRO BAR.PAT.zcus.is.id.demo.M.id 0 BAR.CLAIM.MAP.c.mnemonic^BAR.CLAIM.MAP.mnemonic, 1 DO{@Next(BAR.CLAIM.MAP.map.from) 1, 2 {"Y",@BAR.CLAIM.MAP.map.to}^/DICT[BAR.CLAIM.MAP.map.from]}, 3 %Z.id.dict.color(^/DICT,A,"Map From":12L_("Mapped To":30L),"CD:12L_/DICT[CD]|1","AR","Claim Form Mappings"); 4 5 DOCUMENTATION 6 ;//:Doc Features Affected 7 ;// UI Tools {Lookups} 8 ;//:Doc Purpose 9 ;// Lookup for dictionaries 10 ;//:Doc Arguments 11 ;// A = Name of dictionary 12 ;// B = Default value 13 ;// C = String used as heading for multiple page terminals 14 ;// D = MAGIC string which is evaluated for display of 15 ;// E = 2 character string which determines lookup processing 16 ;// 1st char: 17 ;// "B" - accept active or inactive entries 18 ;// "A" - accept active entries only 19 ;// 20 ;// 2nd char: 21 ;// "M" - accept new elements with prompt 22 ;// "A" - accept new elements with no prompt 23 ;// "R" - reject new entries with message/beep 24 ;// F = String used as lookup heading. Defaults to LOOKUP. @@RPT Yzcus.is.id.demoBAR.PATmainID DemoREG129266066bar.acctNNNYNbar.acct.adm.ser.date.index011Y AT 1184071354 IATRICE CI F1 numbernumber12L F2 namename30L F3 xx.claim.value xx.claim.v2L F3CDAT FREE F3CJFY L F3CLEN 10 F3CVAL c.xx.claim.value F3SE4 IGc.xx.claim.value Claim Value FS1 bar.adm.ser FS1SE1 GE b.bar.adm.ser FROM DATETODAY-1 FS1SE2 LE e.bar.adm.ser THRU DATETODAY-1 FS2 mnemonic BAR.CLAIM.MAP FS2SE3 IGBAR.CLAIM.MAP.c.mnemonic BAR.CLAIM.MAPFor Claim Map: FI10 121 FI114 302 FI146 103 I1 admission.x L1 D P1 number______ name__________________________ xx.claim.v PHI Y T1 bar.adm.serNONENASC T2 accountNONENASC @@SCRN Yzcus.is.id.demoBAR.PATBAR.PAT.zcus.is.id.demo2NN CS 1185 P1 ID Demo %Z.on.device P1F1 b.bar.adm.ser11134141 P1F1CDFT2 %Z.date.in("T-1") P1F1CID.ARG BR P1F1CIFE 1 P1F1CREQ 1 P1F2 e.bar.adm.ser12134141 P1F2CDFT2 %Z.date.in("T-1") P1F2CID.ARG BR P1F2CIFE 1 P1F2CREQ 1 P1F3 c.mnemonic BAR.CLAIM.MAP141569136913 P1F3CID.ARG BR P1F3CIFE 1 P1F3CREQ 1 P1F4 c.xx.claim.value1612708959 P1F4CDAT FREE P1F4CID %BAR.PAT.zcus.is.id.demo.M.id(A) P1F4CID.ARG BR P1F4CIFE 1 P1F4CLEN 10 P1F4CREQ 1 P1P1 FROM DATE @1 P1P2 THRU DATE @2 P1P3 P1P4 For Claim Map: @3 P1P5 P1P6 Claim Value @4 P1S1 N,1,2,3,4