- PSOLMDA ;BHAM ISC/LC - DETAILED ALLERGY LIST ; 13-MAR-1995
- ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
- EN ; -- main entry point for PSO LM DETAILED ALLERGY
- D EN^VALM("PSO LM DETAILED ALLERGY")
- Q
- ;
- HDR ; -- header code
- D HDR^PSOLMUTL
- Q
- ;
- INIT ; -- init variables and list array
- S:'$G(DFN) DFN=PSODFN D BEG^PSOORDA(DFN)
- S VALMCNT=PSODA
- Q
- HELP ; -- help code
- S X="?" D DISP^XQORM1 W !!
- Q
- ;
- EXIT ; -- exit code
- K AGN,PSOAL,PSOALL,PSODA,VALMSG
- S PSOQFLG=1 Q
- ;
- EXPND ; -- expand code
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOLMDA 517 printed Feb 18, 2025@23:57:15 Page 2
- PSOLMDA ;BHAM ISC/LC - DETAILED ALLERGY LIST ; 13-MAR-1995
- +1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
- EN ; -- main entry point for PSO LM DETAILED ALLERGY
- +1 DO EN^VALM("PSO LM DETAILED ALLERGY")
- +2 QUIT
- +3 ;
- HDR ; -- header code
- +1 DO HDR^PSOLMUTL
- +2 QUIT
- +3 ;
- INIT ; -- init variables and list array
- +1 if '$GET(DFN)
- SET DFN=PSODFN
- DO BEG^PSOORDA(DFN)
- +2 SET VALMCNT=PSODA
- +3 QUIT
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 KILL AGN,PSOAL,PSOALL,PSODA,VALMSG
- +2 SET PSOQFLG=1
- QUIT
- +3 ;
- EXPND ; -- expand code
- +1 QUIT
- +2 ;