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 ---[H[J[2J[HGMPL15P 1159 printed Dec 13, 2024@02:29:41 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
