24 lines
1.1 KiB
Mathematica
24 lines
1.1 KiB
Mathematica
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
|