Routine: SROLABS

Package	Total	Call Graph
VA Fileman	3	^DIE Y^DIQ ^DIR
Surgery	1	^SRSKILL

Package

Total

Call Graph

VA Fileman

^DIE Y^DIQ ^DIR

Surgery

^SRSKILL

Package	Total	Caller Graph
Surgery	1	SROA LAB TEST EDIT

Package

Total

Caller Graph

Surgery

SROA LAB TEST EDIT

Name	Comments	DBIA/ICR reference
EN
END
EDIT	; update selected field
LIST	; display test list
TEST	; match with entry in file 139.2
DSPLY	; display test information from file 139.2

Name	Field # of Occurrence
^DIE	EDIT+1
Y^DIQ	DSPLY+4, DSPLY+6
^DIR	LIST+16, DSPLY+8
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?11,"Risk Model Lab Test (Enter/Edit)",!!," Select item to edit from list below:",! Line Location: LIST+1
Function Call: WRITE	Prompt: !," 1. ALBUMIN",?32,"14. LDL" Line Location: LIST+2
Function Call: WRITE	Prompt: !," 2. ALKALINE PHOSPHATASE",?32,"15. PLATELET COUNT" Line Location: LIST+3
Function Call: WRITE	Prompt: !," 3. ANION GAP",?32,"16. POTASSIUM" Line Location: LIST+4
Function Call: WRITE	Prompt: !," 4. BUN",?32,"17. PT" Line Location: LIST+5
Function Call: WRITE	Prompt: !," 5. CHOLESTEROL",?32,"18. PTT" Line Location: LIST+6
Function Call: WRITE	Prompt: !," 6. CPK",?32,"19. SGOT" Line Location: LIST+7
Function Call: WRITE	Prompt: !," 7. CPK-MB",?32,"20. SODIUM" Line Location: LIST+8
Function Call: WRITE	Prompt: !," 8. CREATININE",?32,"21. TOTAL BILIRUBIN" Line Location: LIST+9
Function Call: WRITE	Prompt: !," 9. HDL",?32,"22. TRIGLYCERIDE" Line Location: LIST+10
Function Call: WRITE	Prompt: !,"10. HEMATOCRIT",?32,"23. TROPONIN I" Line Location: LIST+11
Function Call: WRITE	Prompt: !,"11. HEMOGLOBIN",?32,"24. TROPONIN T" Line Location: LIST+12
Function Call: WRITE	Prompt: !,"12. HEMOGLOBIN A1C",?32,"25. WHITE BLOOD COUNT" Line Location: LIST+13
Function Call: WRITE	Prompt: !,"13. INR",! Line Location: LIST+14
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: @IOF,!,?11,"Risk Model Lab Test (Enter/Edit)",!!!,?16,"Test Name: "_SRLABNM,!!," Laboratory Data Name(s): " Line Location: DSPLY+1
Function Call: WRITE	Prompt: "NONE ENTERED" Line Location: DSPLY+2
Function Call: WRITE	Prompt: ?27,SRTNM Line Location: DSPLY+5
Function Call: WRITE	Prompt: !!,?17,"Specimen: ",SRSPNM,!! Line Location: DSPLY+7
Routine Call	DIE Line Location: EDIT+1
Routine Call	DIR Line Location: LIST+16 DSPLY+8

Name	Line Occurrences (* Changed, ! Killed)
^DD(139.2	DSPLY+6
^DD(139.21	DSPLY+4
^SRO(139.2 - [#139.2]	DSPLY+2, DSPLY+3, DSPLY+4, DSPLY+6, TEST+3

Name	Line Occurrences
DSPLY	EN+2
EDIT	EN+3
EN	EN+4
END	EN+1, EN+2
LIST	EN+1
TEST	LIST+17

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	DSPLY+4, DSPLY+6
DA	EDIT+1!*
DIE	EDIT+1!*
DIR	LIST+15!, LIST+16!, DSPLY+8!
DIR("?"	LIST+15*
DIR("A"	LIST+16, DSPLY+8
DIR("B"	DSPLY+8*
DIR(0	LIST+16, DSPLY+8
DR	EDIT+1!*
>> DTOUT	LIST+16, DSPLY+8
>> DUOUT	LIST+16, DSPLY+8
IOF	LIST+1, DSPLY+1
SREDIT	EN+3, END!, DSPLY+9*
SRFIRST	END!, DSPLY+3, DSPLY+5
SRIEN	EN~, EDIT+1, DSPLY+2, DSPLY+3, DSPLY+4, DSPLY+6, TEST+1, TEST+2, TEST+3
SRLABNM	END!, DSPLY+1, TEST+3*
>> SRSOUT	EN+1, EN+2, LIST+16, DSPLY+8*
SRSP	EN~, DSPLY+6*
SRSPNM	END!, DSPLY+6*, DSPLY+7
SRTNM	EN~, DSPLY+4*, DSPLY+5
SRTP	EN~, DSPLY+4*
SRX	EN~, DSPLY+3*, DSPLY+4
Y	EN~, LIST+16, DSPLY+4, DSPLY+6, DSPLY+9, TEST+1, TEST+2

Customize PDF page

Package: Surgery

Routine: SROLABS

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: