TIU165D ; SLC/MAM - Data for Post-Install for TIU*1*165;6/24/03
;;1.0;Text Integration Utilities;**165**;Jun 20, 1997
;
SETDATA ; Set more data for DDEFS (Basic data set in TIUEN165)
; -- DDEF Number 1: PATIENT RECORD FLAG CAT I DC
; -- DDEF Number 2: PATIENT RECORD FLAG CAT II DC
; -- DDEF Number 3: PATIENT RECORD FLAG CATEGORY I DOC
; -- DDEF Number 4: PATIENT RECORD FLAG CATEGORY II - RISK, FALL DOC
; -- DDEF Number 5: PATIENT RECORD FLAG CATEGORY II - RISK, WANDERING DOC
; -- DDEF Number 6: PATIENT RECORD FLAG CATEGORY II - RESEARCH STUDY DOC
; -- DDEF Number 7: PATIENT RECORD FLAG CATEGORY II - INFECTIOUS DISEASE DOC
; -- Set Print Name, Owner, Status, Exterior Type,
; National, for call to FILE^DIE:
N TIUI S TIUI=0
F TIUI=1:1:7 D
. S ^XTMP("TIU165","FILEDATA",TIUI,.03)=^XTMP("TIU165","BASICS",TIUI,"NAME")
. S ^XTMP("TIU165","FILEDATA",TIUI,.06)="CLINICAL COORDINATOR"
. S ^XTMP("TIU165","FILEDATA",TIUI,.07)=$S(TIUI<4:"ACTIVE",1:"TEST")
. S ^XTMP("TIU165","FILEDATA",TIUI,.04)=$S(TIUI>2:"TITLE",1:"DOCUMENT CLASS")
. S ^XTMP("TIU165","FILEDATA",TIUI,.13)=$S(TIUI>3:"NO",1:"YES")
; -- Set Parent:
; -- Set PIEN node = IEN of parent if known, or if not,
; set PNUM node = DDEF# of parent
; Parent must exist by the time this DDEF is created:
S ^XTMP("TIU165","DATA",1,"PIEN")=3
S ^XTMP("TIU165","DATA",1,"MENUTXT")="Pat Record Flag Cat I"
S ^XTMP("TIU165","DATA",2,"PIEN")=3
S ^XTMP("TIU165","DATA",2,"MENUTXT")="Pat Record Flag Cat II"
S ^XTMP("TIU165","DATA",3,"PNUM")=1
S ^XTMP("TIU165","DATA",3,"MENUTXT")="Pat Record Flag Cat I"
S ^XTMP("TIU165","DATA",4,"PNUM")=2
S ^XTMP("TIU165","DATA",4,"MENUTXT")="PRF Cat II Risk, Fall"
S ^XTMP("TIU165","DATA",5,"PNUM")=2
S ^XTMP("TIU165","DATA",5,"MENUTXT")="PRF Cat II Risk, Wandering"
S ^XTMP("TIU165","DATA",6,"PNUM")=2
S ^XTMP("TIU165","DATA",6,"MENUTXT")="PRF Cat II Research Study"
S ^XTMP("TIU165","DATA",7,"PNUM")=2
S ^XTMP("TIU165","DATA",7,"MENUTXT")="PRF Cat II Infectious Disease"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU165D 2061 printed Dec 13, 2024@02:38:20 Page 2
TIU165D ; SLC/MAM - Data for Post-Install for TIU*1*165;6/24/03
+1 ;;1.0;Text Integration Utilities;**165**;Jun 20, 1997
+2 ;
SETDATA ; Set more data for DDEFS (Basic data set in TIUEN165)
+1 ; -- DDEF Number 1: PATIENT RECORD FLAG CAT I DC
+2 ; -- DDEF Number 2: PATIENT RECORD FLAG CAT II DC
+3 ; -- DDEF Number 3: PATIENT RECORD FLAG CATEGORY I DOC
+4 ; -- DDEF Number 4: PATIENT RECORD FLAG CATEGORY II - RISK, FALL DOC
+5 ; -- DDEF Number 5: PATIENT RECORD FLAG CATEGORY II - RISK, WANDERING DOC
+6 ; -- DDEF Number 6: PATIENT RECORD FLAG CATEGORY II - RESEARCH STUDY DOC
+7 ; -- DDEF Number 7: PATIENT RECORD FLAG CATEGORY II - INFECTIOUS DISEASE DOC
+8 ; -- Set Print Name, Owner, Status, Exterior Type,
+9 ; National, for call to FILE^DIE:
+10 NEW TIUI
SET TIUI=0
+11 FOR TIUI=1:1:7
Begin DoDot:1
+12 SET ^XTMP("TIU165","FILEDATA",TIUI,.03)=^XTMP("TIU165","BASICS",TIUI,"NAME")
+13 SET ^XTMP("TIU165","FILEDATA",TIUI,.06)="CLINICAL COORDINATOR"
+14 SET ^XTMP("TIU165","FILEDATA",TIUI,.07)=$SELECT(TIUI<4:"ACTIVE",1:"TEST")
+15 SET ^XTMP("TIU165","FILEDATA",TIUI,.04)=$SELECT(TIUI>2:"TITLE",1:"DOCUMENT CLASS")
+16 SET ^XTMP("TIU165","FILEDATA",TIUI,.13)=$SELECT(TIUI>3:"NO",1:"YES")
End DoDot:1
+17 ; -- Set Parent:
+18 ; -- Set PIEN node = IEN of parent if known, or if not,
+19 ; set PNUM node = DDEF# of parent
+20 ; Parent must exist by the time this DDEF is created:
+21 SET ^XTMP("TIU165","DATA",1,"PIEN")=3
+22 SET ^XTMP("TIU165","DATA",1,"MENUTXT")="Pat Record Flag Cat I"
+23 SET ^XTMP("TIU165","DATA",2,"PIEN")=3
+24 SET ^XTMP("TIU165","DATA",2,"MENUTXT")="Pat Record Flag Cat II"
+25 SET ^XTMP("TIU165","DATA",3,"PNUM")=1
+26 SET ^XTMP("TIU165","DATA",3,"MENUTXT")="Pat Record Flag Cat I"
+27 SET ^XTMP("TIU165","DATA",4,"PNUM")=2
+28 SET ^XTMP("TIU165","DATA",4,"MENUTXT")="PRF Cat II Risk, Fall"
+29 SET ^XTMP("TIU165","DATA",5,"PNUM")=2
+30 SET ^XTMP("TIU165","DATA",5,"MENUTXT")="PRF Cat II Risk, Wandering"
+31 SET ^XTMP("TIU165","DATA",6,"PNUM")=2
+32 SET ^XTMP("TIU165","DATA",6,"MENUTXT")="PRF Cat II Research Study"
+33 SET ^XTMP("TIU165","DATA",7,"PNUM")=2
+34 SET ^XTMP("TIU165","DATA",7,"MENUTXT")="PRF Cat II Infectious Disease"
+35 QUIT
