Routine: ORY201

ORY201 ;slc/dcm - Post/Pre inits for patch OR*3.0*201

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**201**;Dec 17, 1997

PRE ; -- preinit

POST ; -- postinit

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  Apr 09, 2024@21:24:36                                                                                                                                                                                                       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

ORY201.m