source: WorldVistAEHR/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPPSL.m@ 724

PPPPSL ; List Template Exporter ; 13-MAR-1995
 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
 W !,"'PPP FFX DISPLAY' List Template..."
 S DA=$O(^SD(409.61,"B","PPP FFX DISPLAY",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP FFX DISPLAY" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="PPP FFX DISPLAY^2^^^6^16^1^1^PPP FFX ENTRY^^PPP V1.0 - FFX DATA DISPLAY^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL2"",$J)"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPEDT13"
 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPEDT12"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPEDT13"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'PPP FFX REPORTS' List Template..."
 S DA=$O(^SD(409.61,"B","PPP FFX REPORTS",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP FFX REPORTS" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="PPP FFX REPORTS^2^^^8^21^1^1^PPP FFX ENTRY^^PPP V1.0 - FFX REPORT DISPLAY^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL6"",$J)"
 .S ^SD(409.61,VALM,"COL",0)="^409.621"
 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPPRT29"
 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPPRT29"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPPRT29"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'PPP LOG DISPL' List Template..."
 S DA=$O(^SD(409.61,"B","PPP LOG DISPL",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP LOG DISPL" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="PPP LOG DISPL^2^^^6^20^1^1^^^Display PPP Log^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL5"",$J)"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^6^3"
 .S ^SD(409.61,VALM,"COL",4,0)="DATE^2^25^Date/Time"
 .S ^SD(409.61,VALM,"COL",5,0)="USER^30^25^User"
 .S ^SD(409.61,VALM,"COL",6,0)="ROUTINE^67^12^Routine"
 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPPRT11"
 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPPRT11"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPPRT11"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'PPP PRINT' List Template..."
 S DA=$O(^SD(409.61,"B","PPP PRINT",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP PRINT" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="PPP PRINT^2^^^8^21^1^1^PPP FFX ENTRY^^PPP V1.0 - FFX REPORT DISPLAY^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPPL6"",$J)"
 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPPRT29"
 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPPRT29"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPPRT29"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'PPP PROFILE' List Template..."
 S DA=$O(^SD(409.61,"B","PPP PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="PPP PROFILE" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="PPP PROFILE^2^^^6^18^1^1^Prescription^^Medication Profile"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""PPP"",$J,""LIST"")"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^6^6"
 .S ^SD(409.61,VALM,"COL",1,0)="RX#^1^7^  RX#"
 .S ^SD(409.61,VALM,"COL",2,0)="DRUG^9^30^DRUG"
 .S ^SD(409.61,VALM,"COL",3,0)="STATUS^41^2^ST"
 .S ^SD(409.61,VALM,"COL",4,0)="QTY^45^5^QTY"
 .S ^SD(409.61,VALM,"COL",5,0)="ISSUED^51^13^ISSUED"
 .S ^SD(409.61,VALM,"COL",6,0)="LAST FILLED^65^13^LAST FILLED"
 .S ^SD(409.61,VALM,"FNL")="D FNL^PPPDSP3"
 .S ^SD(409.61,VALM,"HDR")="D HDR^PPPDSP3"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1"
 .S ^SD(409.61,VALM,"INIT")="D INIT^PPPDSP3"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 G ^PPPPSL1