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)"
 Q