- SDTMP704 ;;MS/PB - TMP POST INSTALL;July 05, 2018
- ;;5.3;Scheduling;**704**;May 29, 2018;Build 64
- ;Post install routine to create new indexes in Patch SD*5.3*704
- ;This routine will be deleted at the end of the install
- ;by the KIDS install process
- Q
- EN ;
- D LINK
- D ATMP1
- D AX298
- D AY298
- Q
- LINK ; update the TMP_Send Link
- N LIEN,OPSITE,DOMAIN,VAL,SDERR
- S VAL="TMP_Send"
- S LIEN=$$FIND1^DIC(870,,"B",.VAL) ;Q:'LIEN
- I $G(LIEN)>0 D
- .S FDA(870,LIEN_",",.02)=$$KSP^XUPARAM("INST") ; site station number
- .S FDA(870,LIEN_",",4.5)=1 ; auto start
- .S FDA(870,LIEN_",",400.01)="vaauscluhshhl7rtr401.aac.domain.ext" ; ip address
- .S FDA(870,LIEN_",",400.02)=6950 ; hl7 port
- .S FDA(870,LIEN_",",400.08)=6950 ; hlo port
- .D UPDATE^DIE(,"FDA","SDERR") K FDA
- .D MES^XPDUTL("")
- I $G(LIEN)'>0 D
- .K DIC,DIC(0),X,Y,DLAYGO
- .S DIC="^HLCS(870,",DLAYGO=870,DIC(0)="L",X="TMP_SEND" D FILE^DICN
- .I +$G(Y)'>0 D MES^XPDUTL("Unable to create the new TMP_SEND HL Logical Link.")
- .S LIEN=+Y
- .S FDA(870,LIEN_",",.02)=$$KSP^XUPARAM("INST") ; site station number
- .S FDA(870,LIEN_",",4.5)=1 ; auto start
- .S FDA(870,LIEN_",",400.01)="vaauscluhshhl7rtr401.aac.domain.ext" ; ip address
- .S FDA(870,LIEN_",",400.02)=6950 ; hl7 port
- .S FDA(870,LIEN_",",400.08)=6950 ; hlo port
- .D UPDATE^DIE(,"FDA","SDERR") K FDA
- .D MES^XPDUTL("")
- .Q
- I $D(SDERR) D Q ; something went wrong
- .D MES^XPDUTL("FileMan error when editing the TMP_Send Link.")
- D MES^XPDUTL("TMP_Send Link has been updated.")
- Q
- ATMP1 ; creates a new style index on the Hospital Location File (#44)
- ;Q:$O(^DD("IX","BB",44,"ATMP1",0))
- N SDTMPX,SDTMPY
- S SDTMPX("FILE")=44,SDTMPX("NAME")="ATMP1"
- I $O(^DD("IX","BB",SDTMPX("FILE"),SDTMPX("NAME"),0)) D DELIXN^DDMOD(SDTMPX("FILE"),SDTMPX("NAME"))
- S SDTMPX("TYPE")="MU",SDTMPX("USE")="A"
- S SDTMPX("EXECUTION")="F",SDTMPX("ACTIVITY")="IR"
- S SDTMPX("SHORT DESCR")="TMP HL7"
- S SDTMPX("DESCR",1)="The Tele Health Management Platform (TMP) application"
- S SDTMPX("DESCR",2)="allows users to schedule and cancel appointments in VistA."
- S SDTMPX("DESCR",3)="TMP needs to be kept up to date with specific clinic"
- S SDTMPX("DESCR",4)="information in order to be able to accurately display"
- S SDTMPX("DESCR",5)="clinic information."
- S SDTMPX("DESCR",6)=""
- S SDTMPX("DESCR",7)="This index will trigger an update to be sent to the TMP"
- S SDTMPX("DESCR",8)="platform via HL7 when one of the fields below is edited for"
- S SDTMPX("DESCR",9)="a tele health clinic or if a new tele health clinic is"
- S SDTMPX("DESCR",10)="added. Tele health clinics are identified by either the"
- S SDTMPX("DESCR",11)="Stop Code Number (primary stop code) or the Credit Stop"
- S SDTMPX("DESCR",12)="Code (secondary stop code)."
- S SDTMPX("DESCR",13)=""
- S SDTMPX("DESCR",14)="Name (#.01) Stop Code Number (#8) Credit Stop Code (#2504)"
- S SDTMPX("DESCR",15)="Service (#9) Treating Specialty (#9.5) Overbooks/Day"
- S SDTMPX("DESCR",16)="Maximum (#1918) Inactivate Date (#2505) Reactivate Date"
- S SDTMPX("DESCR",17)="(#2506)."
- S SDTMPX("SET CONDITION")="S X=X1(1)'=""""!X1(2)'=""""!X1(3)'=""""!X1(4)'=""""!X1(5)'=""""!X1(6)'=""""!X1(7)'=""""!X1(8)'=""""!X1(9)'="""""
- S SDTMPX("SET")="D EN^SDTMPHLB(DA)"
- S SDTMPX("KILL")="Q"
- ;S SDTMPX("WHOLE KILL")="Q"
- S SDTMPX("VAL",1)=.01 ;Name
- S SDTMPX("VAL",2)=8 ;Stop Code Number
- S SDTMPX("VAL",3)=2503 ;Credit Stop Code
- S SDTMPX("VAL",4)=9.5 ;Treating Specialty
- S SDTMPX("VAL",5)=9 ;Service
- S SDTMPX("VAL",6)=16 ;Default Provider
- S SDTMPX("VAL",7)=1918 ;Overbooks/Day Maximum
- S SDTMPX("VAL",8)=2505 ;Inactive date
- S SDTMPX("VAL",9)=2506 ;Reactivate date
- D CREIXN^DDMOD(.SDTMPX,"",.SDTMPY) ;SDTMPY=ien^name of index
- I +$G(SDTMPY)>0 N IEN S IEN=+SDTMPY,^DD("IX",IEN,"NOREINDEX")=1
- Q
- ;
- AX298 ; creates the ATMP1 cross reference in the appointment multiple in the patient file.
- ;Q:$O(^DD("IX","BB",2,"AX",0))
- N SDTMPX,SDTMPY
- S SDTMPX("FILE")=2,SDTMPX("NAME")="AX",SDTMPX("ROOT FILE")=2.98
- I $O(^DD("IX","BB",SDTMPX("FILE"),SDTMPX("NAME"),0)) D DELIXN^DDMOD(SDTMPX("FILE"),SDTMPX("NAME"))
- S SDTMPX("TYPE")="MU",SDTMPX("USE")="A"
- S SDTMPX("EXECUTION")="R",SDTMPX("ACTIVITY")="IR"
- S SDTMPX("SHORT DESCR")="Action cross reference to send HL7 notification to TMP when a new appt is made."
- S SDTMPX("DESCR",1)="The Tele Health Management Platform (TMP)"
- S SDTMPX("DESCR",2)="application allows users to schedule and cancel"
- S SDTMPX("DESCR",3)="tele health appointments in VistA. TMP needs to"
- S SDTMPX("DESCR",4)="be kept up to date with appointments scheduled"
- S SDTMPX("DESCR",5)="by other applications in order to be able to"
- S SDTMPX("DESCR",6)="accurately display open appointment slots. This"
- S SDTMPX("DESCR",7)="index will trigger an HL7 message sent to TMP"
- S SDTMPX("DESCR",8)="that will update the clinic's and patient's"
- S SDTMPX("DESCR",9)="appointments in the TMP database system."
- S SDTMPX("SET CONDITION")="S X=X1(1)="""""
- S SDTMPX("SET")="D EN^SDTMPHLA(DA(1),DA)"
- S SDTMPX("KILL")="Q"
- ;S SDTMPX("WHOLE KILL")="Q"
- S SDTMPX("VAL",1)=.01 ;Name
- D CREIXN^DDMOD(.SDTMPX,"",.SDTMPY) ;SDTMPY=ien^name of index
- I +$G(SDTMPY)>0 N IEN S IEN=+SDTMPY,^DD("IX",IEN,"NOREINDEX")=1
- Q
- ;
- AY298 ; creates the ATMP1 cross reference in the appointment multiple in the patient file.
- ;Q:$O(^DD("IX","BB",2,"AY",0))
- N SDTMPX,SDTMPY
- S SDTMPX("FILE")=2,SDTMPX("NAME")="AY",SDTMPX("ROOT FILE")=2.98
- I $O(^DD("IX","BB",SDTMPX("FILE"),SDTMPX("NAME"),0)) D DELIXN^DDMOD(SDTMPX("FILE"),SDTMPX("NAME"))
- S SDTMPX("TYPE")="MU",SDTMPX("USE")="A"
- S SDTMPX("EXECUTION")="F",SDTMPX("ACTIVITY")="IR"
- S SDTMPX("SHORT DESCR")="Action cross reference to send an HL7 notification when an appt is cancelled."
- S SDTMPX("DESCR",1)="The Tele Health Management Platform (TMP)"
- S SDTMPX("DESCR",2)="application allows users to schedule and cancel"
- S SDTMPX("DESCR",3)="tele health appointments in VistA. TMP needs to"
- S SDTMPX("DESCR",4)="be kept up to date with appointments are"
- S SDTMPX("DESCR",5)="cancelled by other applications in order to be"
- S SDTMPX("DESCR",6)="able to accurately display open appointment"
- S SDTMPX("DESCR",7)="slots. This index will trigger an HL7 message"
- S SDTMPX("DESCR",8)="sent to TMP that will update the clinic's and "
- S SDTMPX("DESCR",9)="patient's appointments in the TMP database"
- S SDTMPX("DESCR",10)="system to reflect the cancellation."
- S SDTMPX("SET CONDITION")="S X=X1(1)="""""
- S SDTMPX("SET")="D EN^SDTMPHLA(DA(1),DA)"
- S SDTMPX("KILL")="Q"
- ;S SDTMPX("WHOLE KILL")="Q"
- S SDTMPX("VAL",1)=3 ;Status
- D CREIXN^DDMOD(.SDTMPX,"",.SDTMPY) ;SDTMPY=ien^name of index
- I +$G(SDTMPY)>0 N IEN S IEN=+SDTMPY,^DD("IX",IEN,"NOREINDEX")=1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDTMP704 6740 printed Feb 19, 2025@00:28 Page 2
- SDTMP704 ;;MS/PB - TMP POST INSTALL;July 05, 2018
- +1 ;;5.3;Scheduling;**704**;May 29, 2018;Build 64
- +2 ;Post install routine to create new indexes in Patch SD*5.3*704
- +3 ;This routine will be deleted at the end of the install
- +4 ;by the KIDS install process
- +5 QUIT
- EN ;
- +1 DO LINK
- +2 DO ATMP1
- +3 DO AX298
- +4 DO AY298
- +5 QUIT
- LINK ; update the TMP_Send Link
- +1 NEW LIEN,OPSITE,DOMAIN,VAL,SDERR
- +2 SET VAL="TMP_Send"
- +3 ;Q:'LIEN
- SET LIEN=$$FIND1^DIC(870,,"B",.VAL)
- +4 IF $GET(LIEN)>0
- Begin DoDot:1
- +5 ; site station number
- SET FDA(870,LIEN_",",.02)=$$KSP^XUPARAM("INST")
- +6 ; auto start
- SET FDA(870,LIEN_",",4.5)=1
- +7 ; ip address
- SET FDA(870,LIEN_",",400.01)="vaauscluhshhl7rtr401.aac.domain.ext"
- +8 ; hl7 port
- SET FDA(870,LIEN_",",400.02)=6950
- +9 ; hlo port
- SET FDA(870,LIEN_",",400.08)=6950
- +10 DO UPDATE^DIE(,"FDA","SDERR")
- KILL FDA
- +11 DO MES^XPDUTL("")
- End DoDot:1
- +12 IF $GET(LIEN)'>0
- Begin DoDot:1
- +13 KILL DIC,DIC(0),X,Y,DLAYGO
- +14 SET DIC="^HLCS(870,"
- SET DLAYGO=870
- SET DIC(0)="L"
- SET X="TMP_SEND"
- DO FILE^DICN
- +15 IF +$GET(Y)'>0
- DO MES^XPDUTL("Unable to create the new TMP_SEND HL Logical Link.")
- +16 SET LIEN=+Y
- +17 ; site station number
- SET FDA(870,LIEN_",",.02)=$$KSP^XUPARAM("INST")
- +18 ; auto start
- SET FDA(870,LIEN_",",4.5)=1
- +19 ; ip address
- SET FDA(870,LIEN_",",400.01)="vaauscluhshhl7rtr401.aac.domain.ext"
- +20 ; hl7 port
- SET FDA(870,LIEN_",",400.02)=6950
- +21 ; hlo port
- SET FDA(870,LIEN_",",400.08)=6950
- +22 DO UPDATE^DIE(,"FDA","SDERR")
- KILL FDA
- +23 DO MES^XPDUTL("")
- +24 QUIT
- End DoDot:1
- +25 ; something went wrong
- IF $DATA(SDERR)
- Begin DoDot:1
- +26 DO MES^XPDUTL("FileMan error when editing the TMP_Send Link.")
- End DoDot:1
- QUIT
- +27 DO MES^XPDUTL("TMP_Send Link has been updated.")
- +28 QUIT
- ATMP1 ; creates a new style index on the Hospital Location File (#44)
- +1 ;Q:$O(^DD("IX","BB",44,"ATMP1",0))
- +2 NEW SDTMPX,SDTMPY
- +3 SET SDTMPX("FILE")=44
- SET SDTMPX("NAME")="ATMP1"
- +4 IF $ORDER(^DD("IX","BB",SDTMPX("FILE"),SDTMPX("NAME"),0))
- DO DELIXN^DDMOD(SDTMPX("FILE"),SDTMPX("NAME"))
- +5 SET SDTMPX("TYPE")="MU"
- SET SDTMPX("USE")="A"
- +6 SET SDTMPX("EXECUTION")="F"
- SET SDTMPX("ACTIVITY")="IR"
- +7 SET SDTMPX("SHORT DESCR")="TMP HL7"
- +8 SET SDTMPX("DESCR",1)="The Tele Health Management Platform (TMP) application"
- +9 SET SDTMPX("DESCR",2)="allows users to schedule and cancel appointments in VistA."
- +10 SET SDTMPX("DESCR",3)="TMP needs to be kept up to date with specific clinic"
- +11 SET SDTMPX("DESCR",4)="information in order to be able to accurately display"
- +12 SET SDTMPX("DESCR",5)="clinic information."
- +13 SET SDTMPX("DESCR",6)=""
- +14 SET SDTMPX("DESCR",7)="This index will trigger an update to be sent to the TMP"
- +15 SET SDTMPX("DESCR",8)="platform via HL7 when one of the fields below is edited for"
- +16 SET SDTMPX("DESCR",9)="a tele health clinic or if a new tele health clinic is"
- +17 SET SDTMPX("DESCR",10)="added. Tele health clinics are identified by either the"
- +18 SET SDTMPX("DESCR",11)="Stop Code Number (primary stop code) or the Credit Stop"
- +19 SET SDTMPX("DESCR",12)="Code (secondary stop code)."
- +20 SET SDTMPX("DESCR",13)=""
- +21 SET SDTMPX("DESCR",14)="Name (#.01) Stop Code Number (#8) Credit Stop Code (#2504)"
- +22 SET SDTMPX("DESCR",15)="Service (#9) Treating Specialty (#9.5) Overbooks/Day"
- +23 SET SDTMPX("DESCR",16)="Maximum (#1918) Inactivate Date (#2505) Reactivate Date"
- +24 SET SDTMPX("DESCR",17)="(#2506)."
- +25 SET SDTMPX("SET CONDITION")="S X=X1(1)'=""""!X1(2)'=""""!X1(3)'=""""!X1(4)'=""""!X1(5)'=""""!X1(6)'=""""!X1(7)'=""""!X1(8)'=""""!X1(9)'="""""
- +26 SET SDTMPX("SET")="D EN^SDTMPHLB(DA)"
- +27 SET SDTMPX("KILL")="Q"
- +28 ;S SDTMPX("WHOLE KILL")="Q"
- +29 ;Name
- SET SDTMPX("VAL",1)=.01
- +30 ;Stop Code Number
- SET SDTMPX("VAL",2)=8
- +31 ;Credit Stop Code
- SET SDTMPX("VAL",3)=2503
- +32 ;Treating Specialty
- SET SDTMPX("VAL",4)=9.5
- +33 ;Service
- SET SDTMPX("VAL",5)=9
- +34 ;Default Provider
- SET SDTMPX("VAL",6)=16
- +35 ;Overbooks/Day Maximum
- SET SDTMPX("VAL",7)=1918
- +36 ;Inactive date
- SET SDTMPX("VAL",8)=2505
- +37 ;Reactivate date
- SET SDTMPX("VAL",9)=2506
- +38 ;SDTMPY=ien^name of index
- DO CREIXN^DDMOD(.SDTMPX,"",.SDTMPY)
- +39 IF +$GET(SDTMPY)>0
- NEW IEN
- SET IEN=+SDTMPY
- SET ^DD("IX",IEN,"NOREINDEX")=1
- +40 QUIT
- +41 ;
- AX298 ; creates the ATMP1 cross reference in the appointment multiple in the patient file.
- +1 ;Q:$O(^DD("IX","BB",2,"AX",0))
- +2 NEW SDTMPX,SDTMPY
- +3 SET SDTMPX("FILE")=2
- SET SDTMPX("NAME")="AX"
- SET SDTMPX("ROOT FILE")=2.98
- +4 IF $ORDER(^DD("IX","BB",SDTMPX("FILE"),SDTMPX("NAME"),0))
- DO DELIXN^DDMOD(SDTMPX("FILE"),SDTMPX("NAME"))
- +5 SET SDTMPX("TYPE")="MU"
- SET SDTMPX("USE")="A"
- +6 SET SDTMPX("EXECUTION")="R"
- SET SDTMPX("ACTIVITY")="IR"
- +7 SET SDTMPX("SHORT DESCR")="Action cross reference to send HL7 notification to TMP when a new appt is made."
- +8 SET SDTMPX("DESCR",1)="The Tele Health Management Platform (TMP)"
- +9 SET SDTMPX("DESCR",2)="application allows users to schedule and cancel"
- +10 SET SDTMPX("DESCR",3)="tele health appointments in VistA. TMP needs to"
- +11 SET SDTMPX("DESCR",4)="be kept up to date with appointments scheduled"
- +12 SET SDTMPX("DESCR",5)="by other applications in order to be able to"
- +13 SET SDTMPX("DESCR",6)="accurately display open appointment slots. This"
- +14 SET SDTMPX("DESCR",7)="index will trigger an HL7 message sent to TMP"
- +15 SET SDTMPX("DESCR",8)="that will update the clinic's and patient's"
- +16 SET SDTMPX("DESCR",9)="appointments in the TMP database system."
- +17 SET SDTMPX("SET CONDITION")="S X=X1(1)="""""
- +18 SET SDTMPX("SET")="D EN^SDTMPHLA(DA(1),DA)"
- +19 SET SDTMPX("KILL")="Q"
- +20 ;S SDTMPX("WHOLE KILL")="Q"
- +21 ;Name
- SET SDTMPX("VAL",1)=.01
- +22 ;SDTMPY=ien^name of index
- DO CREIXN^DDMOD(.SDTMPX,"",.SDTMPY)
- +23 IF +$GET(SDTMPY)>0
- NEW IEN
- SET IEN=+SDTMPY
- SET ^DD("IX",IEN,"NOREINDEX")=1
- +24 QUIT
- +25 ;
- AY298 ; creates the ATMP1 cross reference in the appointment multiple in the patient file.
- +1 ;Q:$O(^DD("IX","BB",2,"AY",0))
- +2 NEW SDTMPX,SDTMPY
- +3 SET SDTMPX("FILE")=2
- SET SDTMPX("NAME")="AY"
- SET SDTMPX("ROOT FILE")=2.98
- +4 IF $ORDER(^DD("IX","BB",SDTMPX("FILE"),SDTMPX("NAME"),0))
- DO DELIXN^DDMOD(SDTMPX("FILE"),SDTMPX("NAME"))
- +5 SET SDTMPX("TYPE")="MU"
- SET SDTMPX("USE")="A"
- +6 SET SDTMPX("EXECUTION")="F"
- SET SDTMPX("ACTIVITY")="IR"
- +7 SET SDTMPX("SHORT DESCR")="Action cross reference to send an HL7 notification when an appt is cancelled."
- +8 SET SDTMPX("DESCR",1)="The Tele Health Management Platform (TMP)"
- +9 SET SDTMPX("DESCR",2)="application allows users to schedule and cancel"
- +10 SET SDTMPX("DESCR",3)="tele health appointments in VistA. TMP needs to"
- +11 SET SDTMPX("DESCR",4)="be kept up to date with appointments are"
- +12 SET SDTMPX("DESCR",5)="cancelled by other applications in order to be"
- +13 SET SDTMPX("DESCR",6)="able to accurately display open appointment"
- +14 SET SDTMPX("DESCR",7)="slots. This index will trigger an HL7 message"
- +15 SET SDTMPX("DESCR",8)="sent to TMP that will update the clinic's and "
- +16 SET SDTMPX("DESCR",9)="patient's appointments in the TMP database"
- +17 SET SDTMPX("DESCR",10)="system to reflect the cancellation."
- +18 SET SDTMPX("SET CONDITION")="S X=X1(1)="""""
- +19 SET SDTMPX("SET")="D EN^SDTMPHLA(DA(1),DA)"
- +20 SET SDTMPX("KILL")="Q"
- +21 ;S SDTMPX("WHOLE KILL")="Q"
- +22 ;Status
- SET SDTMPX("VAL",1)=3
- +23 ;SDTMPY=ien^name of index
- DO CREIXN^DDMOD(.SDTMPX,"",.SDTMPY)
- +24 IF +$GET(SDTMPY)>0
- NEW IEN
- SET IEN=+SDTMPY
- SET ^DD("IX",IEN,"NOREINDEX")=1
- +25 QUIT