source: FOIAVistA/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPPSL.m@ 1806

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

initial load of FOIAVistA 6/30/08 version
File size: 3.8 KB
Line 
1PPPPSL ; List Template Exporter ; 13-MAR-1995
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 W !,"'PPP FFX DISPLAY' List Template..."
4 S DA=$O(^SD(409.61,"B","PPP FFX DISPLAY",0)),DIK="^SD(409.61," D ^DIK:DA
5 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP FFX DISPLAY" D FILE^DICN S VALM=+Y
6 I VALM>0 D
7 .S ^SD(409.61,VALM,0)="PPP FFX DISPLAY^2^^^6^16^1^1^PPP FFX ENTRY^^PPP V1.0 - FFX DATA DISPLAY^1"
8 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
9 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL2"",$J)"
10 .S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
11 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPEDT13"
12 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPEDT12"
13 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
14 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPEDT13"
15 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
16 .W "Filed."
17 ;
18 W !,"'PPP FFX REPORTS' List Template..."
19 S DA=$O(^SD(409.61,"B","PPP FFX REPORTS",0)),DIK="^SD(409.61," D ^DIK:DA
20 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP FFX REPORTS" D FILE^DICN S VALM=+Y
21 I VALM>0 D
22 .S ^SD(409.61,VALM,0)="PPP FFX REPORTS^2^^^8^21^1^1^PPP FFX ENTRY^^PPP V1.0 - FFX REPORT DISPLAY^1"
23 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
24 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL6"",$J)"
25 .S ^SD(409.61,VALM,"COL",0)="^409.621"
26 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPPRT29"
27 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPPRT29"
28 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
29 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPPRT29"
30 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
31 .W "Filed."
32 ;
33 W !,"'PPP LOG DISPL' List Template..."
34 S DA=$O(^SD(409.61,"B","PPP LOG DISPL",0)),DIK="^SD(409.61," D ^DIK:DA
35 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP LOG DISPL" D FILE^DICN S VALM=+Y
36 I VALM>0 D
37 .S ^SD(409.61,VALM,0)="PPP LOG DISPL^2^^^6^20^1^1^^^Display PPP Log^1"
38 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
39 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL5"",$J)"
40 .S ^SD(409.61,VALM,"COL",0)="^409.621^6^3"
41 .S ^SD(409.61,VALM,"COL",4,0)="DATE^2^25^Date/Time"
42 .S ^SD(409.61,VALM,"COL",5,0)="USER^30^25^User"
43 .S ^SD(409.61,VALM,"COL",6,0)="ROUTINE^67^12^Routine"
44 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPPRT11"
45 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPPRT11"
46 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
47 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPPRT11"
48 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
49 .W "Filed."
50 ;
51 W !,"'PPP PRINT' List Template..."
52 S DA=$O(^SD(409.61,"B","PPP PRINT",0)),DIK="^SD(409.61," D ^DIK:DA
53 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP PRINT" D FILE^DICN S VALM=+Y
54 I VALM>0 D
55 .S ^SD(409.61,VALM,0)="PPP PRINT^2^^^8^21^1^1^PPP FFX ENTRY^^PPP V1.0 - FFX REPORT DISPLAY^1"
56 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
57 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL6"",$J)"
58 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPPRT29"
59 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPPRT29"
60 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
61 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPPRT29"
62 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
63 .W "Filed."
64 ;
65 W !,"'PPP PROFILE' List Template..."
66 S DA=$O(^SD(409.61,"B","PPP PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
67 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP PROFILE" D FILE^DICN S VALM=+Y
68 I VALM>0 D
69 .S ^SD(409.61,VALM,0)="PPP PROFILE^2^^^6^18^1^1^Prescription^^Medication Profile"
70 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPP"",$J,""LIST"")"
71 .S ^SD(409.61,VALM,"COL",0)="^409.621^6^6"
72 .S ^SD(409.61,VALM,"COL",1,0)="RX#^1^7^ RX#"
73 .S ^SD(409.61,VALM,"COL",2,0)="DRUG^9^30^DRUG"
74 .S ^SD(409.61,VALM,"COL",3,0)="STATUS^41^2^ST"
75 .S ^SD(409.61,VALM,"COL",4,0)="QTY^45^5^QTY"
76 .S ^SD(409.61,VALM,"COL",5,0)="ISSUED^51^13^ISSUED"
77 .S ^SD(409.61,VALM,"COL",6,0)="LAST FILLED^65^13^LAST FILLED"
78 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPDSP3"
79 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPDSP3"
80 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1"
81 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPDSP3"
82 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
83 .W "Filed."
84 ;
85 G ^PPPPSL1
Note: See TracBrowser for help on using the repository browser.