- 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 Mar 13, 2025@22:06:36 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 ;
