PSSDRINT ;BIR/WRT-REPORT OF LOCALLY ADDED DRUG INTERACTIONS ;09/11/98 13:21
;;1.0;PHARMACY DATA MANAGEMENT;**22**;9/30/97
;
; reference to ^PS(56 supported by IA #2133
;
W !!,"This report gives you a printed copy of locally added drug interactions and ",!,"their severity. You may queue the report to print, if you wish.",!
S DIC="^PS(56,",L=0,FLDS="[PSNLOCAL]",BY="NATIONALLY ENTERED=""""",DHD="LOCALLY ADDED DRUG INTERACTION LIST" D EN1^DIP
K DIC,DHD,BY,FLDS,L
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSDRINT 482 printed Dec 13, 2024@02:31:02 Page 2
PSSDRINT ;BIR/WRT-REPORT OF LOCALLY ADDED DRUG INTERACTIONS ;09/11/98 13:21
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**22**;9/30/97
+2 ;
+3 ; reference to ^PS(56 supported by IA #2133
+4 ;
+5 WRITE !!,"This report gives you a printed copy of locally added drug interactions and ",!,"their severity. You may queue the report to print, if you wish.",!
+6 SET DIC="^PS(56,"
SET L=0
SET FLDS="[PSNLOCAL]"
SET BY="NATIONALLY ENTERED="""""
SET DHD="LOCALLY ADDED DRUG INTERACTION LIST"
DO EN1^DIP
+7 KILL DIC,DHD,BY,FLDS,L
+8 QUIT
