source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIU182D.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.4 KB
RevLine 
[613]1TIU182D ; 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 ;
4SETDATA ; 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 ;
30PRINT ; 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),!
38PRINTX Q
39 ;
40STOP() ;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 ;
48SETCONT() ; 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
55SETX Q TIUCONT
56 ;
57MENUTXT ; -- 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
Note: See TracBrowser for help on using the repository browser.