Routine: HLUTIL1

Information

HLUTIL1 ;ALB/RJS - HL7 UTILITIES ;1/17/95 11:15

Source file <HLUTIL1.m>

Package	Total	Call Graph
VA Fileman	2	(D,Y)^DIQ ^DIR

Package	Total	Caller Graph
Health Level Seven	11	HLCSLNCH HLCSORA1 HLMA HLMA1 HLTP HLTP01 HLTP1 HLTP2 HLTP3 HLTPCK1A HLTPCK2B

Name	Comments	DBIA/ICR reference
HLFM(Y)	; Convert a quasi HL7 formatted date to a Fileman date.
PAUSE()	; Pause for CRT output. ; Input: IOST, IOSL ; Output: 0 -- Continue to display output ; 1 -- Quit
TASK(X)	; Is the background task currently running? ; Input: X -- Task number for the background job ; Output: 0 -- No, the job is not currently running ; 1 -- Yes, the job is currently running
EVENT(EID,NODES,RESULT)	;Entry point to get event data from the Protocol file
DAT2(Y)	; Convert a FileMan date to a displayable (mmm dd yyyy) format.
EXPQ
DAT1(X)	; Convert a FileMan date to a displayable (mm/dd/yy) format.
EXPAND(FILE,FIELD,VALUE)

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAUSE+6
Routine Call	DIR Line Location: PAUSE+7

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	TASK+4
^DD(	EXPAND+4
^ORD(101 - [#101]	EVENT+18, EVENT+20, EVENT+21, EVENT+22, EVENT+23, EVENT+24, EVENT+25

Name	Line Occurrences
EXPQ	EXPAND+3

Name	Field # of Occurrence
%	DAT2+2~, HLFM+2~*, HLFM+3
C	EXPAND+2~, EXPAND+4*
DIR	PAUSE+5~
DIR(0	PAUSE+7*
DIRUT	PAUSE+5~, PAUSE+8
DTOUT	PAUSE+5~
DUOUT	PAUSE+5~, PAUSE+8
EID	EVENT~, EVENT+17, EVENT+18, EVENT+20, EVENT+21, EVENT+22, EVENT+23, EVENT+24, EVENT+25
FIELD	EXPAND~, EXPAND+3, EXPAND+4
FILE	EXPAND~, EXPAND+3, EXPAND+4
HLJ	PAUSE+5~, PAUSE+6*
IOSL	PAUSE+6
IOST	PAUSE+4
NODES	EVENT~, EVENT+17, EVENT+20, EVENT+21, EVENT+22, EVENT+23, EVENT+24, EVENT+25
RESULT	EVENT~
RESULT(15	EVENT+20*
RESULT(20	EVENT+21*
RESULT(770	EVENT+22*
RESULT(771	EVENT+23*
RESULT(772	EVENT+24*
RESULT(773	EVENT+25*
VALUE	EXPAND~, EXPAND+2, EXPAND+3, EXPAND+4
X	DAT1~, DAT1+1, TASK~, TASK+4
Y	DAT2~, DAT2+1, DAT2+3, HLFM~, HLFM+1, HLFM+2, HLFM+3, EXPAND+2~, EXPAND+4*, EXPQ