APCHS7X.m

APCHS7X ; IHS/CMI/LAB - HEALTH SUMMARY COMPONENTS ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

 ;

 ;

OPIOID ;EP - opioid status

 Q:'$D(^AUPNOPIU(APCHSPAT))

 X APCHSBRK

 I $D(^AUPNOPIU(APCHSPAT)) D

 .W "Maintenance Opioid: ",$$VAL^XBDIQ1(9000027,APCHSPAT,.02),?45,"Date of MOS: ",$$VAL^XBDIQ1(9000027,APCHSPAT,.03),!,"OxyContin: ",$$VAL^XBDIQ1(9000027,APCHSPAT,.04)

 .W ?45,"Date: ",$$VAL^XBDIQ1(9000027,APCHSPAT,.05),!

 Q

APCHS7X   ; IHS/CMI/LAB - HEALTH SUMMARY COMPONENTS ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

 +3       ;

 +4       ;

OPIOID    ;EP - opioid status

 +1        IF '$DATA(^AUPNOPIU(APCHSPAT))

               QUIT 

 +2        XECUTE APCHSBRK

 +3        IF $DATA(^AUPNOPIU(APCHSPAT))

               Begin DoDot:1

 +4                WRITE "Maintenance Opioid: ",$$VAL^XBDIQ1(9000027,APCHSPAT,.02),?45,"Date of MOS: ",$$VAL^XBDIQ1(9000027,APCHSPAT,.03),!,"OxyContin: ",$$VAL^XBDIQ1(9000027,APCHSPAT,.04)

 +5                WRITE ?45,"Date: ",$$VAL^XBDIQ1(9000027,APCHSPAT,.05),!

               End DoDot:1

 +6        QUIT