source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLUTIL1.m@ 1259

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

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1HLUTIL1 ;ALB/RJS - HL7 UTILITIES ;1/17/95 11:15
2 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
3 ;
4DAT1(X) ; Convert a FileMan date to a displayable (mm/dd/yy) format.
5 Q $S(X:$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3),1:"")
6 ;
7DAT2(Y) ; Convert a FileMan date to a displayable (mmm dd yyyy) format.
8 Q:'$G(Y) ""
9 N % D D^DIQ
10 Q $TR(Y,"@"," ")
11 ;
12HLFM(Y) ; Convert a quasi HL7 formatted date to a Fileman date.
13 I Y="" Q ""
14 N % S Y=$TR(Y,".",""),%=$E(Y,9,14)
15 Q $E(Y,1,2)-17_$E(Y,3,8)_$S(+%:+("."_%),1:"")
16 ;
17TASK(X) ; Is the background task currently running?
18 ; Input: X -- Task number for the background job
19 ; Output: 0 -- No, the job is not currently running
20 ; 1 -- Yes, the job is currently running
21 Q +$G(^%ZTSK(+$G(X),.1))=5
22 ;
23PAUSE() ; Pause for CRT output.
24 ; Input: IOST, IOSL
25 ; Output: 0 -- Continue to display output
26 ; 1 -- Quit
27 Q:$E(IOST,1,2)'["C-" 0
28 N DIR,DIRUT,DTOUT,DUOUT,HLJ
29 F HLJ=$Y:1:(IOSL-5) W !
30 S DIR(0)="E" D ^DIR
31 Q $D(DIRUT)!($D(DUOUT))
32EXPAND(FILE,FIELD,VALUE) ; - returns internal data in an output format
33 ; Taken from IVMUFNC w/help of CPM
34 N Y,C S Y=VALUE
35 I 'FILE!('FIELD)!(VALUE="") G EXPQ
36 S Y=VALUE,C=$P(^DD(FILE,FIELD,0),"^",2) D Y^DIQ
37EXPQ Q Y
38EVENT(EID,NODES,RESULT) ;Entry point to get event data from the Protocol file
39 ;
40 ;This is a subroutine call with parameter passing. It returns each
41 ;of the nodes from the Protocol file for the entry specified by EID
42 ;in the array specified by the RESULT parameter
43 ;
44 ;Required Input Parameters
45 ; EID = The IEN of the protocol in the Protocol file for which
46 ; data is being requested
47 ; NODES = The node subscripts to be returned separated by commas.
48 ; Allowable subscripts are 15, 20, 770, 771, 772, 773
49 ; Example: 15,20,770
50 ; RESULT = The name of the array in which the nodes will be returned.
51 ; The node subscripts will be used as the array subscripts.
52 ; Example: RESULT(15)=...
53 ;
54 ;Check for required parameter
55 I '$G(EID)!($G(NODES)']"") Q
56 I '$D(^ORD(101,EID,0)) Q
57 ;Get data for nodes requested
58 I NODES[15 S RESULT(15)=$G(^ORD(101,EID,15))
59 I NODES[20 S RESULT(20)=$G(^ORD(101,EID,20))
60 I NODES[770 S RESULT(770)=$G(^ORD(101,EID,770))
61 I NODES[771 S RESULT(771)=$G(^ORD(101,EID,771))
62 I NODES[772 S RESULT(772)=$G(^ORD(101,EID,772))
63 I NODES[773 S RESULT(773)=$G(^ORD(101,EID,773))
64 Q
Note: See TracBrowser for help on using the repository browser.