source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIU165D.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1TIU165D ; SLC/MAM - Data for Post-Install for TIU*1*165;6/24/03
2 ;;1.0;Text Integration Utilities;**165**;Jun 20, 1997
3 ;
4SETDATA ; Set more data for DDEFS (Basic data set in TIUEN165)
5 ; -- DDEF Number 1: PATIENT RECORD FLAG CAT I DC
6 ; -- DDEF Number 2: PATIENT RECORD FLAG CAT II DC
7 ; -- DDEF Number 3: PATIENT RECORD FLAG CATEGORY I DOC
8 ; -- DDEF Number 4: PATIENT RECORD FLAG CATEGORY II - RISK, FALL DOC
9 ; -- DDEF Number 5: PATIENT RECORD FLAG CATEGORY II - RISK, WANDERING DOC
10 ; -- DDEF Number 6: PATIENT RECORD FLAG CATEGORY II - RESEARCH STUDY DOC
11 ; -- DDEF Number 7: PATIENT RECORD FLAG CATEGORY II - INFECTIOUS DISEASE DOC
12 ; -- Set Print Name, Owner, Status, Exterior Type,
13 ; National, for call to FILE^DIE:
14 N TIUI S TIUI=0
15 F TIUI=1:1:7 D
16 . S ^XTMP("TIU165","FILEDATA",TIUI,.03)=^XTMP("TIU165","BASICS",TIUI,"NAME")
17 . S ^XTMP("TIU165","FILEDATA",TIUI,.06)="CLINICAL COORDINATOR"
18 . S ^XTMP("TIU165","FILEDATA",TIUI,.07)=$S(TIUI<4:"ACTIVE",1:"TEST")
19 . S ^XTMP("TIU165","FILEDATA",TIUI,.04)=$S(TIUI>2:"TITLE",1:"DOCUMENT CLASS")
20 . S ^XTMP("TIU165","FILEDATA",TIUI,.13)=$S(TIUI>3:"NO",1:"YES")
21 ; -- Set Parent:
22 ; -- Set PIEN node = IEN of parent if known, or if not,
23 ; set PNUM node = DDEF# of parent
24 ; Parent must exist by the time this DDEF is created:
25 S ^XTMP("TIU165","DATA",1,"PIEN")=3
26 S ^XTMP("TIU165","DATA",1,"MENUTXT")="Pat Record Flag Cat I"
27 S ^XTMP("TIU165","DATA",2,"PIEN")=3
28 S ^XTMP("TIU165","DATA",2,"MENUTXT")="Pat Record Flag Cat II"
29 S ^XTMP("TIU165","DATA",3,"PNUM")=1
30 S ^XTMP("TIU165","DATA",3,"MENUTXT")="Pat Record Flag Cat I"
31 S ^XTMP("TIU165","DATA",4,"PNUM")=2
32 S ^XTMP("TIU165","DATA",4,"MENUTXT")="PRF Cat II Risk, Fall"
33 S ^XTMP("TIU165","DATA",5,"PNUM")=2
34 S ^XTMP("TIU165","DATA",5,"MENUTXT")="PRF Cat II Risk, Wandering"
35 S ^XTMP("TIU165","DATA",6,"PNUM")=2
36 S ^XTMP("TIU165","DATA",6,"MENUTXT")="PRF Cat II Research Study"
37 S ^XTMP("TIU165","DATA",7,"PNUM")=2
38 S ^XTMP("TIU165","DATA",7,"MENUTXT")="PRF Cat II Infectious Disease"
39 Q
Note: See TracBrowser for help on using the repository browser.