PRCPL1 ; List Template Exporter ; 28-FEB-1995
;;5.0;IFCAP;;4/21/95
W !,"'PRCP EDIT ITEMS' List Template..."
S DA=$O(^SD(409.61,"B","PRCP EDIT ITEMS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP EDIT ITEMS" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP EDIT ITEMS^1^^80^4^18^1^1^Edit Inventory Item Data^PRCP ENTER/EDIT INVENTORY ITEMS MENU^Edit Inventory Item Data^2^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPEILM"")"
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPEILM"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPEILM"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPEILM"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'PRCP GRAPH DATA' List Template..."
S DA=$O(^SD(409.61,"B","PRCP GRAPH DATA",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP GRAPH DATA" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP GRAPH DATA^2^^200^5^21^1^1^Graph Inventory Data^^Graph Inventory Data^2^^"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPRGRA"")"
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPRGRA"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPRGRA"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPRGRA"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'PRCP INVENTORY PARAMETERS' List Template..."
S DA=$O(^SD(409.61,"B","PRCP INVENTORY PARAMETERS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP INVENTORY PARAMETERS" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP INVENTORY PARAMETERS^1^^80^4^18^1^1^Edit Inventory Parameters^PRCP INVENTORY PARAMETERS MENU^Edit Inventory Parameters^2^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPENLM"")"
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPENLM"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPENLM"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPENLM"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'PRCP ISSUE BOOK POSTING' List Template..."
S DA=$O(^SD(409.61,"B","PRCP ISSUE BOOK POSTING",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP ISSUE BOOK POSTING" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP ISSUE BOOK POSTING^1^^80^6^18^1^1^Issue Book Posting^PRCP ISSUE BOOK POSTING MENU^Issue Book Posting^2"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPWPLM"")"
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPWPLM"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPWPLM"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPWPLM"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'PRCP ISSUE BOOK RECEIVING' List Template..."
S DA=$O(^SD(409.61,"B","PRCP ISSUE BOOK RECEIVING",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP ISSUE BOOK RECEIVING" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP ISSUE BOOK RECEIVING^1^^80^7^18^1^1^Issue Book Receiving^PRCP RECEIVE ISSUE BOOK MENU^Issue Book Receiving^2"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPWPPL"")"
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPWPPL"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPWPPL"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPWPPL"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'PRCP PURCHASE ORDER RECEIPT' List Template..."
S DA=$O(^SD(409.61,"B","PRCP PURCHASE ORDER RECEIPT",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP PURCHASE ORDER RECEIPT" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP PURCHASE ORDER RECEIPT^1^^80^6^18^1^1^Purchase Order Receipt^PRCP PURCHASE ORDER RECEIPT MENU^Purchase Order Receipt^2"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPPOLM"")"
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPPOLM"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPPOLM"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPPOLM"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
G ^PRCPL2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCPL1 4167 printed Apr 09, 2024@21:04:29 Page 2
PRCPL1 ; List Template Exporter ; 28-FEB-1995
+1 ;;5.0;IFCAP;;4/21/95
+2 WRITE !,"'PRCP EDIT ITEMS' List Template..."
+3 SET DA=$ORDER(^SD(409.61,"B","PRCP EDIT ITEMS",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="PRCP EDIT ITEMS"
DO FILE^DICN
SET VALM=+Y
+5 IF VALM>0
Begin DoDot:1
+6 SET ^SD(409.61,VALM,0)="PRCP EDIT ITEMS^1^^80^4^18^1^1^Edit Inventory Item Data^PRCP ENTER/EDIT INVENTORY ITEMS MENU^Edit Inventory Item Data^2^^1"
+7 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+8 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPEILM"")"
+9 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPEILM"
+10 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPEILM"
+11 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPEILM"
+12 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+13 WRITE "Filed."
End DoDot:1
+14 ;
+15 WRITE !,"'PRCP GRAPH DATA' List Template..."
+16 SET DA=$ORDER(^SD(409.61,"B","PRCP GRAPH DATA",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+17 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="PRCP GRAPH DATA"
DO FILE^DICN
SET VALM=+Y
+18 IF VALM>0
Begin DoDot:1
+19 SET ^SD(409.61,VALM,0)="PRCP GRAPH DATA^2^^200^5^21^1^1^Graph Inventory Data^^Graph Inventory Data^2^^"
+20 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+21 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPRGRA"")"
+22 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPRGRA"
+23 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPRGRA"
+24 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPRGRA"
+25 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+26 WRITE "Filed."
End DoDot:1
+27 ;
+28 WRITE !,"'PRCP INVENTORY PARAMETERS' List Template..."
+29 SET DA=$ORDER(^SD(409.61,"B","PRCP INVENTORY PARAMETERS",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+30 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="PRCP INVENTORY PARAMETERS"
DO FILE^DICN
SET VALM=+Y
+31 IF VALM>0
Begin DoDot:1
+32 SET ^SD(409.61,VALM,0)="PRCP INVENTORY PARAMETERS^1^^80^4^18^1^1^Edit Inventory Parameters^PRCP INVENTORY PARAMETERS MENU^Edit Inventory Parameters^2^^1"
+33 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+34 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPENLM"")"
+35 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPENLM"
+36 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPENLM"
+37 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPENLM"
+38 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+39 WRITE "Filed."
End DoDot:1
+40 ;
+41 WRITE !,"'PRCP ISSUE BOOK POSTING' List Template..."
+42 SET DA=$ORDER(^SD(409.61,"B","PRCP ISSUE BOOK POSTING",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+43 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="PRCP ISSUE BOOK POSTING"
DO FILE^DICN
SET VALM=+Y
+44 IF VALM>0
Begin DoDot:1
+45 SET ^SD(409.61,VALM,0)="PRCP ISSUE BOOK POSTING^1^^80^6^18^1^1^Issue Book Posting^PRCP ISSUE BOOK POSTING MENU^Issue Book Posting^2"
+46 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+47 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPWPLM"")"
+48 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPWPLM"
+49 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPWPLM"
+50 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPWPLM"
+51 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+52 WRITE "Filed."
End DoDot:1
+53 ;
+54 WRITE !,"'PRCP ISSUE BOOK RECEIVING' List Template..."
+55 SET DA=$ORDER(^SD(409.61,"B","PRCP ISSUE BOOK RECEIVING",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+56 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="PRCP ISSUE BOOK RECEIVING"
DO FILE^DICN
SET VALM=+Y
+57 IF VALM>0
Begin DoDot:1
+58 SET ^SD(409.61,VALM,0)="PRCP ISSUE BOOK RECEIVING^1^^80^7^18^1^1^Issue Book Receiving^PRCP RECEIVE ISSUE BOOK MENU^Issue Book Receiving^2"
+59 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+60 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPWPPL"")"
+61 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPWPPL"
+62 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPWPPL"
+63 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPWPPL"
+64 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+65 WRITE "Filed."
End DoDot:1
+66 ;
+67 WRITE !,"'PRCP PURCHASE ORDER RECEIPT' List Template..."
+68 SET DA=$ORDER(^SD(409.61,"B","PRCP PURCHASE ORDER RECEIPT",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+69 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="PRCP PURCHASE ORDER RECEIPT"
DO FILE^DICN
SET VALM=+Y
+70 IF VALM>0
Begin DoDot:1
+71 SET ^SD(409.61,VALM,0)="PRCP PURCHASE ORDER RECEIPT^1^^80^6^18^1^1^Purchase Order Receipt^PRCP PURCHASE ORDER RECEIPT MENU^Purchase Order Receipt^2"
+72 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+73 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPPOLM"")"
+74 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPPOLM"
+75 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPPOLM"
+76 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPPOLM"
+77 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+78 WRITE "Filed."
End DoDot:1
+79 ;
+80 GOTO ^PRCPL2
