Routine: TIUPS184

TIUPS184 ; SLC/JMH - Post-Install for Patient Record Flags II ;4/28/05

 ;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997

POST ;

 N TIUCAT1,TIUCAT2

 S TIUCAT1=+$$DDEFIEN^TIUFLF7("PATIENT RECORD FLAG CAT I","DC")

 S TIUCAT2=+$$DDEFIEN^TIUFLF7("PATIENT RECORD FLAG CAT II","DC")

 I +$G(TIUCAT1) D

 . S ^TIU(8925.1,TIUCAT1,4)="D LOOKUP^TIUPUTPF"

 . S ^TIU(8925.1,TIUCAT1,4.4)="D UNLINK^TIUPRF1(TIUDA)"

 . S ^TIU(8925.1,TIUCAT1,4.45)="D CHANGE^TIUPRF1(TIUDA)"

 . S ^TIU(8925.1,TIUCAT1,4.5)="D FOLLOWUP^TIUPUTPF(TIUREC(""#""))"

 . S ^TIU(8925.1,TIUCAT1,4.8)="D PFFIX^TIUPFFIX"

 . S ^TIU(8925.1,TIUCAT1,5)="[TIU ENTER/EDIT PRF]"

 . S ^TIU(8925.1,TIUCAT1,6.51)="D UNLINK^TIUPRF1(TIUDA)"

 I +$G(TIUCAT2) D

 . S ^TIU(8925.1,TIUCAT2,4)="D LOOKUP^TIUPUTPF"

 . S ^TIU(8925.1,TIUCAT2,4.4)="D UNLINK^TIUPRF1(TIUDA)"

 . S ^TIU(8925.1,TIUCAT2,4.45)="D CHANGE^TIUPRF1(TIUDA)"

 . S ^TIU(8925.1,TIUCAT2,4.5)="D FOLLOWUP^TIUPUTPF(TIUREC(""#""))"

 . S ^TIU(8925.1,TIUCAT2,4.8)="D PFFIX^TIUPFFIX"

 . S ^TIU(8925.1,TIUCAT2,5)="[TIU ENTER/EDIT PRF]"

 . S ^TIU(8925.1,TIUCAT2,6.51)="D UNLINK^TIUPRF1(TIUDA)"

TIUPS184  ; SLC/JMH - Post-Install for Patient Record Flags II ;4/28/05

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997

POST      ;

 +1        NEW TIUCAT1,TIUCAT2

 +2        SET TIUCAT1=+$$DDEFIEN^TIUFLF7("PATIENT RECORD FLAG CAT I","DC")

 +3        SET TIUCAT2=+$$DDEFIEN^TIUFLF7("PATIENT RECORD FLAG CAT II","DC")

 +4        IF +$GET(TIUCAT1)

               Begin DoDot:1

 +5                SET ^TIU(8925.1,TIUCAT1,4)="D LOOKUP^TIUPUTPF"

 +6                SET ^TIU(8925.1,TIUCAT1,4.4)="D UNLINK^TIUPRF1(TIUDA)"

 +7                SET ^TIU(8925.1,TIUCAT1,4.45)="D CHANGE^TIUPRF1(TIUDA)"

 +8                SET ^TIU(8925.1,TIUCAT1,4.5)="D FOLLOWUP^TIUPUTPF(TIUREC(""#""))"

 +9                SET ^TIU(8925.1,TIUCAT1,4.8)="D PFFIX^TIUPFFIX"

 +10               SET ^TIU(8925.1,TIUCAT1,5)="[TIU ENTER/EDIT PRF]"

 +11               SET ^TIU(8925.1,TIUCAT1,6.51)="D UNLINK^TIUPRF1(TIUDA)"

               End DoDot:1

 +12       IF +$GET(TIUCAT2)

               Begin DoDot:1

 +13               SET ^TIU(8925.1,TIUCAT2,4)="D LOOKUP^TIUPUTPF"

 +14               SET ^TIU(8925.1,TIUCAT2,4.4)="D UNLINK^TIUPRF1(TIUDA)"

 +15               SET ^TIU(8925.1,TIUCAT2,4.45)="D CHANGE^TIUPRF1(TIUDA)"

 +16               SET ^TIU(8925.1,TIUCAT2,4.5)="D FOLLOWUP^TIUPUTPF(TIUREC(""#""))"

 +17               SET ^TIU(8925.1,TIUCAT2,4.8)="D PFFIX^TIUPFFIX"

 +18               SET ^TIU(8925.1,TIUCAT2,5)="[TIU ENTER/EDIT PRF]"

 +19               SET ^TIU(8925.1,TIUCAT2,6.51)="D UNLINK^TIUPRF1(TIUDA)"

               End DoDot:1

 +20       QUIT

TIUPS184.m