PSJ007.m

PSJ007 ;BIR/RSB-UTILITY ROUTINE FOR PATCH PSJ*5*7 ; 16 Jun 98 / 12:28 PM

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

 ;

 Q

EN ;  QUEUE UP 53.1 CLEANUP

 S ZTIO="",ZTDTH=$$CON(XPDQUES("POS ONE"))

 S ZTDESC="Inpatient Medications Patch PSJ*5*7 Unit Dose Non-Verified Orders File Cleanup"

 S ZTRTN="START^PSJ007" D ^%ZTLOAD

 I $D(ZTSK) D MES^XPDUTL(" ") D MES^XPDUTL("Task #"_ZTSK_" is queued to run"_$S($D(PSJCONV):" NOW",1:" at "_XPDQUES("POS ONE")))

TEST ; Test text creation.    

 N PM S PM="This task will find and delete entries the NON-VERIFIED/PENDING ORDERS" D MES^XPDUTL(PM)

 S PM="file (#53.1) that have no zero node." D MES^XPDUTL(PM)

 Q

START ;

 N PSJ

 F PSJ=0:0 S PSJ=$O(^PS(53.1,PSJ)) Q:'PSJ  K:'$D(^PS(53.1,PSJ,0)) ^PS(53.1,PSJ)

 S ZTREQ="@"

 Q

 ;

GETDT ; check date/time for job to run

 N %DT,Y S %DT="NRS"

 D ^%DT I Y=-1 K X

 E  S X=Y

 Q

CON(X) ;

 N %DT S %DT="NRS" D ^%DT

 Q Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSJ007   923     printed  Apr 09, 2024@21:08:31                                                                                                                                                                                                       Page 2

PSJ007    ;BIR/RSB-UTILITY ROUTINE FOR PATCH PSJ*5*7 ; 16 Jun 98 / 12:28 PM

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

 +2       ;

 +3        QUIT 

EN        ;  QUEUE UP 53.1 CLEANUP

 +1        SET ZTIO=""

           SET ZTDTH=$$CON(XPDQUES("POS ONE"))

 +2        SET ZTDESC="Inpatient Medications Patch PSJ*5*7 Unit Dose Non-Verified Orders File Cleanup"

 +3        SET ZTRTN="START^PSJ007"

           DO ^%ZTLOAD

 +4        IF $DATA(ZTSK)

               DO MES^XPDUTL(" ")

               DO MES^XPDUTL("Task #"_ZTSK_" is queued to run"_$SELECT($DATA(PSJCONV):" NOW",1:" at "_XPDQUES("POS ONE")))

TEST      ; Test text creation.    

 +1        NEW PM

           SET PM="This task will find and delete entries the NON-VERIFIED/PENDING ORDERS"

           DO MES^XPDUTL(PM)

 +2        SET PM="file (#53.1) that have no zero node."

           DO MES^XPDUTL(PM)

 +3        QUIT 

START     ;

 +1        NEW PSJ

 +2        FOR PSJ=0:0

               SET PSJ=$ORDER(^PS(53.1,PSJ))

               if 'PSJ

                   QUIT 

               if '$DATA(^PS(53.1,PSJ,0))

                   KILL ^PS(53.1,PSJ)

 +3        SET ZTREQ="@"

 +4        QUIT 

 +5       ;

GETDT     ; check date/time for job to run

 +1        NEW %DT,Y

           SET %DT="NRS"

 +2        DO ^%DT

           IF Y=-1

               KILL X

 +3       IF '$TEST

               SET X=Y

 +4        QUIT 

CON(X)    ;

 +1        NEW %DT

           SET %DT="NRS"

           DO ^%DT

 +2        QUIT Y