TIU182D ; SLC/MAM - Data, etc for Post-Install for TIU*1*182 ; 10/5/2004
;;1.0;Text Integration Utilities;**182**;Jun 20, 1997
;
SETDATA ; Set more data for DDEFS
; Basic data set in TIUEN182. See rtn TIUEN182 for ordered list of
;DDEF Names and Types.
; -- Set Print Name, Owner, Status, National into FILEDATA node
; of data array ^TMP("TIU182":
N NUM S NUM=0
F NUM=1:1:13 D
. S ^TMP("TIU182",$J,"FILEDATA",NUM,.03)=$G(^TMP("TIU182",$J,"BASICS",NUM,"NAME")) ;Name node MUST exist. Using $G to ease testing of fewer DDEFS.
. S ^TMP("TIU182",$J,"FILEDATA",NUM,.06)="CLINICAL COORDINATOR"
. S ^TMP("TIU182",$J,"FILEDATA",NUM,.07)="INACTIVE"
. S ^TMP("TIU182",$J,"FILEDATA",NUM,.13)="YES"
; -- Set Document Class to ACTIVE:
S ^TMP("TIU182",$J,"FILEDATA",1,.07)="ACTIVE"
; -- Set Exterior Type:
S ^TMP("TIU182",$J,"FILEDATA",1,.04)="DOCUMENT CLASS"
N NUM S NUM=0
F NUM=2:1:13 S ^TMP("TIU182",$J,"FILEDATA",NUM,.04)="TITLE"
; -- Set Parent and Menu Text into DATA nodes of ^TMP("TIU182":
; -- Set PIEN node = IEN of parent if known, or if not,
; set PNUM node = DDEF# of parent
; Set Parent of Document Class to CLINICAL PROCEDURES Class:
S ^TMP("TIU182",$J,"DATA",1,"PIEN")=$$CLASS^TIUCP
N NUM
F NUM=2:1:13 S ^TMP("TIU182",$J,"DATA",NUM,"PNUM")=1
F NUM=1:1:13 S ^TMP("TIU182",$J,"DATA",NUM,"MENUTXT")=$P($T(MENUTXT+NUM),";;",2,99)
;
PRINT ; Print out results from message array ^TMP("TIU182MSG",$J
N TIUCNT,TIUCONT
I $D(ZTQUEUED) S ZTREQ="@" ; Tell TaskMan to delete Task log entry
I $E(IOST)="C-" W @IOF,!
S TIUCNT="",TIUCONT=1
F S TIUCNT=$O(^TMP("TIU182MSG",$J,TIUCNT)) Q:TIUCNT="" D Q:'TIUCONT
. S TIUCONT=$$SETCONT Q:'TIUCONT
. W ^TMP("TIU182MSG",$J,TIUCNT),!
PRINTX Q
;
STOP() ;on screen paging check
; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0
N DIR,Y,TIUCONT
S DIR(0)="E" D ^DIR
S TIUCONT=Y
I TIUCONT W @IOF,!
Q TIUCONT
;
SETCONT() ; D form feed, Set TIUCONT
N TIUCONT
S TIUCONT=1
I $E(IOST)="C-" G SETX:$Y+5<IOSL
I $E(IOST)="C-" S TIUCONT=$$STOP G SETX
G:$Y+8<IOSL SETX
W @IOF
SETX Q TIUCONT
;
;;Hist Procedures
;;Hist Cardiac Cathete
;;Hist Electrocardiogr
;;Hist Echocardiogram
;;Hist Electrophysiolo
;;Hist Holter Procedur
;;Hist Exercise Tolera
;;Hist Pre/Post Surger
;;Hist Endoscopic Proc
;;Hist Pulmonary Funct
;;Hist Hematology Proc
;;Hist Pacemaker Impla
;;Hist Rheumatology Pr
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU182D 2515 printed Dec 13, 2024@02:38:22 Page 2
TIU182D ; SLC/MAM - Data, etc for Post-Install for TIU*1*182 ; 10/5/2004
+1 ;;1.0;Text Integration Utilities;**182**;Jun 20, 1997
+2 ;
SETDATA ; Set more data for DDEFS
+1 ; Basic data set in TIUEN182. See rtn TIUEN182 for ordered list of
+2 ;DDEF Names and Types.
+3 ; -- Set Print Name, Owner, Status, National into FILEDATA node
+4 ; of data array ^TMP("TIU182":
+5 NEW NUM
SET NUM=0
+6 FOR NUM=1:1:13
Begin DoDot:1
+7 ;Name node MUST exist. Using $G to ease testing of fewer DDEFS.
SET ^TMP("TIU182",$JOB,"FILEDATA",NUM,.03)=$GET(^TMP("TIU182",$JOB,"BASICS",NUM,"NAME"))
+8 SET ^TMP("TIU182",$JOB,"FILEDATA",NUM,.06)="CLINICAL COORDINATOR"
+9 SET ^TMP("TIU182",$JOB,"FILEDATA",NUM,.07)="INACTIVE"
+10 SET ^TMP("TIU182",$JOB,"FILEDATA",NUM,.13)="YES"
End DoDot:1
+11 ; -- Set Document Class to ACTIVE:
+12 SET ^TMP("TIU182",$JOB,"FILEDATA",1,.07)="ACTIVE"
+13 ; -- Set Exterior Type:
+14 SET ^TMP("TIU182",$JOB,"FILEDATA",1,.04)="DOCUMENT CLASS"
+15 NEW NUM
SET NUM=0
+16 FOR NUM=2:1:13
SET ^TMP("TIU182",$JOB,"FILEDATA",NUM,.04)="TITLE"
+17 ; -- Set Parent and Menu Text into DATA nodes of ^TMP("TIU182":
+18 ; -- Set PIEN node = IEN of parent if known, or if not,
+19 ; set PNUM node = DDEF# of parent
+20 ; Set Parent of Document Class to CLINICAL PROCEDURES Class:
+21 SET ^TMP("TIU182",$JOB,"DATA",1,"PIEN")=$$CLASS^TIUCP
+22 NEW NUM
+23 FOR NUM=2:1:13
SET ^TMP("TIU182",$JOB,"DATA",NUM,"PNUM")=1
+24 FOR NUM=1:1:13
SET ^TMP("TIU182",$JOB,"DATA",NUM,"MENUTXT")=$PIECE($TEXT(MENUTXT+NUM),";;",2,99)
+25 ;
PRINT ; Print out results from message array ^TMP("TIU182MSG",$J
+1 NEW TIUCNT,TIUCONT
+2 ; Tell TaskMan to delete Task log entry
IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+3 IF $EXTRACT(IOST)="C-"
WRITE @IOF,!
+4 SET TIUCNT=""
SET TIUCONT=1
+5 FOR
SET TIUCNT=$ORDER(^TMP("TIU182MSG",$JOB,TIUCNT))
if TIUCNT=""
QUIT
Begin DoDot:1
+6 SET TIUCONT=$$SETCONT
if 'TIUCONT
QUIT
+7 WRITE ^TMP("TIU182MSG",$JOB,TIUCNT),!
End DoDot:1
if 'TIUCONT
QUIT
PRINTX QUIT
+1 ;
STOP() ;on screen paging check
+1 ; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0
+2 NEW DIR,Y,TIUCONT
+3 SET DIR(0)="E"
DO ^DIR
+4 SET TIUCONT=Y
+5 IF TIUCONT
WRITE @IOF,!
+6 QUIT TIUCONT
+7 ;
SETCONT() ; D form feed, Set TIUCONT
+1 NEW TIUCONT
+2 SET TIUCONT=1
+3 IF $EXTRACT(IOST)="C-"
if $Y+5<IOSL
GOTO SETX
+4 IF $EXTRACT(IOST)="C-"
SET TIUCONT=$$STOP
GOTO SETX
+5 if $Y+8<IOSL
GOTO SETX
+6 WRITE @IOF
SETX QUIT TIUCONT
+1 ;
+1 ;;Hist Procedures
+2 ;;Hist Cardiac Cathete
+3 ;;Hist Electrocardiogr
+4 ;;Hist Echocardiogram
+5 ;;Hist Electrophysiolo
+6 ;;Hist Holter Procedur
+7 ;;Hist Exercise Tolera
+8 ;;Hist Pre/Post Surger
+9 ;;Hist Endoscopic Proc
+10 ;;Hist Pulmonary Funct
+11 ;;Hist Hematology Proc
+12 ;;Hist Pacemaker Impla
+13 ;;Hist Rheumatology Pr
+14 QUIT
