TIU137D ; SLC/MAM - Data for Post-Install for TIU*1*137;5/24/03
;;1.0;Text Integration Utilities;**137**;Jun 20, 1997
;
SETDATA ; Set more data for DDEFS (Basic data set in TIUEN137)
; DDEF Number 1: LR LABORATORY REPORTS CL
; DDEF Number 2: LR ANATOMIC PATHOLOGY DC
; DDEF Number 3: LR AUTOPSY REPORT TL
; DDEF Number 4: LR CYTOPATHOLOGY REPORT TL
; DDEF Number 5: LR ELECTRON MICROSCOPY REPORT TL
; DDEF Number 6: LR SURGICAL PATHOLOGY REPORT
; -- Set Print Name, Owner, Status, National:
N TIUI S TIUI=0
F TIUI=1:1:6 D
. S ^XTMP("TIU137","FILEDATA",TIUI,.03)=^XTMP("TIU137","BASICS",TIUI,"NAME")
. S ^XTMP("TIU137","FILEDATA",TIUI,.06)="CLINICAL COORDINATOR"
. S ^XTMP("TIU137","FILEDATA",TIUI,.07)="ACTIVE"
. S ^XTMP("TIU137","FILEDATA",TIUI,.13)="YES"
; -- Set Exterior Type:
S ^XTMP("TIU137","FILEDATA",1,.04)="CLASS"
S ^XTMP("TIU137","FILEDATA",2,.04)="DOCUMENT CLASS"
N TIUI S TIUI=0
F TIUI=3:1:6 S ^XTMP("TIU137","FILEDATA",TIUI,.04)="TITLE"
; -- 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("TIU137","DATA",1,"PIEN")=38
S ^XTMP("TIU137","DATA",1,"MENUTXT")="Laboratory Reports"
S ^XTMP("TIU137","DATA",2,"PNUM")=1
S ^XTMP("TIU137","DATA",2,"MENUTXT")="Anatomic Pathology"
S ^XTMP("TIU137","DATA",3,"PNUM")=2
S ^XTMP("TIU137","DATA",3,"MENUTXT")="Autopsy Report"
S ^XTMP("TIU137","DATA",4,"PNUM")=2
S ^XTMP("TIU137","DATA",4,"MENUTXT")="Cytopathology Report"
S ^XTMP("TIU137","DATA",5,"PNUM")=2
S ^XTMP("TIU137","DATA",5,"MENUTXT")="Electron Microscopy"
S ^XTMP("TIU137","DATA",6,"PNUM")=2
S ^XTMP("TIU137","DATA",6,"MENUTXT")="Surgical Pathology R"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU137D 1787 printed Oct 16, 2024@18:38:56 Page 2
TIU137D ; SLC/MAM - Data for Post-Install for TIU*1*137;5/24/03
+1 ;;1.0;Text Integration Utilities;**137**;Jun 20, 1997
+2 ;
SETDATA ; Set more data for DDEFS (Basic data set in TIUEN137)
+1 ; DDEF Number 1: LR LABORATORY REPORTS CL
+2 ; DDEF Number 2: LR ANATOMIC PATHOLOGY DC
+3 ; DDEF Number 3: LR AUTOPSY REPORT TL
+4 ; DDEF Number 4: LR CYTOPATHOLOGY REPORT TL
+5 ; DDEF Number 5: LR ELECTRON MICROSCOPY REPORT TL
+6 ; DDEF Number 6: LR SURGICAL PATHOLOGY REPORT
+7 ; -- Set Print Name, Owner, Status, National:
+8 NEW TIUI
SET TIUI=0
+9 FOR TIUI=1:1:6
Begin DoDot:1
+10 SET ^XTMP("TIU137","FILEDATA",TIUI,.03)=^XTMP("TIU137","BASICS",TIUI,"NAME")
+11 SET ^XTMP("TIU137","FILEDATA",TIUI,.06)="CLINICAL COORDINATOR"
+12 SET ^XTMP("TIU137","FILEDATA",TIUI,.07)="ACTIVE"
+13 SET ^XTMP("TIU137","FILEDATA",TIUI,.13)="YES"
End DoDot:1
+14 ; -- Set Exterior Type:
+15 SET ^XTMP("TIU137","FILEDATA",1,.04)="CLASS"
+16 SET ^XTMP("TIU137","FILEDATA",2,.04)="DOCUMENT CLASS"
+17 NEW TIUI
SET TIUI=0
+18 FOR TIUI=3:1:6
SET ^XTMP("TIU137","FILEDATA",TIUI,.04)="TITLE"
+19 ; -- Set Parent:
+20 ; -- Set PIEN node = IEN of parent if known, or if not,
+21 ; set PNUM node = DDEF# of parent
+22 ; Parent must exist by the time this DDEF is created:
+23 SET ^XTMP("TIU137","DATA",1,"PIEN")=38
+24 SET ^XTMP("TIU137","DATA",1,"MENUTXT")="Laboratory Reports"
+25 SET ^XTMP("TIU137","DATA",2,"PNUM")=1
+26 SET ^XTMP("TIU137","DATA",2,"MENUTXT")="Anatomic Pathology"
+27 SET ^XTMP("TIU137","DATA",3,"PNUM")=2
+28 SET ^XTMP("TIU137","DATA",3,"MENUTXT")="Autopsy Report"
+29 SET ^XTMP("TIU137","DATA",4,"PNUM")=2
+30 SET ^XTMP("TIU137","DATA",4,"MENUTXT")="Cytopathology Report"
+31 SET ^XTMP("TIU137","DATA",5,"PNUM")=2
+32 SET ^XTMP("TIU137","DATA",5,"MENUTXT")="Electron Microscopy"
+33 SET ^XTMP("TIU137","DATA",6,"PNUM")=2
+34 SET ^XTMP("TIU137","DATA",6,"MENUTXT")="Surgical Pathology R"
+35 QUIT
