source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPS184.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1TIUPS184 ; SLC/JMH - Post-Install for Patient Record Flags II ;4/28/05
2 ;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997
3POST ;
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
Note: See TracBrowser for help on using the repository browser.