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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20PT4 3725 printed Nov 22, 2024@17:15:18 Page 2
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