- 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 Feb 19, 2025@00:04:48 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