- IB20PT4 ;ALB/CPM - List Template Exporter ; 21-MAR-1994
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- W !!,">>> Installing List Templates...",!
- W !,"'IB CHARGES' List Template..."
- S DA=$O(^SD(409.61,"B","IB CHARGES",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IB CHARGES" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="IB CHARGES^1^1^80^5^14^1^1^Charge^IBACM1 MENU^Charges^1^32"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACM"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
- .S ^SD(409.61,VALM,"COL",1,0)="CHARGE^71^9^Charge"
- .S ^SD(409.61,VALM,"COL",2,0)="FDATE^4^9^Bill From"
- .S ^SD(409.61,VALM,"COL",3,0)="ENTRY^25^23^Charge Type"
- .S ^SD(409.61,VALM,"COL",4,0)="STATUS^57^12^Status"
- .S ^SD(409.61,VALM,"COL",5,0)="CHG#^1^3"
- .S ^SD(409.61,VALM,"COL",6,0)="BILL#^49^6^Bill #"
- .S ^SD(409.61,VALM,"COL",7,0)="TDATE^15^8^Bill To"
- .S ^SD(409.61,VALM,"FNL")="D FNL^IBECEA"
- .S ^SD(409.61,VALM,"HDR")="D HDR^IBECEA"
- .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
- .S ^SD(409.61,VALM,"INIT")="D INIT^IBECEA"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'IB EVENTS' List Template..."
- S DA=$O(^SD(409.61,"B","IB EVENTS",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IB EVENTS" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="IB EVENTS^1^^80^5^14^1^1^Event^IBACME EVENT MENU^Update Events^1^^1"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACME"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
- .S ^SD(409.61,VALM,"COL",1,0)="TYPE^4^18^Event Type"
- .S ^SD(409.61,VALM,"COL",2,0)="WARD^24^20^Ward"
- .S ^SD(409.61,VALM,"COL",3,0)="EDATE^48^10^Event Date"
- .S ^SD(409.61,VALM,"COL",4,0)="STATUS^60^7^Status"
- .S ^SD(409.61,VALM,"COL",5,0)="LCALC^69^10^Last Calc"
- .S ^SD(409.61,VALM,"FNL")="D EXIT^IBECEA5"
- .S ^SD(409.61,VALM,"HDR")="D HDR^IBECEA5"
- .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
- .S ^SD(409.61,VALM,"INIT")="D INIT^IBECEA5"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'IBCNS ANNUAL BENEFITS' List Template..."
- S DA=$O(^SD(409.61,"B","IBCNS ANNUAL BENEFITS",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBCNS ANNUAL BENEFITS" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="IBCNS ANNUAL BENEFITS^1^^98^5^18^1^1^Annual Benefits^IBCNSA ANNUAL BENEFITS^Annual Benefits Editor^1^^1"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBCNSA"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
- .S ^SD(409.61,VALM,"FNL")="D EXIT^IBCNSA K IBL"
- .S ^SD(409.61,VALM,"HDR")="D HDR^IBCNSA(""Annual Benefits"")"
- .S ^SD(409.61,VALM,"HLP")="D HELP^IBCNSA"
- .S ^SD(409.61,VALM,"INIT")="S IBL=1 D INIT^IBCNSA"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'IBCNS BENEFITS USED BY DATE' List Template..."
- S DA=$O(^SD(409.61,"B","IBCNS BENEFITS USED BY DATE",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBCNS BENEFITS USED BY DATE" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="IBCNS BENEFITS USED BY DATE^1^^98^5^18^1^1^Benefits Used by Date^IBCNSD BENEFITS USED BY DATE^Benefits Used By Date Editor^1^^1"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBCNSD"",$J)"
- .S ^SD(409.61,VALM,"FNL")="D EXIT^IBCNSD"
- .S ^SD(409.61,VALM,"HDR")="D HDR^IBCNSA(""Benefits Used"")"
- .S ^SD(409.61,VALM,"HLP")=""
- .S ^SD(409.61,VALM,"INIT")="D INIT^IBCNSD"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- G ^IB20PT41
- IB20PT4 ;ALB/CPM - List Template Exporter ; 21-MAR-1994
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 WRITE !!,">>> Installing List Templates...",!
- +3 WRITE !,"'IB CHARGES' List Template..."
- +4 SET DA=$ORDER(^SD(409.61,"B","IB CHARGES",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +5 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="IB CHARGES"
- DO FILE^DICN
- SET VALM=+Y
- +6 IF VALM>0
- Begin DoDot:1
- +7 SET ^SD(409.61,VALM,0)="IB CHARGES^1^1^80^5^14^1^1^Charge^IBACM1 MENU^Charges^1^32"
- +8 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +9 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACM"",$J)"
- +10 SET ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
- +11 SET ^SD(409.61,VALM,"COL",1,0)="CHARGE^71^9^Charge"
- +12 SET ^SD(409.61,VALM,"COL",2,0)="FDATE^4^9^Bill From"
- +13 SET ^SD(409.61,VALM,"COL",3,0)="ENTRY^25^23^Charge Type"
- +14 SET ^SD(409.61,VALM,"COL",4,0)="STATUS^57^12^Status"
- +15 SET ^SD(409.61,VALM,"COL",5,0)="CHG#^1^3"
- +16 SET ^SD(409.61,VALM,"COL",6,0)="BILL#^49^6^Bill #"
- +17 SET ^SD(409.61,VALM,"COL",7,0)="TDATE^15^8^Bill To"
- +18 SET ^SD(409.61,VALM,"FNL")="D FNL^IBECEA"
- +19 SET ^SD(409.61,VALM,"HDR")="D HDR^IBECEA"
- +20 SET ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
- +21 SET ^SD(409.61,VALM,"INIT")="D INIT^IBECEA"
- +22 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +23 WRITE "Filed."
- End DoDot:1
- +24 ;
- +25 WRITE !,"'IB EVENTS' List Template..."
- +26 SET DA=$ORDER(^SD(409.61,"B","IB EVENTS",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +27 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="IB EVENTS"
- DO FILE^DICN
- SET VALM=+Y
- +28 IF VALM>0
- Begin DoDot:1
- +29 SET ^SD(409.61,VALM,0)="IB EVENTS^1^^80^5^14^1^1^Event^IBACME EVENT MENU^Update Events^1^^1"
- +30 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +31 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACME"",$J)"
- +32 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
- +33 SET ^SD(409.61,VALM,"COL",1,0)="TYPE^4^18^Event Type"
- +34 SET ^SD(409.61,VALM,"COL",2,0)="WARD^24^20^Ward"
- +35 SET ^SD(409.61,VALM,"COL",3,0)="EDATE^48^10^Event Date"
- +36 SET ^SD(409.61,VALM,"COL",4,0)="STATUS^60^7^Status"
- +37 SET ^SD(409.61,VALM,"COL",5,0)="LCALC^69^10^Last Calc"
- +38 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBECEA5"
- +39 SET ^SD(409.61,VALM,"HDR")="D HDR^IBECEA5"
- +40 SET ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
- +41 SET ^SD(409.61,VALM,"INIT")="D INIT^IBECEA5"
- +42 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +43 WRITE "Filed."
- End DoDot:1
- +44 ;
- +45 WRITE !,"'IBCNS ANNUAL BENEFITS' List Template..."
- +46 SET DA=$ORDER(^SD(409.61,"B","IBCNS ANNUAL BENEFITS",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +47 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="IBCNS ANNUAL BENEFITS"
- DO FILE^DICN
- SET VALM=+Y
- +48 IF VALM>0
- Begin DoDot:1
- +49 SET ^SD(409.61,VALM,0)="IBCNS ANNUAL BENEFITS^1^^98^5^18^1^1^Annual Benefits^IBCNSA ANNUAL BENEFITS^Annual Benefits Editor^1^^1"
- +50 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +51 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBCNSA"",$J)"
- +52 SET ^SD(409.61,VALM,"COL",0)="^409.621^^0"
- +53 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBCNSA K IBL"
- +54 SET ^SD(409.61,VALM,"HDR")="D HDR^IBCNSA(""Annual Benefits"")"
- +55 SET ^SD(409.61,VALM,"HLP")="D HELP^IBCNSA"
- +56 SET ^SD(409.61,VALM,"INIT")="S IBL=1 D INIT^IBCNSA"
- +57 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +58 WRITE "Filed."
- End DoDot:1
- +59 ;
- +60 WRITE !,"'IBCNS BENEFITS USED BY DATE' List Template..."
- +61 SET DA=$ORDER(^SD(409.61,"B","IBCNS BENEFITS USED BY DATE",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +62 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="IBCNS BENEFITS USED BY DATE"
- DO FILE^DICN
- SET VALM=+Y
- +63 IF VALM>0
- Begin DoDot:1
- +64 SET ^SD(409.61,VALM,0)="IBCNS BENEFITS USED BY DATE^1^^98^5^18^1^1^Benefits Used by Date^IBCNSD BENEFITS USED BY DATE^Benefits Used By Date Editor^1^^1"
- +65 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +66 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBCNSD"",$J)"
- +67 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBCNSD"
- +68 SET ^SD(409.61,VALM,"HDR")="D HDR^IBCNSA(""Benefits Used"")"
- +69 SET ^SD(409.61,VALM,"HLP")=""
- +70 SET ^SD(409.61,VALM,"INIT")="D INIT^IBCNSD"
- +71 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +72 WRITE "Filed."
- End DoDot:1
- +73 ;
- +74 GOTO ^IB20PT41
