| [613] | 1 | PPPPSL1 ; 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
|
|---|
