Routine: ABMDRPCC

Package

Total

Call Graph

^DIC EN^DIQ1 ^DIR

(,HOME)^%ZIS ^%ZTLOAD

$$EN^ABMVDF

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+2
Function Call: WRITE	Prompt: !,"No PCC Visits Found for This Patient.",! Line Location: LOOP+17
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: TM+2
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),!,"PATIENT: ",ABM("PNM"),?40,"SSN: ",ABM("SSN") Line Location: HDR+3
Function Call: WRITE	Prompt: !,?9,"VISIT DATE/TIME",?30,"VISIT LOCATION",?50,"SERVICE CATEGORY",!,ABM("EQ"),! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: START+4
Routine Call	DIR Line Location: LOOP+13 LOOP+17 LOOP+19
Routine Call	%ZIS Line Location: DEV+1 DEV+3

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	LOOP+3
^AUPNVSIT("AA"	LOOP+1, LOOP+2
^DPT - [#2]	START+5

Name	Line Occurrences
HDR	START+7, LOOP+16
QUE	DEV+2

Name	Field # of Occurrence
^(0	START+5

Name	Field # of Occurrence
>> %ZIS	DEV+1*
>> %ZIS("A"	DEV+1*
ABM	LOOP+17!, LOOP+18!, LOOP+19!, LOOP+22!
ABM("EQ"	START+7*, HDR+4
ABM("I"	START+7, LOOP+4, LOOP+7, LOOP+12, LOOP+13, LOOP+19, HDR+2
ABM("PNM"	START+5*, HDR+3
ABM("PST"	LOOP+13, LOOP+19, HDR+2*
ABM("QUIT"	LOOP+1, LOOP+2, LOOP+14, LOOP+15, LOOP+18
ABM("SSN"	START+5, START+6, HDR+3
ABM("VDFN"	LOOP+2*, LOOP+3, LOOP+4, LOOP+6
ABM("VDT"	LOOP+1*, LOOP+2
ABM(9000010	LOOP+5!, LOOP+8, LOOP+9, LOOP+10, LOOP+11
ABMN	LOOP+17, LOOP+22!, HDR+1!
ABMN(	LOOP+4*, LOOP+14, LOOP+21
APCDPAT	START+4*, START+5, LOOP+1, LOOP+2, TM+3!
APCDVDSP	START+1!, LOOP+14, LOOP+18, LOOP+19, LOOP+21, TM+3!
>> AUPNLK("ALL"	START+3*
>> DA	LOOP+6*, LOOP+8, LOOP+9, LOOP+10, LOOP+11
>> DIC	START+4, LOOP+6
>> DIC(0	START+4*
DIQ	LOOP+6*!
DIQ(0	LOOP+6*
DIR	LOOP+13!, LOOP+17!, LOOP+19!
DIR(0	LOOP+13, LOOP+17, LOOP+19*
>> DIROUT	LOOP+20
>> DIRUT	LOOP+20
>> DR	LOOP+6*
>> DTOUT	LOOP+20
>> DUOUT	LOOP+20
IO	DEV+2
IO("S"	DEV+3
IO(0	DEV+2
ION	DEV+3
>> IOP	DEV+3*
IOSL	LOOP+12
IOST	TM+2
>> POP	DEV+1
U	START+5
>> X	LOOP+14, LOOP+20, LOOP+21
>> Y	START+4, LOOP+15, LOOP+19
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("APCDPAT"	QUE+2*
>> ZTSAVE("APCDVDSP"	QUE+2*
ZTSK	QUE+3!

Information