PSO817PI.m

PSO817PI ;BHAM/JLG - PSO*7*817 POST-INSTALL; 05/11/2026 11:24Am

 ;;7.0;OUTPATIENT PHARMACY;**817**;DEC 1997;Build 7

 ;

EN ; Entry Point - Update ERX SERVICE REASON CODES file (52.45) with 'CNX' code

 Q:$D(^PS(52.45,"B","CNX"))

 K DIC S DIC="^PS(52.45,",DIC(0)="",X="CNX"

 S DIC("DR")=".02///MANUAL OR AUTO-CANCELRX RESPONSE NOT SENT;.03///ERX"

 D FILE^DICN

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSO817PI   369     printed  Sep 17, 2026@21:09:42                                                                                                                                                                                                     Page 2

PSO817PI  ;BHAM/JLG - PSO*7*817 POST-INSTALL; 05/11/2026 11:24Am

 +1       ;;7.0;OUTPATIENT PHARMACY;**817**;DEC 1997;Build 7

 +2       ;

EN        ; Entry Point - Update ERX SERVICE REASON CODES file (52.45) with 'CNX' code

 +1        if $DATA(^PS(52.45,"B","CNX"))

               QUIT 

 +2        KILL DIC

           SET DIC="^PS(52.45,"

           SET DIC(0)=""

           SET X="CNX"

 +3        SET DIC("DR")=".02///MANUAL OR AUTO-CANCELRX RESPONSE NOT SENT;.03///ERX"

 +4        DO FILE^DICN

 +5        QUIT