TIU182D.m

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

 ;

MENUTXT ; -- List ordered 1-13 for menutext.  Cut off at 20 chars

 ;;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

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       ;

MENUTXT   ; -- List ordered 1-13 for menutext.  Cut off at 20 chars

 +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