IBDL1 ; List Template Exporter ; 03-APR-1996
;;Version 2.1 ; AUTOMATED INFO COLLECTION SYS ;; 3-APR-96
W !,"'IBDF DISPLAY GROUPS FOR EDIT' List Template..."
S DA=$O(^SD(409.61,"B","IBDF DISPLAY GROUPS FOR EDIT",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF DISPLAY GROUPS FOR EDIT" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBDF DISPLAY GROUPS FOR EDIT^1^^80^4^18^1^1^SELECTION LIST PRINT GROUP^IBDF EDIT SELECTION LIST MENU^Edit Selection List^1"
.S ^SD(409.61,VALM,1)="^IBDF HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""GROUPS"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
.S ^SD(409.61,VALM,"COL",1,0)="PRINT ORDER^8^6^ORDER^R^0"
.S ^SD(409.61,VALM,"COL",2,0)="HEADER^20^40^HEADER^"
.S ^SD(409.61,VALM,"COL",3,0)="CONTAINS^65^8^CONTAINS"
.S ^SD(409.61,VALM,"COL",4,0)="ID^1^2^^R^1"
.S ^SD(409.61,VALM,"COL","AIDENT",0,1)=""
.S ^SD(409.61,VALM,"COL","AIDENT",1,4)=""
.S ^SD(409.61,VALM,"FNL")="D ONEXIT^IBDF3"
.S ^SD(409.61,VALM,"HDR")="D LMGRPHDR^IBDF3"
.S ^SD(409.61,VALM,"HLP")="W """""
.S ^SD(409.61,VALM,"INIT")="D ONENTRY^IBDF3"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBDF EDIT GROUP'S SELECTIONS' List Template..."
S DA=$O(^SD(409.61,"B","IBDF EDIT GROUP'S SELECTIONS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF EDIT GROUP'S SELECTIONS" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBDF EDIT GROUP'S SELECTIONS^1^1^150^4^20^1^1^SELECTION^IBDF EDIT GROUP'S SELECTIONS MENU^Edit Group's Selections^1^^1"
.S ^SD(409.61,VALM,1)="^IBDF HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""SELECTIONS"")"
.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)="SELECTION^16^80^**************** SELECTIONS ****************"
.S ^SD(409.61,VALM,"COL",3,0)="ORDER^8^6^ORDER"
.S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
.S ^SD(409.61,VALM,"FNL")="D ONEXIT^IBDF4"
.S ^SD(409.61,VALM,"HDR")="D LMGRPHDR^IBDF4"
.S ^SD(409.61,VALM,"HLP")="W """""
.S ^SD(409.61,VALM,"INIT")="D ONENTRY^IBDF4"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBDF EDIT TOOL KIT BLOCKS' List Template..."
S DA=$O(^SD(409.61,"B","IBDF EDIT TOOL KIT BLOCKS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF EDIT TOOL KIT BLOCKS" D FILE^DICN S VALM=+Y
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 EF CLINIC GROUP LT' List Template..."
S DA=$O(^SD(409.61,"B","IBDF EF CLINIC GROUP LT",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF EF CLINIC GROUP LT" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBDF EF CLINIC GROUP LT^1^^80^5^19^1^1^Clinic Group^IBDF EF CLINIC GROUP MENU^Clinic Groups/Clinics List^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDFCG"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
.S ^SD(409.61,VALM,"COL",1,0)="CLINIC GROUP^2^26^CLINIC GROUP"
.S ^SD(409.61,VALM,"COL",2,0)="DIVISION^28^26^DIVISION"
.S ^SD(409.61,VALM,"COL",3,0)="CLINIC NAME^56^24^CLINIC NAME"
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBDFCG"
.S ^SD(409.61,VALM,"HDR")="D HDR^IBDFCG"
.S ^SD(409.61,VALM,"HLP")="D HELP^IBDFCG"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBDFCG"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'IBDF EF HELP SPEC INSTR.' List Template..."
S DA=$O(^SD(409.61,"B","IBDF EF HELP SPEC INSTR.",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF EF HELP SPEC INSTR." D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="IBDF EF HELP SPEC INSTR.^1^^80^2^21^1^1^Special Instructions Help^IBDF EF HELP MENU^Special Instructions Help^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDFHP"",$J)"
.S ^SD(409.61,VALM,"EXP")="D EXP^IBDFHLP"
.S ^SD(409.61,VALM,"FNL")="D EXIT^IBDFHLP"
.S ^SD(409.61,VALM,"HDR")="D HDR^IBDFHLP"
.S ^SD(409.61,VALM,"HLP")="D HELP^IBDFHLP"
.S ^SD(409.61,VALM,"INIT")="D INIT^IBDFHLP"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
G ^IBDL2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDL1 5007 printed Dec 13, 2024@02:53:55 Page 2
IBDL1 ; List Template Exporter ; 03-APR-1996
+1 ;;Version 2.1 ; AUTOMATED INFO COLLECTION SYS ;; 3-APR-96
+2 WRITE !,"'IBDF DISPLAY GROUPS FOR EDIT' List Template..."
+3 SET DA=$ORDER(^SD(409.61,"B","IBDF DISPLAY GROUPS FOR EDIT",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="IBDF DISPLAY GROUPS FOR EDIT"
DO FILE^DICN
SET VALM=+Y
+5 IF VALM>0
Begin DoDot:1
+6 SET ^SD(409.61,VALM,0)="IBDF DISPLAY GROUPS FOR EDIT^1^^80^4^18^1^1^SELECTION LIST PRINT GROUP^IBDF EDIT SELECTION LIST MENU^Edit Selection List^1"
+7 SET ^SD(409.61,VALM,1)="^IBDF HIDDEN ACTIONS"
+8 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""GROUPS"")"
+9 SET ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
+10 SET ^SD(409.61,VALM,"COL",1,0)="PRINT ORDER^8^6^ORDER^R^0"
+11 SET ^SD(409.61,VALM,"COL",2,0)="HEADER^20^40^HEADER^"
+12 SET ^SD(409.61,VALM,"COL",3,0)="CONTAINS^65^8^CONTAINS"
+13 SET ^SD(409.61,VALM,"COL",4,0)="ID^1^2^^R^1"
+14 SET ^SD(409.61,VALM,"COL","AIDENT",0,1)=""
+15 SET ^SD(409.61,VALM,"COL","AIDENT",1,4)=""
+16 SET ^SD(409.61,VALM,"FNL")="D ONEXIT^IBDF3"
+17 SET ^SD(409.61,VALM,"HDR")="D LMGRPHDR^IBDF3"
+18 SET ^SD(409.61,VALM,"HLP")="W """""
+19 SET ^SD(409.61,VALM,"INIT")="D ONENTRY^IBDF3"
+20 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+21 WRITE "Filed."
End DoDot:1
+22 ;
+23 WRITE !,"'IBDF EDIT GROUP'S SELECTIONS' List Template..."
+24 SET DA=$ORDER(^SD(409.61,"B","IBDF EDIT GROUP'S SELECTIONS",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="IBDF EDIT GROUP'S SELECTIONS"
DO FILE^DICN
SET VALM=+Y
+26 IF VALM>0
Begin DoDot:1
+27 SET ^SD(409.61,VALM,0)="IBDF EDIT GROUP'S SELECTIONS^1^1^150^4^20^1^1^SELECTION^IBDF EDIT GROUP'S SELECTIONS MENU^Edit Group's Selections^1^^1"
+28 SET ^SD(409.61,VALM,1)="^IBDF HIDDEN ACTIONS"
+29 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""SELECTIONS"")"
+30 SET ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
+31 SET ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
+32 SET ^SD(409.61,VALM,"COL",2,0)="SELECTION^16^80^**************** SELECTIONS ****************"
+33 SET ^SD(409.61,VALM,"COL",3,0)="ORDER^8^6^ORDER"
+34 SET ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
+35 SET ^SD(409.61,VALM,"FNL")="D ONEXIT^IBDF4"
+36 SET ^SD(409.61,VALM,"HDR")="D LMGRPHDR^IBDF4"
+37 SET ^SD(409.61,VALM,"HLP")="W """""
+38 SET ^SD(409.61,VALM,"INIT")="D ONENTRY^IBDF4"
+39 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+40 WRITE "Filed."
End DoDot:1
+41 ;
+42 WRITE !,"'IBDF EDIT TOOL KIT BLOCKS' List Template..."
+43 SET DA=$ORDER(^SD(409.61,"B","IBDF EDIT TOOL KIT BLOCKS",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+44 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBDF EDIT TOOL KIT BLOCKS"
DO FILE^DICN
SET VALM=+Y
+45 IF VALM>0
Begin DoDot:1
+46 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"
+47 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+48 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
+49 SET ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
+50 SET ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
+51 SET ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
+52 SET ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^43^80^BRIEF DESCRIPTION"
+53 SET ^SD(409.61,VALM,"COL",4,0)="TK ORDER^38^4^TK#"
+54 SET ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
+55 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
+56 SET ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
+57 SET ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
+58 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+59 WRITE "Filed."
End DoDot:1
+60 ;
+61 WRITE !,"'IBDF EF CLINIC GROUP LT' List Template..."
+62 SET DA=$ORDER(^SD(409.61,"B","IBDF EF CLINIC GROUP LT",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+63 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="IBDF EF CLINIC GROUP LT"
DO FILE^DICN
SET VALM=+Y
+64 IF VALM>0
Begin DoDot:1
+65 SET ^SD(409.61,VALM,0)="IBDF EF CLINIC GROUP LT^1^^80^5^19^1^1^Clinic Group^IBDF EF CLINIC GROUP MENU^Clinic Groups/Clinics List^1^^1"
+66 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+67 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDFCG"",$J)"
+68 SET ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
+69 SET ^SD(409.61,VALM,"COL",1,0)="CLINIC GROUP^2^26^CLINIC GROUP"
+70 SET ^SD(409.61,VALM,"COL",2,0)="DIVISION^28^26^DIVISION"
+71 SET ^SD(409.61,VALM,"COL",3,0)="CLINIC NAME^56^24^CLINIC NAME"
+72 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBDFCG"
+73 SET ^SD(409.61,VALM,"HDR")="D HDR^IBDFCG"
+74 SET ^SD(409.61,VALM,"HLP")="D HELP^IBDFCG"
+75 SET ^SD(409.61,VALM,"INIT")="D INIT^IBDFCG"
+76 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+77 WRITE "Filed."
End DoDot:1
+78 ;
+79 WRITE !,"'IBDF EF HELP SPEC INSTR.' List Template..."
+80 SET DA=$ORDER(^SD(409.61,"B","IBDF EF HELP SPEC INSTR.",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="IBDF EF HELP SPEC INSTR."
DO FILE^DICN
SET VALM=+Y
+82 IF VALM>0
Begin DoDot:1
+83 SET ^SD(409.61,VALM,0)="IBDF EF HELP SPEC INSTR.^1^^80^2^21^1^1^Special Instructions Help^IBDF EF HELP MENU^Special Instructions Help^1^^1"
+84 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+85 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDFHP"",$J)"
+86 SET ^SD(409.61,VALM,"EXP")="D EXP^IBDFHLP"
+87 SET ^SD(409.61,VALM,"FNL")="D EXIT^IBDFHLP"
+88 SET ^SD(409.61,VALM,"HDR")="D HDR^IBDFHLP"
+89 SET ^SD(409.61,VALM,"HLP")="D HELP^IBDFHLP"
+90 SET ^SD(409.61,VALM,"INIT")="D INIT^IBDFHLP"
+91 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+92 WRITE "Filed."
End DoDot:1
+93 ;
+94 GOTO ^IBDL2
