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 Dec 13, 2024@02:39:05 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
