ORY201.m

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

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