Routine: MCARPS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO PROCEDURES FOR THIS PATIENT" Line Location: LOC+1
Function Call: WRITE	Prompt: !!,"NO ",$P(@(U_S5_",0)"),U,1)," PROCEDURES FOR THIS PATIENT" Line Location: LOC+2
Function Call: WRITE	Prompt: !!,*7,"Report Queued" Line Location: PR+2
Function Call: WRITE	Prompt: !,$J(L,2),?4,MCARPROC,?36,Y,?56,$E(K,1,22) Line Location: PR2+6
Function Call: WRITE	Prompt: !,?1,M Line Location: PR2+6
Function Call: WRITE	Prompt: !,$J(L,2),?4,MCARPROC,?36,Y,?56,$E(K,1,22) Line Location: PR2+7
Function Call: WRITE	Prompt: !,?1,M Line Location: PR2+7
Function Call: WRITE	Prompt: @IOF,!,"NAME: ",MCARNM,?35,"SSN: ",SSN,?55,"WARD: ",$E(WARD,1,19) Line Location: TOP+0
Function Call: WRITE	Prompt: "-" Line Location: TOP+1
Function Call: WRITE	Prompt: !!,"(SUBSPECIALTY)/PROCEDURE",?36,"DATE",?56,"RESULTS" Line Location: TOP+2
Function Call: WRITE	Prompt: !,M Line Location: TOP+2
Function Call: READ	Timeout: DTIME Variable: R Line Location: EXP+0
Function Call: WRITE	Prompt: @IOF,!! Line Location: EXP1+0
Function Call: WRITE	Prompt: !,$J(MCRED,2),?4,$P(MCRED1,U),?36,$P(MCRED1,U,6),?56,$E($P(MCRED1,U,7),1,22),!,?1,$P(MCRED1,U,10) Line Location: REDISP+1
Function Call: WRITE	Prompt: !,"You may sort this report by date or procedure.",!,"If you choose 'D' (date) all medical procedures will be displayed starting",!,"with the most recent procedure." Line Location: HELP+0
Function Call: WRITE	Prompt: !,"If you choose 'P' (procedure), you may specify in the next prompt either a",!,"specific procedure or 'ALL' procedures, alphabetically arranged with the most",!,"recent of that type of procedure displayed first." Line Location: HELP+1
Routine Call	DIC Line Location: BEG+3 PROC+2
Routine Call	%ZIS Line Location: PR

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PR2+7
^MCAR(690 - [#690]	LOC+1
^MCAR(697.2 - [#697.2]	PR2+2
^TMP("MAG"	EXIT+4!
^TMP("MCAR"	PR1, PR2, PR2+7*, EXP+1, EXP1, EXIT+2!, REDISP+1

Label References

Name	Line Occurrences
@(	NEW
BEG	CHOOZ+1, LOC+1, LOC+2
CHOOZ	CHOOZ+1, BEG+1
EXIT	PR, EXP
EXP	PR1, PR2+8, EXP1+2
EXP1	EXP+1
FIN	PR+2, PR1, EXP, EXP+2
HELP	CHOOZ+1
NEW	EXP1+2
PR1	PR1, PR2
PR2	PR2+9, EXP+2
PROC	BEG+1, PROC+3
REDISP	EXP1+2
TOP	PR0, PR2+8, EXP+2, REDISP

Name	Field # of Occurrence
^(	PR2+1, PR2+7*, REDISP+1
^("COL"	EXIT+4!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PR*!
DA	PR2+4, PR2+7, EXP1, EXIT+1!
DFN	BEG+8*, LOC+1, LOC+2, EXIT+1!, NEW~
DIC	BEG+2, BEG+3!, PROC+2
DIC(0	BEG+2, PROC+2
DTIME	CHOOZ, EXP, PROC
DXS	EXP1+2!
I	PR0, PR1, PR2, PR2+1, PR2+7, EXP+2, EXIT+1!, NEW~
IO	PR+3
IO("Q"	PR!, PR+1!, EXIT+1!
IOF	TOP, EXP1, FIN
IOSL	PR2+8
IOST	PR1, PR2+8, FIN
J	PR1+1, PR2, PR2+1, PR2+7, EXIT+1!, NEW~
K	PR2+4, PR2+5, PR2+7, EXIT+2!
L	PR0, PR2+7, EXP, EXIT+1!, NEW~, REDISP
LL	EXIT+1!
LL1	EXIT+1!
LN	PR2+8, TOP+3, EXP, EXIT+1!, REDISP+1*
M	PR2+4, PR2+7, TOP+2, EXIT+2!
MCARDT	PR2+1*, PR2+7, EXIT+2!
>> MCARGDA	EXP1*
MCARGRTN	EXP1+1*, EXIT+1!
MCARNM	BEG+8*, TOP, EXIT+2!
MCARPPS	EXP1*, EXIT+1!, NEW
MCARPROC	PR2+1, PR2+2, PR2+3*, PR2+7, EXIT+2!
MCL	REDISP*, REDISP+1, REDISP+2!
>> MCPRO	EXP1*
MCRED	REDISP+1*, REDISP+2!
MCRED1	REDISP+1*, REDISP+2!
N	EXIT+2!
OT	EXP1*, EXP1+1, EXIT+1!
PE	PROC!, PROC+3*
POP	PR, EXIT+1!
PR	PR2+1*, PR2+3, PR2+4, PR2+7, EXIT+1!
R	EXP*, EXP+1, EXP1, EXIT+1!
S1	EXIT+1!
S2	EXIT+1!
S4	EXIT+1!
S5	CHOOZ!, BEG+1, LOC+2, EXIT+1!, PROC!, PROC+1!, PROC+2, PROC+3
S6	EXIT+1!
SSN	BEG+8*, TOP, EXIT+2!, NEW~
U	BEG+1, BEG+9, LOC+2, PR2+1, PR2+2, PR2+3, PR2+4, PR2+7, EXP, EXP1 , EXP1+1, REDISP+1, PROC+1, PROC+3
>> VA("PID"	BEG+8
>> VADM(1	BEG+8
>> VAIN(4	BEG+9
WARD	BEG+9*, TOP, EXIT+2!
WH	CHOOZ, CHOOZ+1, CHOOZ+2!, BEG+1, BEG+3!, PR2+1, PR2+7
X	CHOOZ+2!, PROC+2*
Y	CHOOZ+2!, BEG+3!, BEG+8, PR2+7*, PROC+3
Y(0	PROC+3
>> ZTDESC	PR+1*
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
>> ZTRTN	PR+1*
>> ZTSAVE("DFN"	PR+2*
>> ZTSAVE("MC*"	PR+2*
>> ZTSAVE("SSN"	PR+2*
>> ZTSAVE("WARD"	PR+2*
>> ZTSAVE("WH"	PR+2*
>> ZTSAVE("^TMP(""MCAR"",$J,"	PR+2*
ZTSK	PR+2!, EXIT!

Customize PDF page

Package: Medicine

Routine: MCARPS

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

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
PR
LOC	;LOCATE PROCEDURES FROM "AC" X-REF
HELP
PROC
TOP
NEW
BEG	;SEARCH FOR SELECTED PATIENT IN CARDIOLOGY FILE
REDISP
PR1
PR0
EXP
PR2
EXIT
FIN
EXP1
CHOOZ