IB20PT45 ;ALB/CPM - List Template Exporter ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBDF EDIT TOOL KIT BLOCKS^1^^160^4^20^1^1^TOOL KIT BLOCK^IBDF EDIT TOOL KIT BLOCKS MENU^EDIT TOOL KIT BLOCKS^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
.S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
.S ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
.S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^43^80^BRIEF DESCRIPTION"
.S ^SD(409.61,VALM,"COL",4,0)="TK ORDER^38^4^TK#"
.S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
.S ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBDF FORM BLOCK EDIT' List Template..."
S DA=$O(^SD(409.61,"B","IBDF FORM BLOCK EDIT",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF FORM BLOCK EDIT" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBDF FORM BLOCK EDIT^1^^200^4^18^1^1^FORM BLOCK^IBDF EDIT FORM BLOCK MENU^EDITING A FORM BLOCK^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""FORM BLOCK"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
.S ^SD(409.61,VALM,"COL",1,0)="ROW^1^3^^^1"
.S ^SD(409.61,VALM,"COL",2,0)="BLOCK LEFT SIDE^5^80^123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"
.S ^SD(409.61,VALM,"COL",3,0)="BLOCK RIGHT SIDE^85^80^123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"
.S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF9"
.S ^SD(409.61,VALM,"HDR")="D HDR^IBDF9"
.S ^SD(409.61,VALM,"HLP")="W """""
.S ^SD(409.61,VALM,"INIT")="D INIT^IBDF9"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBDF TOOL KIT BLOCK LIST' List Template..."
S DA=$O(^SD(409.61,"B","IBDF TOOL KIT BLOCK LIST",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF TOOL KIT BLOCK LIST" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBDF TOOL KIT BLOCK LIST^1^^160^4^20^1^1^TOOL KIT BLOCK^IBDF MENU FOR ADDING TOOL KIT BLOCK^LIST OF TOOL KIT BLOCKS^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
.S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
.S ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
.S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^37^80^BRIEF DESCRIPTION"
.S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
.S ^SD(409.61,VALM,"HDR")=""
.S ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBDF TOOL KIT FORMS' List Template..."
S DA=$O(^SD(409.61,"B","IBDF TOOL KIT FORMS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF TOOL KIT FORMS" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBDF TOOL KIT FORMS^1^^123^5^20^1^1^FORM^IBDF TOOL KIT FORMS MENU^LIST OF TOOL KIT FORMS^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""FORM LIST"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
.S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
.S ^SD(409.61,VALM,"COL",2,0)="FORM NAME^6^30^FORM NAME"
.S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^38^80^BRIEF DESCRIPTION^H"
.S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
.S ^SD(409.61,VALM,"FNL")="D ONEXIT^IBDF12"
.S ^SD(409.61,VALM,"HDR")=""
.S ^SD(409.61,VALM,"HLP")="W """""
.S ^SD(409.61,VALM,"INIT")="D ONENTRY^IBDF12"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
G ^IB20PT46
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20PT45 3983 printed Oct 16, 2024@18:05:58 Page 2
IB20PT45 ;ALB/CPM - List Template Exporter ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF VALM>0
Begin DoDot:1
+3 SET ^SD(409.61,VALM,0)="IBDF EDIT TOOL KIT BLOCKS^1^^160^4^20^1^1^TOOL KIT BLOCK^IBDF EDIT TOOL KIT BLOCKS MENU^EDIT TOOL KIT BLOCKS^1"
+4 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+5 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
+6 SET ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
+7 SET ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
+8 SET ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
+9 SET ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^43^80^BRIEF DESCRIPTION"
+10 SET ^SD(409.61,VALM,"COL",4,0)="TK ORDER^38^4^TK#"
+11 SET ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
+12 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
+13 SET ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
+14 SET ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
+15 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+16 WRITE "Filed."
End DoDot:1
+17 ;
+18 WRITE !,"'IBDF FORM BLOCK EDIT' List Template..."
+19 SET DA=$ORDER(^SD(409.61,"B","IBDF FORM BLOCK EDIT",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+20 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBDF FORM BLOCK EDIT"
DO FILE^DICN
SET VALM=+Y
+21 IF VALM>0
Begin DoDot:1
+22 SET ^SD(409.61,VALM,0)="IBDF FORM BLOCK EDIT^1^^200^4^18^1^1^FORM BLOCK^IBDF EDIT FORM BLOCK MENU^EDITING A FORM BLOCK^1"
+23 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+24 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""FORM BLOCK"")"
+25 SET ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
+26 SET ^SD(409.61,VALM,"COL",1,0)="ROW^1^3^^^1"
+27 SET ^SD(409.61,VALM,"COL",2,0)="BLOCK LEFT SIDE^5^80^123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"
+28 SET ^SD(409.61,VALM,"COL",3,0)="BLOCK RIGHT SIDE^85^80^123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"
+29 SET ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
+30 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBDF9"
+31 SET ^SD(409.61,VALM,"HDR")="D HDR^IBDF9"
+32 SET ^SD(409.61,VALM,"HLP")="W """""
+33 SET ^SD(409.61,VALM,"INIT")="D INIT^IBDF9"
+34 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+35 WRITE "Filed."
End DoDot:1
+36 ;
+37 WRITE !,"'IBDF TOOL KIT BLOCK LIST' List Template..."
+38 SET DA=$ORDER(^SD(409.61,"B","IBDF TOOL KIT BLOCK LIST",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="IBDF TOOL KIT BLOCK LIST"
DO FILE^DICN
SET VALM=+Y
+40 IF VALM>0
Begin DoDot:1
+41 SET ^SD(409.61,VALM,0)="IBDF TOOL KIT BLOCK LIST^1^^160^4^20^1^1^TOOL KIT BLOCK^IBDF MENU FOR ADDING TOOL KIT BLOCK^LIST OF TOOL KIT BLOCKS^1"
+42 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+43 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
+44 SET ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
+45 SET ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
+46 SET ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
+47 SET ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^37^80^BRIEF DESCRIPTION"
+48 SET ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
+49 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
+50 SET ^SD(409.61,VALM,"HDR")=""
+51 SET ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
+52 SET ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
+53 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+54 WRITE "Filed."
End DoDot:1
+55 ;
+56 WRITE !,"'IBDF TOOL KIT FORMS' List Template..."
+57 SET DA=$ORDER(^SD(409.61,"B","IBDF TOOL KIT FORMS",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+58 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBDF TOOL KIT FORMS"
DO FILE^DICN
SET VALM=+Y
+59 IF VALM>0
Begin DoDot:1
+60 SET ^SD(409.61,VALM,0)="IBDF TOOL KIT FORMS^1^^123^5^20^1^1^FORM^IBDF TOOL KIT FORMS MENU^LIST OF TOOL KIT FORMS^1"
+61 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+62 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""FORM LIST"")"
+63 SET ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
+64 SET ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
+65 SET ^SD(409.61,VALM,"COL",2,0)="FORM NAME^6^30^FORM NAME"
+66 SET ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^38^80^BRIEF DESCRIPTION^H"
+67 SET ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
+68 SET ^SD(409.61,VALM,"FNL")="D ONEXIT^IBDF12"
+69 SET ^SD(409.61,VALM,"HDR")=""
+70 SET ^SD(409.61,VALM,"HLP")="W """""
+71 SET ^SD(409.61,VALM,"INIT")="D ONENTRY^IBDF12"
+72 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+73 WRITE "Filed."
End DoDot:1
+74 ;
+75 GOTO ^IB20PT46