PRCPL ; List Template Exporter ; 28-FEB-1995
;;5.0;IFCAP;;4/21/95
W !,"'PRCP DIST ORDER CC/IK CHECK' List Template..."
S DA=$O(^SD(409.61,"B","PRCP DIST ORDER CC/IK CHECK",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP DIST ORDER CC/IK CHECK" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP DIST ORDER CC/IK CHECK^1^^80^6^16^1^1^Check CC/IK Items^PRCP CC/IK CHECK ITEMS MENU^Check CC/IK Items^2^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPER"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
.S ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H^0"
.S ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
.S ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^QTY ORDER"
.S ^SD(409.61,VALM,"COL",4,0)="ONHAND^70^10^QTY ONHAND"
.S ^SD(409.61,VALM,"COL",5,0)="CONV^60^10^CONVFACT"
.S ^SD(409.61,VALM,"COL","AIDENT",0,1)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPEC"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPEC"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'PRCP DIST ORDER CC/IK POSTING' List Template..."
S DA=$O(^SD(409.61,"B","PRCP DIST ORDER CC/IK POSTING",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP DIST ORDER CC/IK POSTING" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP DIST ORDER CC/IK POSTING^1^1^80^6^18^1^1^Post CC/IK Items^PRCP CC/IK POSTING MENU^CC or IK Item Posting^2^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPPC"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^7^6"
.S ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H^0"
.S ^SD(409.61,VALM,"COL",2,0)="ORDERED^50^10^ORDERED^H"
.S ^SD(409.61,VALM,"COL",3,0)="RETURNED^60^10^RETURNED^R"
.S ^SD(409.61,VALM,"COL",5,0)="POSTING^70^10^TO POST^HR"
.S ^SD(409.61,VALM,"COL",6,0)="UNIT^46^2^UI"
.S ^SD(409.61,VALM,"COL",7,0)="REUSABLE^44^1^R"
.S ^SD(409.61,VALM,"COL","AIDENT",0,1)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPPC"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPPC"
.S ^SD(409.61,VALM,"HLP")=""
.S ^SD(409.61,VALM,"INIT")="D BUILD^PRCPOPPC"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'PRCP DIST ORDER CHECK ITEMS' List Template..."
S DA=$O(^SD(409.61,"B","PRCP DIST ORDER CHECK ITEMS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP DIST ORDER CHECK ITEMS" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP DIST ORDER CHECK ITEMS^1^^80^6^16^1^1^Check Distribution Order/Items^PRCP CHECK ORDER MENU^Check Distribution Order/Items^2^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPER"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
.S ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H"
.S ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
.S ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^QTY ORDER"
.S ^SD(409.61,VALM,"COL",4,0)="CONV^60^10^CONVFACT"
.S ^SD(409.61,VALM,"COL",5,0)="ONHAND^70^10^QTY ONHAND"
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPER"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPER"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'PRCP DIST ORDER PROCESSING' List Template..."
S DA=$O(^SD(409.61,"B","PRCP DIST ORDER PROCESSING",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP DIST ORDER PROCESSING" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="PRCP DIST ORDER PROCESSING^1^^80^6^18^1^1^Distribution Order Processing^PRCP DIST ORDER PROCESSING^Distribution Order Processing^2^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOP"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
.S ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H"
.S ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
.S ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^ORDERED"
.S ^SD(409.61,VALM,"COL",4,0)="CONV^60^10^CONVFACT"
.S ^SD(409.61,VALM,"COL",5,0)="ONHAND^70^10^QTY ONHAND"
.S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPL"
.S ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
.S ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPL"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
G ^PRCPL1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCPL 4384 printed Nov 22, 2024@17:24:06 Page 2
PRCPL ; List Template Exporter ; 28-FEB-1995
+1 ;;5.0;IFCAP;;4/21/95
+2 WRITE !,"'PRCP DIST ORDER CC/IK CHECK' List Template..."
+3 SET DA=$ORDER(^SD(409.61,"B","PRCP DIST ORDER CC/IK CHECK",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 DIST ORDER CC/IK CHECK"
DO FILE^DICN
SET VALM=+Y
+5 IF VALM>0
Begin DoDot:1
+6 SET ^SD(409.61,VALM,0)="PRCP DIST ORDER CC/IK CHECK^1^^80^6^16^1^1^Check CC/IK Items^PRCP CC/IK CHECK ITEMS MENU^Check CC/IK Items^2^^1"
+7 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+8 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPER"")"
+9 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
+10 SET ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H^0"
+11 SET ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
+12 SET ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^QTY ORDER"
+13 SET ^SD(409.61,VALM,"COL",4,0)="ONHAND^70^10^QTY ONHAND"
+14 SET ^SD(409.61,VALM,"COL",5,0)="CONV^60^10^CONVFACT"
+15 SET ^SD(409.61,VALM,"COL","AIDENT",0,1)=""
+16 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPEC"
+17 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
+18 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPEC"
+19 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+20 WRITE "Filed."
End DoDot:1
+21 ;
+22 WRITE !,"'PRCP DIST ORDER CC/IK POSTING' List Template..."
+23 SET DA=$ORDER(^SD(409.61,"B","PRCP DIST ORDER CC/IK POSTING",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+24 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="PRCP DIST ORDER CC/IK POSTING"
DO FILE^DICN
SET VALM=+Y
+25 IF VALM>0
Begin DoDot:1
+26 SET ^SD(409.61,VALM,0)="PRCP DIST ORDER CC/IK POSTING^1^1^80^6^18^1^1^Post CC/IK Items^PRCP CC/IK POSTING MENU^CC or IK Item Posting^2^^1"
+27 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+28 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPPC"")"
+29 SET ^SD(409.61,VALM,"COL",0)="^409.621^7^6"
+30 SET ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H^0"
+31 SET ^SD(409.61,VALM,"COL",2,0)="ORDERED^50^10^ORDERED^H"
+32 SET ^SD(409.61,VALM,"COL",3,0)="RETURNED^60^10^RETURNED^R"
+33 SET ^SD(409.61,VALM,"COL",5,0)="POSTING^70^10^TO POST^HR"
+34 SET ^SD(409.61,VALM,"COL",6,0)="UNIT^46^2^UI"
+35 SET ^SD(409.61,VALM,"COL",7,0)="REUSABLE^44^1^R"
+36 SET ^SD(409.61,VALM,"COL","AIDENT",0,1)=""
+37 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPPC"
+38 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPPC"
+39 SET ^SD(409.61,VALM,"HLP")=""
+40 SET ^SD(409.61,VALM,"INIT")="D BUILD^PRCPOPPC"
+41 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+42 WRITE "Filed."
End DoDot:1
+43 ;
+44 WRITE !,"'PRCP DIST ORDER CHECK ITEMS' List Template..."
+45 SET DA=$ORDER(^SD(409.61,"B","PRCP DIST ORDER CHECK ITEMS",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+46 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="PRCP DIST ORDER CHECK ITEMS"
DO FILE^DICN
SET VALM=+Y
+47 IF VALM>0
Begin DoDot:1
+48 SET ^SD(409.61,VALM,0)="PRCP DIST ORDER CHECK ITEMS^1^^80^6^16^1^1^Check Distribution Order/Items^PRCP CHECK ORDER MENU^Check Distribution Order/Items^2^^1"
+49 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+50 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPER"")"
+51 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
+52 SET ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H"
+53 SET ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
+54 SET ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^QTY ORDER"
+55 SET ^SD(409.61,VALM,"COL",4,0)="CONV^60^10^CONVFACT"
+56 SET ^SD(409.61,VALM,"COL",5,0)="ONHAND^70^10^QTY ONHAND"
+57 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPER"
+58 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
+59 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPER"
+60 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+61 WRITE "Filed."
End DoDot:1
+62 ;
+63 WRITE !,"'PRCP DIST ORDER PROCESSING' List Template..."
+64 SET DA=$ORDER(^SD(409.61,"B","PRCP DIST ORDER PROCESSING",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+65 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="PRCP DIST ORDER PROCESSING"
DO FILE^DICN
SET VALM=+Y
+66 IF VALM>0
Begin DoDot:1
+67 SET ^SD(409.61,VALM,0)="PRCP DIST ORDER PROCESSING^1^^80^6^18^1^1^Distribution Order Processing^PRCP DIST ORDER PROCESSING^Distribution Order Processing^2^^1"
+68 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+69 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOP"")"
+70 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
+71 SET ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H"
+72 SET ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
+73 SET ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^ORDERED"
+74 SET ^SD(409.61,VALM,"COL",4,0)="CONV^60^10^CONVFACT"
+75 SET ^SD(409.61,VALM,"COL",5,0)="ONHAND^70^10^QTY ONHAND"
+76 SET ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPL"
+77 SET ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
+78 SET ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPL"
+79 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+80 WRITE "Filed."
End DoDot:1
+81 ;
+82 GOTO ^PRCPL1
