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 Apr 09, 2024@21:46:09 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
