HLLM1 ; List Template Exporter ; 14-JUL-1995
;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
W !,"'HL MESSAGE REQUEUER - 2' List Template..."
S DA=$O(^SD(409.61,"B","HL MESSAGE REQUEUER - 2",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="HL MESSAGE REQUEUER - 2" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="HL MESSAGE REQUEUER - 2^1^^80^5^18^1^1^^HL CS/RQ MENU - SCREEN 2^HL7 Message Requeuer^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""HL"",""MESSAGE"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
.S ^SD(409.61,VALM,"COL",1,0)="INDEX^3^8^Number"
.S ^SD(409.61,VALM,"COL",2,0)="DATE^12^25^Date Processed"
.S ^SD(409.61,VALM,"COL",3,0)="APP^45^30^Remote DHCP Application"
.S ^SD(409.61,VALM,"EXP")="D EXPND^HLCSRES"
.S ^SD(409.61,VALM,"FNL")="D EXIT^HLCSRE1"
.S ^SD(409.61,VALM,"HDR")="D HDR^HLCSRES"
.S ^SD(409.61,VALM,"HLP")="D HELP^HLCSRES"
.S ^SD(409.61,VALM,"INIT")="D INIT^HLCSRES"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'HL MESSAGE REQUEUER - 3' List Template..."
S DA=$O(^SD(409.61,"B","HL MESSAGE REQUEUER - 3",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="HL MESSAGE REQUEUER - 3" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="HL MESSAGE REQUEUER - 3^2^^240^5^18^1^1^^^HL7 Message Requeuer^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^HLCSRQ"
.S ^SD(409.61,VALM,"HDR")="D HDR^HLCSRQ"
.S ^SD(409.61,VALM,"HLP")="D HELP^HLCSRQ"
.S ^SD(409.61,VALM,"INIT")="D INIT^HLCSRQ"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
K DIC,DIK,VALM,X,DA Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLLM1 1748 printed Nov 22, 2024@17:08:21 Page 2
HLLM1 ; List Template Exporter ; 14-JUL-1995
+1 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
+2 WRITE !,"'HL MESSAGE REQUEUER - 2' List Template..."
+3 SET DA=$ORDER(^SD(409.61,"B","HL MESSAGE REQUEUER - 2",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="HL MESSAGE REQUEUER - 2"
DO FILE^DICN
SET VALM=+Y
+5 IF VALM>0
Begin DoDot:1
+6 SET ^SD(409.61,VALM,0)="HL MESSAGE REQUEUER - 2^1^^80^5^18^1^1^^HL CS/RQ MENU - SCREEN 2^HL7 Message Requeuer^1^^1"
+7 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+8 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""HL"",""MESSAGE"",$J)"
+9 SET ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
+10 SET ^SD(409.61,VALM,"COL",1,0)="INDEX^3^8^Number"
+11 SET ^SD(409.61,VALM,"COL",2,0)="DATE^12^25^Date Processed"
+12 SET ^SD(409.61,VALM,"COL",3,0)="APP^45^30^Remote DHCP Application"
+13 SET ^SD(409.61,VALM,"EXP")="D EXPND^HLCSRES"
+14 SET ^SD(409.61,VALM,"FNL")="D EXIT^HLCSRE1"
+15 SET ^SD(409.61,VALM,"HDR")="D HDR^HLCSRES"
+16 SET ^SD(409.61,VALM,"HLP")="D HELP^HLCSRES"
+17 SET ^SD(409.61,VALM,"INIT")="D INIT^HLCSRES"
+18 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+19 WRITE "Filed."
End DoDot:1
+20 ;
+21 WRITE !,"'HL MESSAGE REQUEUER - 3' List Template..."
+22 SET DA=$ORDER(^SD(409.61,"B","HL MESSAGE REQUEUER - 3",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+23 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="HL MESSAGE REQUEUER - 3"
DO FILE^DICN
SET VALM=+Y
+24 IF VALM>0
Begin DoDot:1
+25 SET ^SD(409.61,VALM,0)="HL MESSAGE REQUEUER - 3^2^^240^5^18^1^1^^^HL7 Message Requeuer^1^^1"
+26 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+27 SET ^SD(409.61,VALM,"ARRAY")=""
+28 SET ^SD(409.61,VALM,"FNL")="D EXIT^HLCSRQ"
+29 SET ^SD(409.61,VALM,"HDR")="D HDR^HLCSRQ"
+30 SET ^SD(409.61,VALM,"HLP")="D HELP^HLCSRQ"
+31 SET ^SD(409.61,VALM,"INIT")="D INIT^HLCSRQ"
+32 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+33 WRITE "Filed."
End DoDot:1
+34 ;
+35 KILL DIC,DIK,VALM,X,DA
QUIT
