| 1 | TIUPS184 ; SLC/JMH - Post-Install for Patient Record Flags II ;4/28/05
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997
|
|---|
| 3 | POST ;
|
|---|
| 4 | N TIUCAT1,TIUCAT2
|
|---|
| 5 | S TIUCAT1=+$$DDEFIEN^TIUFLF7("PATIENT RECORD FLAG CAT I","DC")
|
|---|
| 6 | S TIUCAT2=+$$DDEFIEN^TIUFLF7("PATIENT RECORD FLAG CAT II","DC")
|
|---|
| 7 | I +$G(TIUCAT1) D
|
|---|
| 8 | . S ^TIU(8925.1,TIUCAT1,4)="D LOOKUP^TIUPUTPF"
|
|---|
| 9 | . S ^TIU(8925.1,TIUCAT1,4.4)="D UNLINK^TIUPRF1(TIUDA)"
|
|---|
| 10 | . S ^TIU(8925.1,TIUCAT1,4.45)="D CHANGE^TIUPRF1(TIUDA)"
|
|---|
| 11 | . S ^TIU(8925.1,TIUCAT1,4.5)="D FOLLOWUP^TIUPUTPF(TIUREC(""#""))"
|
|---|
| 12 | . S ^TIU(8925.1,TIUCAT1,4.8)="D PFFIX^TIUPFFIX"
|
|---|
| 13 | . S ^TIU(8925.1,TIUCAT1,5)="[TIU ENTER/EDIT PRF]"
|
|---|
| 14 | . S ^TIU(8925.1,TIUCAT1,6.51)="D UNLINK^TIUPRF1(TIUDA)"
|
|---|
| 15 | I +$G(TIUCAT2) D
|
|---|
| 16 | . S ^TIU(8925.1,TIUCAT2,4)="D LOOKUP^TIUPUTPF"
|
|---|
| 17 | . S ^TIU(8925.1,TIUCAT2,4.4)="D UNLINK^TIUPRF1(TIUDA)"
|
|---|
| 18 | . S ^TIU(8925.1,TIUCAT2,4.45)="D CHANGE^TIUPRF1(TIUDA)"
|
|---|
| 19 | . S ^TIU(8925.1,TIUCAT2,4.5)="D FOLLOWUP^TIUPUTPF(TIUREC(""#""))"
|
|---|
| 20 | . S ^TIU(8925.1,TIUCAT2,4.8)="D PFFIX^TIUPFFIX"
|
|---|
| 21 | . S ^TIU(8925.1,TIUCAT2,5)="[TIU ENTER/EDIT PRF]"
|
|---|
| 22 | . S ^TIU(8925.1,TIUCAT2,6.51)="D UNLINK^TIUPRF1(TIUDA)"
|
|---|
| 23 | Q
|
|---|
