source: WorldVistAEHR/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPPSL1.m@ 1710

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

initial load of WorldVistAEHR

File size: 2.9 KB
RevLine 
[613]1PPPPSL1 ; List Template Exporter ; 13-MAR-1995
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 W !,"'PPP UNRESOLVED DOM' List Template..."
4 S DA=$O(^SD(409.61,"B","PPP UNRESOLVED DOM",0)),DIK="^SD(409.61," D ^DIK:DA
5 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP UNRESOLVED DOM" D FILE^DICN S VALM=+Y
6 I VALM>0 D
7 .S ^SD(409.61,VALM,0)="PPP UNRESOLVED DOM^1^^^6^16^1^1^Domains^PPP (MENU) DOM^Edit Domain Entries^1"
8 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
9 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL4"",$J)"
10 .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
11 .S ^SD(409.61,VALM,"COL",1,0)="PATNAME^9^20^Patient Name"
12 .S ^SD(409.61,VALM,"COL",2,0)="INSTITUTION^31^20^Institution"
13 .S ^SD(409.61,VALM,"COL",3,0)="DOMAIN^52^27^Domain"
14 .S ^SD(409.61,VALM,"COL",4,0)="ENTRY^1^6^ Entry"
15 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPEDT21"
16 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPEDT21"
17 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
18 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPEDT21"
19 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
20 .W "Filed."
21 ;
22 W !,"'PPP VISITS' List Template..."
23 S DA=$O(^SD(409.61,"B","PPP VISITS",0)),DIK="^SD(409.61," D ^DIK:DA
24 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP VISITS" D FILE^DICN S VALM=+Y
25 I VALM>0 D
26 .S ^SD(409.61,VALM,0)="PPP VISITS^1^^^6^16^1^1^Facilities^PPP (MENU) VISITS^Other Facilities Visited^1"
27 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
28 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL3"",$J)"
29 .S ^SD(409.61,VALM,"COL",0)="^409.621^6^4"
30 .S ^SD(409.61,VALM,"COL",1,0)="PHDATA^60^20^Pharmacy Data"
31 .S ^SD(409.61,VALM,"COL",2,0)="LASTPDX^21^12^Last PDX"
32 .S ^SD(409.61,VALM,"COL",3,0)="STATUS^33^27^PDX Status"
33 .S ^SD(409.61,VALM,"COL",6,0)="STATION^2^20^Station"
34 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPDSP4"
35 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPDSP4"
36 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
37 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPDSP4"
38 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
39 .W "Filed."
40 ;
41 W !,"'PPP XREF EDIT' List Template..."
42 S DA=$O(^SD(409.61,"B","PPP XREF EDIT",0)),DIK="^SD(409.61," D ^DIK:DA
43 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP XREF EDIT" D FILE^DICN S VALM=+Y
44 I VALM>0 D
45 .S ^SD(409.61,VALM,0)="PPP XREF EDIT^1^^^6^16^1^1^Entry^PPP (MENU) FF XREF^PPP V1.0 Add/Edit DATA^1"
46 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
47 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL1"",$J)"
48 .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
49 .S ^SD(409.61,VALM,"COL",1,0)="ENTRY^2^5^Entry"
50 .S ^SD(409.61,VALM,"COL",2,0)="INST^8^25^Institution"
51 .S ^SD(409.61,VALM,"COL",3,0)="DOMAIN^35^25^Domain"
52 .S ^SD(409.61,VALM,"COL",4,0)="LDATE^61^15^Last Visit"
53 .S ^SD(409.61,VALM,"EXP")="D EXPAND^PPPEDT13"
54 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPEDT12"
55 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPEDT12"
56 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
57 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPEDT12"
58 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
59 .W "Filed."
60 ;
61 K DIC,DIK,VALM,X,DA Q
Note: See TracBrowser for help on using the repository browser.