GMPL15P.m

GMPL15P ;SLC/JVS -- Post Install Routine ;3/19/99  11:00

 ;;2.0;Problem List;**15,23**;Aug 25, 1994

 ;

 ; This routine should be removed after installing patch 

 ; GMPL*2*23

 Q

EN ;ENTRY POINT

 ;This will update the new cross reference that was add

 ;by patch GMPL*2*15

 N IEN,DFN,MODIFIED,MODIFIE1,XPDIDTOT

 K ^AUPNPROB("MODIFIED")

 S IEN=0,XPDIDTOT=$P(^AUPNPROB(0),"^",3)

 F  S IEN=$O(^AUPNPROB(IEN)) Q:IEN<1  D

 . ;D UPDATE^XPDID(IEN)

 . S DFN=$P(^AUPNPROB(IEN,0),"^",2)

 . S MODIFIED=$P(^AUPNPROB(IEN,0),"^",3)

 . I '$D(^AUPNPROB("MODIFIED",DFN)) S ^AUPNPROB("MODIFIED",DFN,MODIFIED)="" Q

 . I $D(^AUPNPROB("MODIFIED",DFN)) S MODIFIE1=$O(^AUPNPROB("MODIFIED",DFN,0))  I MODIFIED>MODIFIE1 K ^AUPNPROB("MODIFIED",DFN) S ^AUPNPROB("MODIFIED",DFN,MODIFIED)="" Q

 Q

TASK ;Task the job of creating the initial Cross Reference

 ;

 S ZTRTN="EN^GMPL15P"

 S ZTDESC="Create Problem List X-ref Patch GMPL*2*15"

 S ZTSAVE=("DUZ")

 S ZTDTH=$H

 S ZTIO=""

 D ^%ZTLOAD

 ;

 I $D(ZTSK) D BMES^XPDUTL("Task Number: "_$G(ZTSK))

 I '$D(ZTSK) D BMES^XPDUTL("TASK JOB DID NOT RUN!")

 I '$D(ZTSK) D MES^XPDUTL("Start Task with  D TASK^GMPL15P")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMPL15P   1159     printed  Feb 18, 2025@23:56:10                                                                                                                                                                                                     Page 2

GMPL15P   ;SLC/JVS -- Post Install Routine ;3/19/99  11:00

 +1       ;;2.0;Problem List;**15,23**;Aug 25, 1994

 +2       ;

 +3       ; This routine should be removed after installing patch 

 +4       ; GMPL*2*23

 +5        QUIT 

EN        ;ENTRY POINT

 +1       ;This will update the new cross reference that was add

 +2       ;by patch GMPL*2*15

 +3        NEW IEN,DFN,MODIFIED,MODIFIE1,XPDIDTOT

 +4        KILL ^AUPNPROB("MODIFIED")

 +5        SET IEN=0

           SET XPDIDTOT=$PIECE(^AUPNPROB(0),"^",3)

 +6        FOR 

               SET IEN=$ORDER(^AUPNPROB(IEN))

               if IEN<1

                   QUIT 

               Begin DoDot:1

 +7       ;D UPDATE^XPDID(IEN)

 +8                SET DFN=$PIECE(^AUPNPROB(IEN,0),"^",2)

 +9                SET MODIFIED=$PIECE(^AUPNPROB(IEN,0),"^",3)

 +10               IF '$DATA(^AUPNPROB("MODIFIED",DFN))

                       SET ^AUPNPROB("MODIFIED",DFN,MODIFIED)=""

                       QUIT 

 +11               IF $DATA(^AUPNPROB("MODIFIED",DFN))

                       SET MODIFIE1=$ORDER(^AUPNPROB("MODIFIED",DFN,0))

                       IF MODIFIED>MODIFIE1

                           KILL ^AUPNPROB("MODIFIED",DFN)

                           SET ^AUPNPROB("MODIFIED",DFN,MODIFIED)=""

                           QUIT 

               End DoDot:1

 +12       QUIT 

TASK      ;Task the job of creating the initial Cross Reference

 +1       ;

 +2        SET ZTRTN="EN^GMPL15P"

 +3        SET ZTDESC="Create Problem List X-ref Patch GMPL*2*15"

 +4        SET ZTSAVE=("DUZ")

 +5        SET ZTDTH=$HOROLOG

 +6        SET ZTIO=""

 +7        DO ^%ZTLOAD

 +8       ;

 +9        IF $DATA(ZTSK)

               DO BMES^XPDUTL("Task Number: "_$GET(ZTSK))

 +10       IF '$DATA(ZTSK)

               DO BMES^XPDUTL("TASK JOB DID NOT RUN!")

 +11       IF '$DATA(ZTSK)

               DO MES^XPDUTL("Start Task with  D TASK^GMPL15P")

 +12       QUIT