- PSJ311PO ;BIR/LE-Post Install routine for patch PSJ*5*311 ;06/12/14
- ;;5.0;INPATIENT MEDICATIONS ;**311**;9/30/97;Build 5
- ;
- QUE ;
- N NAMSP,PATCH,JOBN,ZTSK,ZTRTN,ZTIO,ZTDTH,ZTDESC,Y,ZTQUEUED,ZTREQ,ZTSAVE,CNT,SBJM
- S NAMSP="PSJ311PO"
- S JOBN="PSJ*5*311 Post Install"
- S PATCH="PSJ*5*311"
- S Y=$$NOW^XLFDT S ZTDTH=$$FMTH^XLFDT(Y)
- ;
- D BMES^XPDUTL("=============================================================")
- D MES^XPDUTL("Queuing background job for "_JOBN_"...")
- D MES^XPDUTL("Start time: "_$$HTE^XLFDT(ZTDTH))
- D MES^XPDUTL("A MailMan message will be sent to the installer upon Post")
- D MES^XPDUTL("Install Completion. This may take 2-3 hours.")
- D MES^XPDUTL("==============================================================")
- ;
- S ZTRTN="EN^"_NAMSP,ZTIO=""
- S (SBJM,ZTDESC)="Background job for "_JOBN
- S ZTSAVE("JOBN")="",ZTSAVE("ZTDTH")="",ZTSAVE("DUZ")="",ZTSAVE("SBJM")=""
- D ^%ZTLOAD
- D:$D(ZTSK)
- . D MES^XPDUTL("*** Task #"_ZTSK_" Queued! ***")
- . D BMES^XPDUTL("")
- . S ZTSAVE("ZTSK")=""
- D BMES^XPDUTL("")
- K XPDQUES
- Q
- ;
- EN ;Do Mail Message
- N DFN,DA,STARTH,STOPH,SUBJ
- S STARTH=$$HTE^XLFDT(ZTDTH)
- K DIK S DIK="^PS(53.1,",DIK(1)="113^CIMO" D ENALL^DIK
- K DIK S DFN=0 F S DFN=$O(^PS(55,DFN)) Q:'DFN S DA(1)=DFN D
- .S DIK="^PS(55,"_DA(1)_",5,",DIK(1)="130^CIMOU" D ENALL^DIK
- .S DIK="^PS(55,"_DA(1)_",5,",DIK(1)="130^CIMOCLU" D ENALL^DIK
- .S DIK="^PS(55,"_DA(1)_","_"""IV"""_",",DIK(1)="136^CIMOI" D ENALL^DIK
- .S DIK="^PS(55,"_DA(1)_","_"""IV"""_",",DIK(1)="136^CIMOCLI" D ENALL^DIK
- K DIK
- ;
- ;Send message
- S CNT=1
- S Y=$$NOW^XLFDT S STOPH=$$FMTH^XLFDT(Y),STOPH=$$HTE^XLFDT(STOPH)
- S SUBJ="PSJ*5*311 POST INSTALL Complete"
- S MSG(CNT)="The new cross references for clinic orders have been created:",CNT=CNT+1
- S MSG(CNT)=" File 53.1 - CIMO",CNT=CNT+1
- S MSG(CNT)=" File 55 - CIMOU and CIMOCLU for Unit Dose Sub-file.",CNT=CNT+1
- S MSG(CNT)=" File 55 - CIMOI AND CIMOCLI for IV Sub-file.",CNT=CNT+1
- S MSG(CNT)=" ",CNT=CNT+1
- S MSG(CNT)="The background job "_ZTSK_" began "_STARTH_" and ",CNT=CNT+1
- S MSG(CNT)="ended "_STOPH_".",CNT=CNT+1
- D MAIL(.MSG,SUBJ)
- Q
- ;
- MAIL(MSG,SBJ) ; Send out some mail!
- N DIFROM,XMDUZ,XMSUB,XMTEXT,XMY,I
- S XMDUZ="INPT PHARMACY",XMSUB=SBJM,XMTEXT="MSG("
- S XMY(DUZ)=""
- D ^XMD
- Q ""
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJ311PO 2316 printed Feb 18, 2025@23:32:13 Page 2
- PSJ311PO ;BIR/LE-Post Install routine for patch PSJ*5*311 ;06/12/14
- +1 ;;5.0;INPATIENT MEDICATIONS ;**311**;9/30/97;Build 5
- +2 ;
- QUE ;
- +1 NEW NAMSP,PATCH,JOBN,ZTSK,ZTRTN,ZTIO,ZTDTH,ZTDESC,Y,ZTQUEUED,ZTREQ,ZTSAVE,CNT,SBJM
- +2 SET NAMSP="PSJ311PO"
- +3 SET JOBN="PSJ*5*311 Post Install"
- +4 SET PATCH="PSJ*5*311"
- +5 SET Y=$$NOW^XLFDT
- SET ZTDTH=$$FMTH^XLFDT(Y)
- +6 ;
- +7 DO BMES^XPDUTL("=============================================================")
- +8 DO MES^XPDUTL("Queuing background job for "_JOBN_"...")
- +9 DO MES^XPDUTL("Start time: "_$$HTE^XLFDT(ZTDTH))
- +10 DO MES^XPDUTL("A MailMan message will be sent to the installer upon Post")
- +11 DO MES^XPDUTL("Install Completion. This may take 2-3 hours.")
- +12 DO MES^XPDUTL("==============================================================")
- +13 ;
- +14 SET ZTRTN="EN^"_NAMSP
- SET ZTIO=""
- +15 SET (SBJM,ZTDESC)="Background job for "_JOBN
- +16 SET ZTSAVE("JOBN")=""
- SET ZTSAVE("ZTDTH")=""
- SET ZTSAVE("DUZ")=""
- SET ZTSAVE("SBJM")=""
- +17 DO ^%ZTLOAD
- +18 if $DATA(ZTSK)
- Begin DoDot:1
- +19 DO MES^XPDUTL("*** Task #"_ZTSK_" Queued! ***")
- +20 DO BMES^XPDUTL("")
- +21 SET ZTSAVE("ZTSK")=""
- End DoDot:1
- +22 DO BMES^XPDUTL("")
- +23 KILL XPDQUES
- +24 QUIT
- +25 ;
- EN ;Do Mail Message
- +1 NEW DFN,DA,STARTH,STOPH,SUBJ
- +2 SET STARTH=$$HTE^XLFDT(ZTDTH)
- +3 KILL DIK
- SET DIK="^PS(53.1,"
- SET DIK(1)="113^CIMO"
- DO ENALL^DIK
- +4 KILL DIK
- SET DFN=0
- FOR
- SET DFN=$ORDER(^PS(55,DFN))
- if 'DFN
- QUIT
- SET DA(1)=DFN
- Begin DoDot:1
- +5 SET DIK="^PS(55,"_DA(1)_",5,"
- SET DIK(1)="130^CIMOU"
- DO ENALL^DIK
- +6 SET DIK="^PS(55,"_DA(1)_",5,"
- SET DIK(1)="130^CIMOCLU"
- DO ENALL^DIK
- +7 SET DIK="^PS(55,"_DA(1)_","_"""IV"""_","
- SET DIK(1)="136^CIMOI"
- DO ENALL^DIK
- +8 SET DIK="^PS(55,"_DA(1)_","_"""IV"""_","
- SET DIK(1)="136^CIMOCLI"
- DO ENALL^DIK
- End DoDot:1
- +9 KILL DIK
- +10 ;
- +11 ;Send message
- +12 SET CNT=1
- +13 SET Y=$$NOW^XLFDT
- SET STOPH=$$FMTH^XLFDT(Y)
- SET STOPH=$$HTE^XLFDT(STOPH)
- +14 SET SUBJ="PSJ*5*311 POST INSTALL Complete"
- +15 SET MSG(CNT)="The new cross references for clinic orders have been created:"
- SET CNT=CNT+1
- +16 SET MSG(CNT)=" File 53.1 - CIMO"
- SET CNT=CNT+1
- +17 SET MSG(CNT)=" File 55 - CIMOU and CIMOCLU for Unit Dose Sub-file."
- SET CNT=CNT+1
- +18 SET MSG(CNT)=" File 55 - CIMOI AND CIMOCLI for IV Sub-file."
- SET CNT=CNT+1
- +19 SET MSG(CNT)=" "
- SET CNT=CNT+1
- +20 SET MSG(CNT)="The background job "_ZTSK_" began "_STARTH_" and "
- SET CNT=CNT+1
- +21 SET MSG(CNT)="ended "_STOPH_"."
- SET CNT=CNT+1
- +22 DO MAIL(.MSG,SUBJ)
- +23 QUIT
- +24 ;
- MAIL(MSG,SBJ) ; Send out some mail!
- +1 NEW DIFROM,XMDUZ,XMSUB,XMTEXT,XMY,I
- +2 SET XMDUZ="INPT PHARMACY"
- SET XMSUB=SBJM
- SET XMTEXT="MSG("
- +3 SET XMY(DUZ)=""
- +4 DO ^XMD
- +5 QUIT ""
- +6 ;
