IBJYL1 ; List Template Exporter ; 04-JAN-1996
;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
W !,"'IBJT AR ACCOUNT PROFILE' List Template..."
S DA=$O(^SD(409.61,"B","IBJT AR ACCOUNT PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR ACCOUNT PROFILE" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBJT AR ACCOUNT PROFILE^1^^80^5^17^1^1^Transaction Profile^IBJT AR ACCOUNT PROFILE MENU^AR Account Profile^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTA"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^6^6"
.S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^3"
.S ^SD(409.61,VALM,"COL",2,0)="TRNUM^4^8"
.S ^SD(409.61,VALM,"COL",3,0)="DATE^14^8"
.S ^SD(409.61,VALM,"COL",4,0)="TRTY^25^30"
.S ^SD(409.61,VALM,"COL",5,0)="TAMT^57^11"
.S ^SD(409.61,VALM,"COL",6,0)="CAMT^69^11"
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTA"
.S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTA"
.S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTA"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTA"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBJT AR COMMENT HISTORY' List Template..."
S DA=$O(^SD(409.61,"B","IBJT AR COMMENT HISTORY",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR COMMENT HISTORY" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBJT AR COMMENT HISTORY^1^^80^5^17^1^1^AR Comments^IBJT AR COMMENT HISTORY MENU^AR Comment History^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTC"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTC"
.S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTC"
.S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTC"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTC"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBJT AR TRANSACTION PROFILE' List Template..."
S DA=$O(^SD(409.61,"B","IBJT AR TRANSACTION PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR TRANSACTION PROFILE" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBJT AR TRANSACTION PROFILE^1^^80^5^21^1^1^AR Transaction Profile^IBJT AR TRANSACTION PROFILE MENU^AR Transaction Profile^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTB"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTB"
.S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTB"
.S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTB"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTB"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBJT BILL CHARGES' List Template..."
S DA=$O(^SD(409.61,"B","IBJT BILL CHARGES",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL CHARGES" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBJT BILL CHARGES^1^^80^5^17^1^1^Bill Charges^IBJT BILL CHARGES MENU^Bill Charges^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBA"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBA"
.S ^SD(409.61,VALM,"HDR")="D HDR^IBJTBA"
.S ^SD(409.61,VALM,"HLP")="D HELP^IBJTBA"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBJTBA"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBJT BILL DX' List Template..."
S DA=$O(^SD(409.61,"B","IBJT BILL DX",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL DX" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBJT BILL DX^1^^80^5^17^1^1^Bill Diagnosis^IBJT BILL DX MENU^Bill Diagnosis^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBB"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBB"
.S ^SD(409.61,VALM,"HDR")="D HDR^IBJTBB"
.S ^SD(409.61,VALM,"HLP")="D HELP^IBJTBB"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBJTBB"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBJT BILL PROCEDURES' List Template..."
S DA=$O(^SD(409.61,"B","IBJT BILL PROCEDURES",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL PROCEDURES" D FILE^DICN S VALM=+Y
G ^IBJYL2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJYL1 4156 printed Nov 22, 2024@17:34:25 Page 2
IBJYL1 ; List Template Exporter ; 04-JAN-1996
+1 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
+2 WRITE !,"'IBJT AR ACCOUNT PROFILE' List Template..."
+3 SET DA=$ORDER(^SD(409.61,"B","IBJT AR ACCOUNT PROFILE",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+4 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBJT AR ACCOUNT PROFILE"
DO FILE^DICN
SET VALM=+Y
+5 IF VALM>0
Begin DoDot:1
+6 SET ^SD(409.61,VALM,0)="IBJT AR ACCOUNT PROFILE^1^^80^5^17^1^1^Transaction Profile^IBJT AR ACCOUNT PROFILE MENU^AR Account Profile^1^^1"
+7 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+8 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTA"",$J)"
+9 SET ^SD(409.61,VALM,"COL",0)="^409.621^6^6"
+10 SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^3"
+11 SET ^SD(409.61,VALM,"COL",2,0)="TRNUM^4^8"
+12 SET ^SD(409.61,VALM,"COL",3,0)="DATE^14^8"
+13 SET ^SD(409.61,VALM,"COL",4,0)="TRTY^25^30"
+14 SET ^SD(409.61,VALM,"COL",5,0)="TAMT^57^11"
+15 SET ^SD(409.61,VALM,"COL",6,0)="CAMT^69^11"
+16 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTA"
+17 SET ^SD(409.61,VALM,"HDR")="D HDR^IBJTTA"
+18 SET ^SD(409.61,VALM,"HLP")="D HELP^IBJTTA"
+19 SET ^SD(409.61,VALM,"INIT")="D INIT^IBJTTA"
+20 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+21 WRITE "Filed."
End DoDot:1
+22 ;
+23 WRITE !,"'IBJT AR COMMENT HISTORY' List Template..."
+24 SET DA=$ORDER(^SD(409.61,"B","IBJT AR COMMENT HISTORY",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+25 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBJT AR COMMENT HISTORY"
DO FILE^DICN
SET VALM=+Y
+26 IF VALM>0
Begin DoDot:1
+27 SET ^SD(409.61,VALM,0)="IBJT AR COMMENT HISTORY^1^^80^5^17^1^1^AR Comments^IBJT AR COMMENT HISTORY MENU^AR Comment History^1^^1"
+28 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+29 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTC"",$J)"
+30 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTC"
+31 SET ^SD(409.61,VALM,"HDR")="D HDR^IBJTTC"
+32 SET ^SD(409.61,VALM,"HLP")="D HELP^IBJTTC"
+33 SET ^SD(409.61,VALM,"INIT")="D INIT^IBJTTC"
+34 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+35 WRITE "Filed."
End DoDot:1
+36 ;
+37 WRITE !,"'IBJT AR TRANSACTION PROFILE' List Template..."
+38 SET DA=$ORDER(^SD(409.61,"B","IBJT AR TRANSACTION PROFILE",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+39 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBJT AR TRANSACTION PROFILE"
DO FILE^DICN
SET VALM=+Y
+40 IF VALM>0
Begin DoDot:1
+41 SET ^SD(409.61,VALM,0)="IBJT AR TRANSACTION PROFILE^1^^80^5^21^1^1^AR Transaction Profile^IBJT AR TRANSACTION PROFILE MENU^AR Transaction Profile^1^^1"
+42 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+43 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTB"",$J)"
+44 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTB"
+45 SET ^SD(409.61,VALM,"HDR")="D HDR^IBJTTB"
+46 SET ^SD(409.61,VALM,"HLP")="D HELP^IBJTTB"
+47 SET ^SD(409.61,VALM,"INIT")="D INIT^IBJTTB"
+48 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+49 WRITE "Filed."
End DoDot:1
+50 ;
+51 WRITE !,"'IBJT BILL CHARGES' List Template..."
+52 SET DA=$ORDER(^SD(409.61,"B","IBJT BILL CHARGES",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+53 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBJT BILL CHARGES"
DO FILE^DICN
SET VALM=+Y
+54 IF VALM>0
Begin DoDot:1
+55 SET ^SD(409.61,VALM,0)="IBJT BILL CHARGES^1^^80^5^17^1^1^Bill Charges^IBJT BILL CHARGES MENU^Bill Charges^1^^1"
+56 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+57 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBA"",$J)"
+58 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBA"
+59 SET ^SD(409.61,VALM,"HDR")="D HDR^IBJTBA"
+60 SET ^SD(409.61,VALM,"HLP")="D HELP^IBJTBA"
+61 SET ^SD(409.61,VALM,"INIT")="D INIT^IBJTBA"
+62 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+63 WRITE "Filed."
End DoDot:1
+64 ;
+65 WRITE !,"'IBJT BILL DX' List Template..."
+66 SET DA=$ORDER(^SD(409.61,"B","IBJT BILL DX",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+67 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBJT BILL DX"
DO FILE^DICN
SET VALM=+Y
+68 IF VALM>0
Begin DoDot:1
+69 SET ^SD(409.61,VALM,0)="IBJT BILL DX^1^^80^5^17^1^1^Bill Diagnosis^IBJT BILL DX MENU^Bill Diagnosis^1^^1"
+70 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+71 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBB"",$J)"
+72 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBB"
+73 SET ^SD(409.61,VALM,"HDR")="D HDR^IBJTBB"
+74 SET ^SD(409.61,VALM,"HLP")="D HELP^IBJTBB"
+75 SET ^SD(409.61,VALM,"INIT")="D INIT^IBJTBB"
+76 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+77 WRITE "Filed."
End DoDot:1
+78 ;
+79 WRITE !,"'IBJT BILL PROCEDURES' List Template..."
+80 SET DA=$ORDER(^SD(409.61,"B","IBJT BILL PROCEDURES",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+81 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBJT BILL PROCEDURES"
DO FILE^DICN
SET VALM=+Y
+82 GOTO ^IBJYL2
