Routine: MCARPCS

Information

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

Source file <MCARPCS.m>

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

Package	Total	Caller Graph
Medicine	1	MCARPACETRANS

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

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!,"FORM TRANSFER TO NATIONAL CENTER" Line Location: MCARPCS+2
Function Call: READ	Timeout: DTIME Variable: X 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

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

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!