Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDTMP704

SDTMP704.m

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