- PSSXRF1 ;BIR/TTH-Re-Index "AOC" x-ref on DRUG file (#50) ;05 MAY 99
- ;;1.0; PHARMACY DATA MANAGEMENT;**25**;9/30/97
- ;
- Q
- ENNV ; Begin
- K ZTSAVE,ZTSK S ZTRTN="ENQN^PSSXRF1",ZTDESC="PDM patch #25 re-index of ""AOC"" cross-reference",ZTIO="",ZTDTH=$$CON(XPDQUES("POS ONE")) D ^%ZTLOAD
- I $D(ZTSK) D MES^XPDUTL("The re-index of the ""AOC"" cross-reference is queued to run at "_XPDQUES("POS ONE"))
- I $D(ZTSK) D MES^XPDUTL("You will receive a mailman message when task #"_ZTSK_" has completed.")
- Q
- ENQN ; Loop thru VA Drug file (#50).
- D NOW^%DTC N DFN S PSSSTART=$E(%,1,12)
- S DIK="^PSDRUG(",DIK(1)="2^AOCC" D ENALL^DIK K DIK
- D SENDMSG
- Q
- SENDMSG ;Send mail message when check is complete.
- K PSS,XMY S XMDUZ="Pharmacy Data Management",XMSUB="PSS*1*25 Installation Completed",XMTEXT="PSS(",XMY(DUZ)="" D NOW^%DTC S Y=% X ^DD("DD")
- S PSS(1,0)=" The re-index of the ""AOC"" cross-reference completed on "_Y_"."
- D ^XMD
- ;
- DONE ;
- K DA,DIK,PSSSTART,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,ZTDESC,ZTDTH,ZTIO,ZTREQ,ZTRTN,ZTSAVE,ZTSK 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 ---[H[J[2J[HPSSXRF1 1198 printed Feb 19, 2025@00:00:55 Page 2
- PSSXRF1 ;BIR/TTH-Re-Index "AOC" x-ref on DRUG file (#50) ;05 MAY 99
- +1 ;;1.0; PHARMACY DATA MANAGEMENT;**25**;9/30/97
- +2 ;
- +3 QUIT
- ENNV ; Begin
- +1 KILL ZTSAVE,ZTSK
- SET ZTRTN="ENQN^PSSXRF1"
- SET ZTDESC="PDM patch #25 re-index of ""AOC"" cross-reference"
- SET ZTIO=""
- SET ZTDTH=$$CON(XPDQUES("POS ONE"))
- DO ^%ZTLOAD
- +2 IF $DATA(ZTSK)
- DO MES^XPDUTL("The re-index of the ""AOC"" cross-reference is queued to run at "_XPDQUES("POS ONE"))
- +3 IF $DATA(ZTSK)
- DO MES^XPDUTL("You will receive a mailman message when task #"_ZTSK_" has completed.")
- +4 QUIT
- ENQN ; Loop thru VA Drug file (#50).
- +1 DO NOW^%DTC
- NEW DFN
- SET PSSSTART=$EXTRACT(%,1,12)
- +2 SET DIK="^PSDRUG("
- SET DIK(1)="2^AOCC"
- DO ENALL^DIK
- KILL DIK
- +3 DO SENDMSG
- +4 QUIT
- SENDMSG ;Send mail message when check is complete.
- +1 KILL PSS,XMY
- SET XMDUZ="Pharmacy Data Management"
- SET XMSUB="PSS*1*25 Installation Completed"
- SET XMTEXT="PSS("
- SET XMY(DUZ)=""
- DO NOW^%DTC
- SET Y=%
- XECUTE ^DD("DD")
- +2 SET PSS(1,0)=" The re-index of the ""AOC"" cross-reference completed on "_Y_"."
- +3 DO ^XMD
- +4 ;
- DONE ;
- +1 KILL DA,DIK,PSSSTART,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,ZTDESC,ZTDTH,ZTIO,ZTREQ,ZTRTN,ZTSAVE,ZTSK
- SET ZTREQ="@"
- +2 QUIT
- +3 ;
- 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