SDTMP733 ;;MS/PB - TMP POST INSTALL;SEP 16, 2019
;;5.3;Scheduling;**733**;SEP 16, 2019;Build 72
;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
ATMP1 ; Changes the execution to be at the record level and not the field level.
;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")="R",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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDTMP733 2546 printed Dec 13, 2024@03:01:31 Page 2
SDTMP733 ;;MS/PB - TMP POST INSTALL;SEP 16, 2019
+1 ;;5.3;Scheduling;**733**;SEP 16, 2019;Build 72
+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
ATMP1 ; Changes the execution to be at the record level and not the field level.
+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")="R"
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 ;
