Routine: MCARAM0

Information

MCARAM0 ;WASH ISC/JKL-MUSE AUTO INSTRUMENT REINITIALIZE ;2/24/95 10:01

Package	Total	Call Graph
Medicine	8	^MCARAM0A ^MCARAM0B ^MCARAM0C ^MCARAM0D ^MCARAM0E ^MCARAM0F ^MCARAM0G ^MCARAM0H
VA FileMan	2	IX^DIC ^DIK

Name	Comments	DBIA/ICR reference
START	;Driver for MCARECGINIT-ECG Corrupted Records Delete
ERR	;
EKGCK	;
MID	;
DEL	;
DELAC	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Warning: This process will delete all of the records listed in" Line Location: START+5
Function Call: WRITE	Prompt: !,"the retransmittal report." Line Location: START+6
Function Call: WRITE	Prompt: !!,"This process will also remove the release status of each" Line Location: START+7
Function Call: WRITE	Prompt: !,"automated record that has a release status." Line Location: START+8
Function Call: WRITE	Prompt: !!,"This process will also add a confirmation status to each" Line Location: START+9
Function Call: WRITE	Prompt: !,"automated record that does not have a confirmation status." Line Location: START+10
Function Call: READ	Formatting: !! Prompt: "Do you wish to continue ? N //" Variable: MCDEF Timeout: 30 Line Location: START+11
Function Call: WRITE	Prompt: !!,"Each ""."" represents 100 records.",!!,"Deleting---" Line Location: START+13
Function Call: WRITE	Prompt: !!,MCCNT," records deleted." Line Location: START+25
Function Call: WRITE	Prompt: !!,"Each ""."" represents 100 records.",!!,"Removing release status and adding confirmation status---" Line Location: START+26
Function Call: WRITE	Prompt: !!,"...done." Line Location: START+28
Routine Call	DIC Line Location: EKGCK+5

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	MID+1, MID+2, MID+4
^MCAR(690 - [#690]	DELAC+1!
^MCAR(691.5 - [#691.5]	START+17, EKGCK+2, EKGCK+3, EKGCK+4, EKGCK+11, EKGCK+12, MID+2
^MCAR(700.5 - [#700.5]	START+15, ERR+2, ERR+3, ERR+4, ERR+8

Name	Field # of Occurrence
D	EKGCK+5*, EKGCK+10!
>> DA	DEL+1*
>> DIC	EKGCK+5*
>> DIC(0	EKGCK+5*
>> DIK	DEL+1*
>> I	START+15, START+17
MCCNT	START+2~, START+3, START+15, START+17, START+25, MID+4, DEL+2*
MCCOR	START+2~, START+3, START+15, START+17, MID+4
>> MCDEF	START+11*, START+12
MCDT	START+2~, START+3, START+16, ERR+3, ERR+4, ERR+5, ERR+8, EKGCK+2, EKGCK+4*, EKGCK+9 , EKGCK+11, DELAC+1
MCEKG	START+2~
MCERR	START+2~, START+15!, START+17!, ERR+1, ERR+3, ERR+4, ERR+5, ERR+6, ERR+7, ERR+8* , EKGCK+1, EKGCK+2, EKGCK+3, EKGCK+9, EKGCK+11, EKGCK+12
MCEXDT	START+2~, START+15!, START+17!
MCIEN	START+2~, START+3, START+15, START+16, START+17, ERR+2, ERR+3, ERR+4, ERR+8, EKGCK+2 , EKGCK+3, EKGCK+4, EKGCK+11, EKGCK+12, DEL+1, DELAC+1
MCNAME	START+2~, START+4, START+15!, START+16, START+17!, ERR+3, ERR+4, ERR+7, EKGCK+3, EKGCK+6* , EKGCK+8, MID+2
MCNAME2	MID+3~, MID+4*, MID+5!
MCNDT	START+2~, EKGCK+9*, EKGCK+10!, MID+2
MCPID	START+2~, EKGCK+2, EKGCK+4, EKGCK+9, EKGCK+12, MID+1, MID+2, MID+4, DELAC+1
MCPIDT	EKGCK+7, EKGCK+8, EKGCK+9, EKGCK+10!, MID+4
>> MCROOT	START+15, START+17, DEL+1
MCSSN	START+2~, START+4, START+15!, START+16, START+17!, ERR+3, ERR+4, ERR+6, EKGCK+3, EKGCK+4* , EKGCK+5, MID+2*
MCSSN2	MID+3~, MID+4*, MID+5!
X	EKGCK+5*, EKGCK+10!
Y	EKGCK+6, EKGCK+7, EKGCK+8, EKGCK+10!
Y(0	EKGCK+6