Routine: MCARPCS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

MCARPCS ;WISC/TJK-AUTO TRANSMIT PACEMAKER REPORT-QUEUE ;4/10/96 14:14

Source Information

Source file <MCARPCS.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	^DIC ^DIR
Kernel	1	^%ZTLOAD

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
Medicine	1	MCARPACETRANS

Entry Points

Name	Comments	DBIA/ICR reference
REASON
OK	;temporarily all transmissions will go to the Eastern Pacemaker Center
EXIT

External References

Name	Field # of Occurrence
^%ZTLOAD	OK+9
^DIC	MCARPCS+3, REASON
^DIR	OK+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!,"FORM TRANSFER TO NATIONAL CENTER" Line Location: MCARPCS+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: OK+3
Function Call: WRITE	Prompt: !,*7,"Answer with 'E' for Eastern Center,'W' for Western Center, or 'B' for Both" Line Location: OK+4
Function Call: WRITE	Prompt: !,$S(MCT="E":"EASTERN PACEMAKER CENTER",MCT="W":"WESTERN PACEMAKER CENTER",1:"BOTH EASTERN AND WESTERN PACEMAKER CENTERS") Line Location: OK+5
Routine Call	DIC Line Location: MCARPCS+3 REASON
Routine Call	DIR Line Location: OK+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^MCAR(690 - [#690]	Classic Fileman Calls
^MCAR(695.8 - [#695.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(695.8 - [#695.8]	REASON

Label References

Name	Line Occurrences
EXIT	MCARPCS+3, REASON
OK	REASON
REASON	REASON

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!
DFN	MCARPCS+4*, EXIT!
DIC	MCARPCS+3!, REASON!, OK+6!
DIC("A"	REASON*
DIC("S"	MCARPCS+3, REASON
DIC(0	MCARPCS+3, REASON
DIR	OK+6!, EXIT!
DIR("A"	OK+7*
DIR("B"	OK+7*
DIR(0	OK+7*
IOF	MCARPCS+2
MCR	MCARPCS+4!, EXIT!
MCR(	REASON*
MCT	OK+1*, EXIT!
U	REASON
X	REASON, EXIT!
Y	MCARPCS+3, MCARPCS+4, REASON, OK+9, EXIT!
>> ZTDESC	OK+9*
>> ZTIO	OK+9*
>> ZTRTN	OK+9*
>> ZTSAVE("DFN"	OK+9*
>> ZTSAVE("DUZ"	OK+9*
>> ZTSAVE("MCR("	OK+9*
>> ZTSAVE("MCT"	OK+9*
ZTSK	EXIT!