Routine: DVBCEXML

Information

DVBCEXML ;ALB/GTS-557/THM-PRINT EXAM CHECKLIST FOR RO ; 5/16/91 1:52 PM

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,KILL)^%ZTLOAD
Automated Medical Information Exchange	2	KILL^DVBCUTIL $$SITE^DVBCUTL4

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
Automated Medical Information Exchange	1	DVBA C EXAM CHECKLIST

Entry Points

Name	Comments	DBIA/ICR reference
DEV
GO	;
EXIT
HDR
DRIVE	;
HD2
SETIOF	; ** Set device control var's

Name	Field # of Occurrence
^%ZIS	DEV
HOME^%ZIS	DVBCEXML+3, SETIOF+1
^%ZISC	DEV+1
^%ZTLOAD	DEV+2
KILL^%ZTLOAD	EXIT
KILL^DVBCUTIL	EXIT+1
$$SITE^DVBCUTL4	GO+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"Print Exam Checklist for the Regional Office",!!! Line Location: DVBCEXML+4
Function Call: WRITE	Prompt: *7,!!,"A margin of 132 is required for this printout",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Request queued",!! Line Location: DEV+2
Function Call: WRITE	Prompt: !?(IOM-$L(HD)\2),HD Line Location: GO+3
Function Call: WRITE	Prompt: !?(IOM-$L(HD)\2),HD Line Location: GO+5
Function Call: WRITE	Prompt: !!?13,"** Remarks:",! Line Location: GO+8
Function Call: WRITE	Prompt: !!?15,"Veteran's Name: _________________________________________________",?90,"VAMC: __________________________" Line Location: HDR+0
Function Call: WRITE	Prompt: !!?21,"C-Number: ____________________",?91,"SSN: __________________________" Line Location: HDR+1
Function Call: WRITE	Prompt: !!?13,"Telephone-Day: _______________________ Night:_______________________ Power of Attorney: _________________" Line Location: HDR+2
Function Call: WRITE	Prompt: !!?18,"Date Ordered: ____________________________",?92,"By: __________________________" Line Location: HDR+3
Function Call: WRITE	Prompt: !!?14,"Priority of Exam: _________________________ ( ) Insufficient Exam Dated: _______________________" Line Location: HDR+4
Function Call: WRITE	Prompt: !?14," (See Remarks)" Line Location: HDR+5
Function Call: WRITE	Prompt: !!?14,"( ) General Medical Examination ( ) Review of Pertinent Medical Records in" Line Location: HDR+6
Function Call: WRITE	Prompt: !?14," Claims Folder is Required Prior to Examination",!! Line Location: HDR+7
Function Call: WRITE	Prompt: @IOF,!?15,"Page: ",PG,!!?15,"Compensation and Pension Examination Request Worksheet, Cont.",!!! Line Location: HD2+0
Routine Call	%ZIS Line Location: DEV
Routine Call	%ZIS Line Location: DVBCEXML+3 SETIOF+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	DRIVE+3
^TMP($J	DVBCEXML+3!, DRIVE+2!, DRIVE+7, DRIVE+8, DRIVE+13!

Label References

Name	Line Occurrences
DEV	DEV+1
DRIVE	GO+7
EXIT	DEV, DEV+2
HD2	DRIVE+10, DRIVE+12
HDR	GO+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV*!
%ZIS("A"	DEV*
%ZIS("B"	DEV*
A	EXIT+1!
AA	EXIT+1!
DIF	DRIVE+1*, DRIVE+4!
DVBAX	DRIVE+13!
DVBCX	EXIT+1!
H	EXIT+1!
HD	GO+3, GO+4, GO+5, EXIT+1!
IO	GO+1
IO("Q"	DEV+2
IOF	DVBCEXML+4, HD2
IOM	DEV+1, GO+3, GO+5
ION	DEV+2
LP	DRIVE+5~, DRIVE+6, DRIVE+7, DRIVE+8, DRIVE+13!
NAME	EXIT+1!
OLDEXM	EXIT+1!
PG	GO+2, DRIVE+13!, HD2
>> POP	DEV
ROU	DRIVE+3*, DRIVE+4!
STOP	DRIVE+6, DRIVE+7, DRIVE+11, DRIVE+13!
TEXT	DRIVE+5~, DRIVE+8*, DRIVE+9, DRIVE+10, DRIVE+11, DRIVE+12, DRIVE+13!
X	DRIVE+3*, DRIVE+13!
XCNP	DRIVE+1*, DRIVE+4!
>> ZTDESC	DEV+2*
>> ZTIO	DEV+2*
>> ZTQUEUED	EXIT
>> ZTRTN	DEV+2*
>> ZTSAVE	DEV+2*
ZTSK	EXIT+1!

Customize PDF page

Package: Automated Medical Information Exchange