- 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 Jan 18, 2025@03:31:43 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