Routine: ECXLABRS

Information

ECXLABRS ;BIR/CML-Set Up the File to Control Extract of Lab Results; [ 02/26/97 2:56 PM ]

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	3	^DIC FIELD^DID ^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
DSS Extracts	1	ECXLABRS

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point from option
ASKTST	;loop on DSS lab tests multiple in 727.21 and the local lab data name subfile 727.211
ASKBLD	;loop on blood specimen multiple 727.22
ASKUR	;loop on urine specimen multiple 727.23
ASKFE	;loop on feces specimen multiple 727.24
END

External References

Name	Field # of Occurrence
^DIC	ASKTST+5, ASKTST+8, ASKBLD+3, ASKUR+3, ASKFE+3
FIELD^DID	ASKTST+8, ASKBLD+3, ASKUR+3, ASKFE+3
^DIE	ASKTST+9, ASKBLD+4, ASKUR+4, ASKFE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: WRITE	Prompt: !,"This option will assist in the steps that create the files necessary to" Line Location: EN+2
Function Call: WRITE	Prompt: !,"control the extract of lab results for DSS. This will probably require" Line Location: EN+3
Function Call: WRITE	Prompt: !,"a combined effort between DSS personnel and lab personnel." Line Location: EN+4
Function Call: WRITE	Prompt: !!!,"Step #1 - For each of the DSS lab tests, identify the tests as they" Line Location: ASKTST+1
Function Call: WRITE	Prompt: !?10,"are named in your laboratory. There may be more than one" Line Location: ASKTST+2
Function Call: WRITE	Prompt: !?10,"test in your laboratory to generate the results asked for," Line Location: ASKTST+3
Function Call: WRITE	Prompt: !?10,"in that case, you should enter all such tests." Line Location: ASKTST+4
Function Call: WRITE	Prompt: ! Line Location: ASKTST+5
Function Call: WRITE	Prompt: !!!,"Step #2 - Define all blood specimens used by your facility." Line Location: ASKBLD+2
Function Call: WRITE	Prompt: ! Line Location: ASKBLD+3
Function Call: WRITE	Prompt: !!!,"Step #3 - Define all urine specimens used by your facility." Line Location: ASKUR+2
Function Call: WRITE	Prompt: ! Line Location: ASKUR+3
Function Call: WRITE	Prompt: !!!,"Step #4 - Define all feces specimens used by your facility." Line Location: ASKFE+2
Function Call: WRITE	Prompt: ! Line Location: ASKFE+3
Routine Call	DIC Line Location: ASKTST+5 ASKTST+8 ASKBLD+3 ASKUR+3 ASKFE+3
Routine Call	DIE Line Location: ASKTST+9 ASKBLD+4 ASKUR+4 ASKFE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ECX(727.2 - [#727.2]	Classic Fileman Calls, FIELD^DID
727.21	FIELD^DID

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ECX(727.2 - [#727.2]	ASKTST+6

Label References

Name	Line Occurrences
END	ASKBLD+1, ASKUR+1, ASKFE+1

Naked Globals

Name	Field # of Occurrence
^(0	ASKTST+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ASKTST+8!, ASKTST+9, ASKBLD+4, ASKUR+4, ASKFE+4, END!
DA(1	ASKTST+8, ASKTST+9, ASKBLD+3, ASKBLD+4, ASKUR+3, ASKUR+4, ASKFE+3, ASKFE+4
DA(2	ASKTST+8, ASKTST+9
DIC	ASKTST+5, ASKTST+8!, ASKBLD+3!, ASKUR+3!, ASKFE+3*!, END!
DIC("P"	ASKTST+8, ASKBLD+3, ASKUR+3, ASKFE+3
DIC(0	ASKTST+5, ASKTST+8, ASKBLD+3, ASKUR+3, ASKFE+3*
DIE	ASKTST+9!, ASKBLD+4!, ASKUR+4!, ASKFE+4!, END!
DR	ASKTST+9, ASKBLD+4, ASKUR+4, ASKFE+4, END!
>> DTOUT	ASKBLD+1, ASKUR+1, ASKFE+1
>> DUOUT	ASKBLD+1, ASKUR+1, ASKFE+1
EC	ASKTST+6!*, ASKTST+7, END!
ECNM	ASKTST+6!*, ASKTST+7, END!
ECXB	END!
ECXDD	ASKTST+8!, ASKBLD+3!, ASKUR+3!, ASKFE+3!
ECXDD("SPECIFIER"	ASKTST+8, ASKBLD+3, ASKUR+3, ASKFE+3
ECXS	END!
IOF	EN+1
J	END!
LOC	ASKTST+8*, ASKTST+9, END!
TST	ASKTST+5*, ASKTST+6, ASKTST+8, ASKTST+9, END!
U	ASKTST+6
X	END!
Y	ASKTST+5, ASKTST+8, ASKBLD+3, ASKBLD+4, ASKUR+3, ASKUR+4, ASKFE+3, ASKFE+4, END!

Customize PDF page

Package: DSS Extracts