source: FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPL.m@ 636

Last change on this file since 636 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version
File size: 4.2 KB
Line 
1PRCPL ; List Template Exporter ; 28-FEB-1995
2 ;;5.0;IFCAP;;4/21/95
3 W !,"'PRCP DIST ORDER CC/IK CHECK' List Template..."
4 S DA=$O(^SD(409.61,"B","PRCP DIST ORDER CC/IK CHECK",0)),DIK="^SD(409.61," D ^DIK:DA
5 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP DIST ORDER CC/IK CHECK" D FILE^DICN S VALM=+Y
6 I VALM>0 D
7 .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"
8 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
9 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPER"")"
10 .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
11 .S ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H^0"
12 .S ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
13 .S ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^QTY ORDER"
14 .S ^SD(409.61,VALM,"COL",4,0)="ONHAND^70^10^QTY ONHAND"
15 .S ^SD(409.61,VALM,"COL",5,0)="CONV^60^10^CONVFACT"
16 .S ^SD(409.61,VALM,"COL","AIDENT",0,1)=""
17 .S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPEC"
18 .S ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
19 .S ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPEC"
20 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
21 .W "Filed."
22 ;
23 W !,"'PRCP DIST ORDER CC/IK POSTING' List Template..."
24 S DA=$O(^SD(409.61,"B","PRCP DIST ORDER CC/IK POSTING",0)),DIK="^SD(409.61," D ^DIK:DA
25 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP DIST ORDER CC/IK POSTING" D FILE^DICN S VALM=+Y
26 I VALM>0 D
27 .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"
28 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
29 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPPC"")"
30 .S ^SD(409.61,VALM,"COL",0)="^409.621^7^6"
31 .S ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H^0"
32 .S ^SD(409.61,VALM,"COL",2,0)="ORDERED^50^10^ORDERED^H"
33 .S ^SD(409.61,VALM,"COL",3,0)="RETURNED^60^10^RETURNED^R"
34 .S ^SD(409.61,VALM,"COL",5,0)="POSTING^70^10^TO POST^HR"
35 .S ^SD(409.61,VALM,"COL",6,0)="UNIT^46^2^UI"
36 .S ^SD(409.61,VALM,"COL",7,0)="REUSABLE^44^1^R"
37 .S ^SD(409.61,VALM,"COL","AIDENT",0,1)=""
38 .S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPPC"
39 .S ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPPC"
40 .S ^SD(409.61,VALM,"HLP")=""
41 .S ^SD(409.61,VALM,"INIT")="D BUILD^PRCPOPPC"
42 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
43 .W "Filed."
44 ;
45 W !,"'PRCP DIST ORDER CHECK ITEMS' List Template..."
46 S DA=$O(^SD(409.61,"B","PRCP DIST ORDER CHECK ITEMS",0)),DIK="^SD(409.61," D ^DIK:DA
47 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP DIST ORDER CHECK ITEMS" D FILE^DICN S VALM=+Y
48 I VALM>0 D
49 .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"
50 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
51 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOPER"")"
52 .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
53 .S ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H"
54 .S ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
55 .S ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^QTY ORDER"
56 .S ^SD(409.61,VALM,"COL",4,0)="CONV^60^10^CONVFACT"
57 .S ^SD(409.61,VALM,"COL",5,0)="ONHAND^70^10^QTY ONHAND"
58 .S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPER"
59 .S ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
60 .S ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPER"
61 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
62 .W "Filed."
63 ;
64 W !,"'PRCP DIST ORDER PROCESSING' List Template..."
65 S DA=$O(^SD(409.61,"B","PRCP DIST ORDER PROCESSING",0)),DIK="^SD(409.61," D ^DIK:DA
66 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PRCP DIST ORDER PROCESSING" D FILE^DICN S VALM=+Y
67 I VALM>0 D
68 .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"
69 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
70 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP($J,""PRCPOP"")"
71 .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
72 .S ^SD(409.61,VALM,"COL",1,0)="ITEM^2^40^ITEM DESCRIPTION^H"
73 .S ^SD(409.61,VALM,"COL",2,0)="UNIT^46^2^UI"
74 .S ^SD(409.61,VALM,"COL",3,0)="ORDERED^50^10^ORDERED"
75 .S ^SD(409.61,VALM,"COL",4,0)="CONV^60^10^CONVFACT"
76 .S ^SD(409.61,VALM,"COL",5,0)="ONHAND^70^10^QTY ONHAND"
77 .S ^SD(409.61,VALM,"FNL")="D EXIT^PRCPOPL"
78 .S ^SD(409.61,VALM,"HDR")="D HDR^PRCPOPL"
79 .S ^SD(409.61,VALM,"INIT")="D INIT^PRCPOPL"
80 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
81 .W "Filed."
82 ;
83 G ^PRCPL1
Note: See TracBrowser for help on using the repository browser.