Routine: MCARPAL

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	DEM^VADPT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Medicine	1	MCARPACEPATIENT

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	MCARPAL+8
^%ZISC	EXIT+3
^%ZTLOAD	MCARPAL+9
$$GET1^DIQ	HEAD+2
DEM^VADPT	CALC1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"ACTIVE PATIENT LIST" Line Location: MCARPAL+2
Function Call: WRITE	Prompt: !! Line Location: MCARPAL+3
Function Call: WRITE	Prompt: "*" Line Location: MCARPAL+3
Function Call: WRITE	Prompt: !,"",?37,"NOTICE",?79,"" Line Location: MCARPAL+4
Function Call: WRITE	Prompt: !,"",?79,"",!,"",?10,"This report has been set up to print with a line length of 132",?79,"",!,"",?10,"characters. Select a device that uses a 132 character line length.",?79,"" Line Location: MCARPAL+5
Function Call: WRITE	Prompt: !,"",?79,"",! Line Location: MCARPAL+6
Function Call: WRITE	Prompt: "*" Line Location: MCARPAL+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: MCARPAL+7
Function Call: WRITE	Prompt: !!,MCARNM Line Location: PRINT1+2
Function Call: WRITE	Prompt: !,$E(Y,1,3),"-",$E(Y,4,5),"-",$E(Y,6,9) Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?17 Line Location: PRINT1+3
Function Call: WRITE	Prompt: Y Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?29,$S(Y=1:"EAST PSC FOLLOW-UP",Y=4:"REGISTRY ONLY",Y=7:"WEST PSC FOLLOW-UP",1:"") Line Location: PRINT1+4
Function Call: WRITE	Prompt: ?51,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PR+1
Function Call: WRITE	Prompt: ?60,Y,?64,Z,?77,$P(X,U,4) Line Location: PR+1
Function Call: WRITE	Prompt: ?90,$S($P(X,U,5)=698.1:"V: ",1:"A: "),$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PR+2
Function Call: WRITE	Prompt: ?102,Y,?106,Z,?119,$P(X,U,4) Line Location: PR+2
Function Call: WRITE	Prompt: @IOF,!!,?47,"VETERANS ADMINISTRATION MEDICAL CENTER",?120,"Pg.",PG Line Location: HEAD+0
Function Call: WRITE	Prompt: !,?132-$L($$GET1^DIQ(4.3,1,217))/2,$$GET1^DIQ(4.3,1,217) Line Location: HEAD+2
Function Call: WRITE	Prompt: !,?52,"PACEMAKER ACTIVE PATIENT LIST" Line Location: HEAD+3
Function Call: WRITE	Prompt: !!,"PATIENT",?51,"GENERATOR IMPLANT DATA",?93,"V AND A LEAD IMPLANT DATA" Line Location: HEAD+4
Function Call: WRITE	Prompt: !,"SSN",?17,"DOB",?29,"STATUS",?51,"DATE",?60,"MFR MODEL",?77,"SER. NO.",?93,"DATE",?102,"MFR MODEL",?119,"SER. NO." Line Location: HEAD+5
Function Call: WRITE	Prompt: !,?51,LN,?93,LN Line Location: HEAD+6
Routine Call	%ZIS Line Location: MCARPAL+8

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(	LEAD
^MCAR(690 - [#690]	CALC1+1
^MCAR(698 - [#698]	CALC1
^MCAR(698.4 - [#698.4]	MANUF+1
^MCAR(698.6 - [#698.6]	MANUF
^TMP($J	CALC!, CALC1+5, PRINT1, PRINT1+5, LEAD, PR+1, PR+2

Name	Field # of Occurrence
^(	PRINT1, PR+1, PR+2
^("P2"	CALC1+1
^(0	MANUF, MANUF+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	MCARPAL+8*
A	PRINT1+1, PRINT1+5, PRINT1+6, EXIT+2!
CT	CALC1+4, EXIT+2!, LEAD
DFN	CALC, CALC1, CALC1+1, EXIT+2!, LEAD
DIC	CALC1+4*, EXIT+2!, LEAD
DOB	CALC1+3*, CALC1+5, EXIT+2!
DTIME	MCARPAL+7, PRINT1+1, PRINT1+5, EXIT+1
I	MCARPAL+3, MCARPAL+6, PRINT1+5, EXIT+2!, LEAD, PR, PR+1, PR+2
IO	MCARPAL+10
IO("Q"	MCARPAL+8!, MCARPAL+9!
IOF	MCARPAL+2, EXIT+3, HEAD
IOSL	PRINT1+1, PRINT1+5
IOST	PRINT1+1, PRINT1+5, EXIT+1, EXIT+3
LN	PRINT*, EXIT+2!, HEAD+6
MCARCD	CALC1+4*, EXIT+2!, LEAD
MCAREG	CALC1+1*, CALC1+2, CALC1+5, EXIT+2!
MCARNM	CALC1+3, CALC1+5, PRINT, PRINT1*, PRINT1+2, PRINT1+5, EXIT+2!, LEAD, PR+1, PR+2
PG	PRINT, EXIT+2!, HEAD
POP	MCARPAL+8, EXIT+2!
SSN	CALC1+3*, CALC1+5, EXIT+2!
U	MCARPAL+7, CALC1+1, CALC1+3, CALC1+5, PRINT1+1, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6 , LEAD, PR+1, PR+2, MANUF, MANUF+1
VA	EXIT+2!
VADM	EXIT+2!
VADM(1	CALC1+3
VADM(2	CALC1+3
VADM(3	CALC1+3
X	MCARPAL+7, PRINT1, PRINT1+2, PRINT1+3, PRINT1+4, EXIT+1, EXIT+2!, PR+1, PR+2*, MANUF , MANUF+1
Y	PRINT1+2, PRINT1+3, PRINT1+4, EXIT+2!, LEAD, PR+1, PR+2, MANUF*
Z	EXIT+2!, PR+1, PR+2, MANUF+1*
>> ZTDESC	MCARPAL+9*
>> ZTRTN	MCARPAL+9*
ZTSK	MCARPAL+9!

Customize PDF page

Package: Medicine

Routine: MCARPAL

Information

Source Information

Call Graph

Call Graph Total: 5

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	Line Occurrences
CALC1	CALC1+1, CALC1+2, CALC1+5
EXIT	MCARPAL+7, MCARPAL+8, MCARPAL+9, PRINT1, PRINT1+1, PRINT1+6
HEAD	PRINT, PRINT1+1, PRINT1+5
LEAD	CALC1+4
MANUF	PR+1, PR+2
PR	PRINT1+5
PRINT	CALC1
PRINT1	PRINT1+6