Routine: MCARAP

Package	Total	Call Graph
VA Fileman	3	(,DD)^%DT (C,NOW)^%DTC ^DIK
Kernel	2	^%ZIS ^%ZTLOAD
Medicine	2	(,EXIT,EXIT1,STYPE)^MCARAP1 (QMARK,QMARK2)^MCARAP2

Package	Total	Caller Graph
Medicine	3	MCARAP1 MCARECGAUTOSUM MCARHOLTAUTOSUM

Entry Points

External References

Name	Field # of Occurrence
^%DT	DATE1+2, DATE2+1
DD^%DT	MCARAP+3
C^%DTC	UPDATE+5
NOW^%DTC	MCARAP+3, UPDATE+1
^%ZIS	DEVICE+1
^%ZTLOAD	QUE+2
^DIK	UPDATE+7
^MCARAP1	QUE+4
EXIT^MCARAP1	NAME+1
EXIT1^MCARAP1	ASK+1, ASK+6, ASK+7, UPDATE+4, NAME+2, NAME1, DATE1+3, DATE1+4, DATE2+2, DATE2+3 , DATE2+4, DEVICE+1, QUE+2
STYPE^MCARAP1	UPDATE+6
QMARK^MCARAP2	ASK+5
QMARK2^MCARAP2	ASK+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?17,"MEDICINE AUTO INSTRUMENT SUMMARY OF RECORDS TRANSFER" Line Location: MCARAP+5
Function Call: WRITE	Prompt: !!!!,?5,"S",?10,"SUCCESSFUL RECORD TRANSFERS" Line Location: MCARAP+6
Function Call: WRITE	Prompt: !!,?5,"U",?10,"UNSUCCESSFUL RECORD TRANSFERRAL ATTEMPTS" Line Location: MCARAP+7
Function Call: WRITE	Prompt: !!,?5,"A",?10,"ALL RECORD TRANSFERRAL ATTEMPTS" Line Location: MCARAP+8
Function Call: READ	Timeout: DTIME Line Location: PROMPT+0
Function Call: WRITE	Prompt: @IOF,!,?14,"MEDICINE AUTO INSTRUMENT SUMMARY OF RECORDS TRANSFER" Line Location: UPDATE+2
Function Call: WRITE	Prompt: !!!,?14,"Enter the number of days of reports you wish to retain" Line Location: UPDATE+3
Function Call: READ	Timeout: DTIME Variable: PERIOD Line Location: UPDATE+4
Function Call: WRITE	Prompt: !,"Enter name (examples: SM/SMITH/SMITH,BILL/SMITH,BILL M)",!,"...or press return to search all Patients)" Line Location: NAME+3
Function Call: WRITE	Prompt: !,"Leading spaces not acceptable",*7 Line Location: NAME+4
Function Call: WRITE	Prompt: !,?5,J,?10,$P(^(J),U),?40,$P(^(J),U,2) Line Location: NAME+11
Function Call: READ	Prompt: "Enter Number: " Formatting: !! Timeout: DTIME Variable: ZIP Line Location: NAME1+0
Function Call: WRITE	Prompt: !!,"No Individual Patient selected",*7 Line Location: NAME1+1
Function Call: WRITE	Prompt: !,"Enter Number to select Patient, press return to continue, or enter ^ to exit" Line Location: NAME1+2
Function Call: WRITE	Prompt: !,"No Individual Patient selected",*7 Line Location: NAME1+3
Function Call: WRITE	Prompt: !,"No Entries found in Summary File",*7 Line Location: NAME2+0
Function Call: WRITE	Prompt: !! Line Location: DATE1+1
Function Call: READ	Timeout: DTIME Line Location: DATE1+4
Function Call: WRITE	Prompt: ! Line Location: DATE1+4
Function Call: READ	Timeout: DTIME Line Location: DATE2+3
Function Call: WRITE	Prompt: ! Line Location: DATE2+3
Function Call: READ	Timeout: DTIME Line Location: DATE2+4
Function Call: WRITE	Prompt: ! Line Location: DATE2+4
Routine Call	%ZIS Line Location: DEVICE+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(700.5 - [#700.5]	UPDATE+6, NAME+9
^TMP($J	NAME+8!, NAME+9*, NAME+10, NAME+11, NAME1+3, NAME1+4

Label References

Name	Line Occurrences
DATE1	NAME+5, NAME1+5, DATE1+4, DATE2+4
DATE2	DATE2+3
MCARAP	ASK+6, ASK+8, DATE1+3, DATE2+2
NAME	ASK+2, ASK+3, ASK+4, NAME+3, NAME+4, NAME1+1, NAME2
NAME1	NAME1+2, NAME1+3
NAME2	NAME+10
PROMPT	ASK+6
UPDATE	UPDATE+4

Naked Globals

Name	Field # of Occurrence
^(	NAME+9, NAME+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MCARAP+3, UPDATE+1
>> %DT	DATE1+1, DATE2
>> %DT("A"	DATE1+1, DATE2
>> %DT("B"	DATE1+1, DATE2
>> %DT(0	DATE1+1, DATE1+2!, DATE2, DATE2+1!
>> %ZIS	DEVICE+1*
ALL	MCARAP+4!, ASK+1!, ASK+4*, QUE+2
BAD	MCARAP+4!, ASK+1!, ASK+2!, ASK+3*, ASK+4!, QUE+1
>> DA	UPDATE+7*
DATE1	MCARAP+4!, DATE1+5*, DATE2+4
DATE2	MCARAP+4!, DATE2+4*
DIC	MCARAP+4!
DIK	UPDATE+7*, UPDATE+8!
DTIME	ASK, PROMPT, UPDATE+4, NAME, NAME1, DATE1+4, DATE2+3, DATE2+4
DTOUT	DATE1+1!, DATE1+3, DATE2!, DATE2+2
ENT	UPDATE+6*, UPDATE+8!
ENTRY	MCARAP+4!, UPDATE+8!
ENTRY(	UPDATE+6*, UPDATE+7
EXDAY	UPDATE+5*, UPDATE+6, UPDATE+8!
GOOD	MCARAP+4!, ASK+1!, ASK+2*, ASK+3!, ASK+4!, QUE+1
IJ	MCARAP+4!, UPDATE+6, UPDATE+7, UPDATE+8!
IO	QUE+3
IO("Q"	DEVICE+1!, QUE+1, QUE+2!
IOF	MCARAP+5, UPDATE+2
J	MCARAP+4!, NAME+9, NAME+11
MCARA	UPDATE+8!, QUE+2
>> MCDAY	MCARAP+3*
>> MCTIME	MCARAP+3*
NAME	MCARAP+4!, NAME, NAME+1!, NAME+2!, NAME+3, NAME+4, NAME+5!, NAME+6, NAME+7, NAME+9 , NAME1+1!, NAME1+4*, QUE+1
>> NAMEE	NAME+7, NAME+9
PDATE	MCARAP+4!, UPDATE+6*, UPDATE+8!
PERIOD	UPDATE+4*, UPDATE+5, UPDATE+8!
>> POP	DEVICE+1
REDO	MCARAP+4!, QUE+1*
>> RN	NAME+9*
>> RPT	ASK*, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7
TYPE	UPDATE+6!
U	ASK+6, ASK+7, UPDATE+4, NAME+2, NAME+9, NAME+11, NAME1, NAME1+4, DATE1+3, DATE1+4 , DATE2+2, DATE2+3, DATE2+4
>> X	UPDATE+5, DATE1+2, DATE1+3, DATE2+1, DATE2+2
>> X1	UPDATE+1*
>> X2	UPDATE+5*
>> Y	MCARAP+3*, DATE1+4, DATE1+5, DATE2+3, DATE2+4
ZIP	MCARAP+4!, ASK+6, PROMPT, NAME1, NAME1+1, NAME1+2, NAME1+3, NAME1+4, DATE1+4, DATE2+3 , DATE2+4*
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("ALL"	QUE+2*
>> ZTSAVE("BAD"	QUE+1*
>> ZTSAVE("DATE*"	QUE+1*
>> ZTSAVE("GOOD"	QUE+1*
>> ZTSAVE("MCARA"	QUE+2*
>> ZTSAVE("NAME"	QUE+1*
ZTSK	QUE+2!

Customize PDF page

Package: Medicine

Routine: MCARAP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DATE1	; Enter starting date of range of dates for report
DATE2
PROMPT
NAME
UPDATE	; Kill all nodes for entries more than 1 month old
DEVICE	; Select Device
NAME2
NAME1
ASK
QUE	; Perform queueing if selected