- ORY201 ;slc/dcm - Post/Pre inits for patch OR*3.0*201
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**201**;Dec 17, 1997
- PRE ; -- preinit
- ;
- Q
- ;
- POST ; -- postinit
- ;
- Q
- ;
- SENDRPT(ANAME) ;Return true if the current report should be sent.
- I ANAME="ORRPW PCE IMMUNIZATION" Q 1
- I ANAME="ORRPW PCE SKIN TEST" Q 1
- I ANAME="ORRPW ADT DISAB" Q 1
- Q 0
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY201 356 printed Jan 18, 2025@03:40:13 Page 2
- ORY201 ;slc/dcm - Post/Pre inits for patch OR*3.0*201
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**201**;Dec 17, 1997
- PRE ; -- preinit
- +1 ;
- +2 QUIT
- +3 ;
- POST ; -- postinit
- +1 ;
- +2 QUIT
- +3 ;
- SENDRPT(ANAME) ;Return true if the current report should be sent.
- +1 IF ANAME="ORRPW PCE IMMUNIZATION"
- QUIT 1
- +2 IF ANAME="ORRPW PCE SKIN TEST"
- QUIT 1
- +3 IF ANAME="ORRPW ADT DISAB"
- QUIT 1
- +4 QUIT 0