TIU165D.m

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 ---TIU165D   2061     printed  Apr 09, 2024@21:48:16                                                                                                                                                                                                     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