- 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 Mar 13, 2025@21:29:20 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
