SDTMP733.m

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 ---SDTMP733   2546     printed  Apr 09, 2024@21:45:09                                                                                                                                                                                                    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      ;