| [613] | 1 | TIU182D ; SLC/MAM - Data, etc for Post-Install for TIU*1*182 ; 10/5/2004
|
|---|
| 2 | ;;1.0;Text Integration Utilities;**182**;Jun 20, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | SETDATA ; Set more data for DDEFS
|
|---|
| 5 | ; Basic data set in TIUEN182. See rtn TIUEN182 for ordered list of
|
|---|
| 6 | ;DDEF Names and Types.
|
|---|
| 7 | ; -- Set Print Name, Owner, Status, National into FILEDATA node
|
|---|
| 8 | ; of data array ^TMP("TIU182":
|
|---|
| 9 | N NUM S NUM=0
|
|---|
| 10 | F NUM=1:1:13 D
|
|---|
| 11 | . 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.
|
|---|
| 12 | . S ^TMP("TIU182",$J,"FILEDATA",NUM,.06)="CLINICAL COORDINATOR"
|
|---|
| 13 | . S ^TMP("TIU182",$J,"FILEDATA",NUM,.07)="INACTIVE"
|
|---|
| 14 | . S ^TMP("TIU182",$J,"FILEDATA",NUM,.13)="YES"
|
|---|
| 15 | ; -- Set Document Class to ACTIVE:
|
|---|
| 16 | S ^TMP("TIU182",$J,"FILEDATA",1,.07)="ACTIVE"
|
|---|
| 17 | ; -- Set Exterior Type:
|
|---|
| 18 | S ^TMP("TIU182",$J,"FILEDATA",1,.04)="DOCUMENT CLASS"
|
|---|
| 19 | N NUM S NUM=0
|
|---|
| 20 | F NUM=2:1:13 S ^TMP("TIU182",$J,"FILEDATA",NUM,.04)="TITLE"
|
|---|
| 21 | ; -- Set Parent and Menu Text into DATA nodes of ^TMP("TIU182":
|
|---|
| 22 | ; -- Set PIEN node = IEN of parent if known, or if not,
|
|---|
| 23 | ; set PNUM node = DDEF# of parent
|
|---|
| 24 | ; Set Parent of Document Class to CLINICAL PROCEDURES Class:
|
|---|
| 25 | S ^TMP("TIU182",$J,"DATA",1,"PIEN")=$$CLASS^TIUCP
|
|---|
| 26 | N NUM
|
|---|
| 27 | F NUM=2:1:13 S ^TMP("TIU182",$J,"DATA",NUM,"PNUM")=1
|
|---|
| 28 | F NUM=1:1:13 S ^TMP("TIU182",$J,"DATA",NUM,"MENUTXT")=$P($T(MENUTXT+NUM),";;",2,99)
|
|---|
| 29 | ;
|
|---|
| 30 | PRINT ; Print out results from message array ^TMP("TIU182MSG",$J
|
|---|
| 31 | N TIUCNT,TIUCONT
|
|---|
| 32 | I $D(ZTQUEUED) S ZTREQ="@" ; Tell TaskMan to delete Task log entry
|
|---|
| 33 | I $E(IOST)="C-" W @IOF,!
|
|---|
| 34 | S TIUCNT="",TIUCONT=1
|
|---|
| 35 | F S TIUCNT=$O(^TMP("TIU182MSG",$J,TIUCNT)) Q:TIUCNT="" D Q:'TIUCONT
|
|---|
| 36 | . S TIUCONT=$$SETCONT Q:'TIUCONT
|
|---|
| 37 | . W ^TMP("TIU182MSG",$J,TIUCNT),!
|
|---|
| 38 | PRINTX Q
|
|---|
| 39 | ;
|
|---|
| 40 | STOP() ;on screen paging check
|
|---|
| 41 | ; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0
|
|---|
| 42 | N DIR,Y,TIUCONT
|
|---|
| 43 | S DIR(0)="E" D ^DIR
|
|---|
| 44 | S TIUCONT=Y
|
|---|
| 45 | I TIUCONT W @IOF,!
|
|---|
| 46 | Q TIUCONT
|
|---|
| 47 | ;
|
|---|
| 48 | SETCONT() ; D form feed, Set TIUCONT
|
|---|
| 49 | N TIUCONT
|
|---|
| 50 | S TIUCONT=1
|
|---|
| 51 | I $E(IOST)="C-" G SETX:$Y+5<IOSL
|
|---|
| 52 | I $E(IOST)="C-" S TIUCONT=$$STOP G SETX
|
|---|
| 53 | G:$Y+8<IOSL SETX
|
|---|
| 54 | W @IOF
|
|---|
| 55 | SETX Q TIUCONT
|
|---|
| 56 | ;
|
|---|
| 57 | MENUTXT ; -- List ordered 1-13 for menutext. Cut off at 20 chars
|
|---|
| 58 | ;;Hist Procedures
|
|---|
| 59 | ;;Hist Cardiac Cathete
|
|---|
| 60 | ;;Hist Electrocardiogr
|
|---|
| 61 | ;;Hist Echocardiogram
|
|---|
| 62 | ;;Hist Electrophysiolo
|
|---|
| 63 | ;;Hist Holter Procedur
|
|---|
| 64 | ;;Hist Exercise Tolera
|
|---|
| 65 | ;;Hist Pre/Post Surger
|
|---|
| 66 | ;;Hist Endoscopic Proc
|
|---|
| 67 | ;;Hist Pulmonary Funct
|
|---|
| 68 | ;;Hist Hematology Proc
|
|---|
| 69 | ;;Hist Pacemaker Impla
|
|---|
| 70 | ;;Hist Rheumatology Pr
|
|---|
| 71 | Q
|
|---|
