TIU137D.m

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 ---TIU137D   1787     printed  Mar 13, 2025@21:43:11                                                                                                                                                                                                     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