PSJPST50.m

PSJPST50 ;BIR/MV-POE POST INIT ;6 DEC 00 / 3:11 PM 

 ;;5.0; INPATIENT MEDICATIONS ;**50**;16 DEC 97

 ;

POE ;Queue IV conversion to re-allign OI

 Q:$$PATCH^XPDUTL("PSJ*5.0*50")

 S ZTDTH=$H,ZTRTN="CNIV^PSJUTL1()",ZTIO="",ZTDESC="Inpatient medications order conversion"

 D ^%ZTLOAD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSJPST50   290     printed  Dec 13, 2024@02:08:58                                                                                                                                                                                                     Page 2

PSJPST50  ;BIR/MV-POE POST INIT ;6 DEC 00 / 3:11 PM 

 +1       ;;5.0; INPATIENT MEDICATIONS ;**50**;16 DEC 97

 +2       ;

POE       ;Queue IV conversion to re-allign OI

 +1        if $$PATCH^XPDUTL("PSJ*5.0*50")

               QUIT 

 +2        SET ZTDTH=$HOROLOG

           SET ZTRTN="CNIV^PSJUTL1()"

           SET ZTIO=""

           SET ZTDESC="Inpatient medications order conversion"

 +3        DO ^%ZTLOAD

 +4        QUIT