Routine: AZP3APC

Information

AZP3APC ;REPORT FOR PRIVATE INSURANCE ELIGIBLE APC VISITS [ 11/09/90 7:58 AM ]

Source file <AZP3APC.m>

Package	Total	Call Graph
VA Fileman	2	^%DT NOW^%DTC
Kernel	1	^%ZIS

Package	Total	Caller Graph
Portland Private Insurance package	1	AZP3APC

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOU MUST ENTER AN ENDING DATE..." Line Location: A1+1
Function Call: WRITE	Prompt: !,"BEGINNING DATE MUST IS AFTER ENDING DATE OF REPORT" Line Location: A1+2
Function Call: WRITE	Prompt: @IOF,!?15,"APC REPORT FOR ELIGIBLE PRIVATE INSURANCE PATIENTS",!!?20,"BEGINNING ",BDT," THROUGH ",EDT,! Line Location: HEAD+0
Function Call: WRITE	Prompt: !!,"PATIENT NAME: ",NM,?45,"HEALTH RECORD NUMBER: ",HRN,! Line Location: HEAD1+0
Function Call: WRITE	Prompt: !,"FACILITY",?20,"DATE OF SERVICE",?40,"CLINIC",?50,"PROBLEM CODE",?64,"ICD9 CODE",!,"--------",?20,"---------------",?40,"------",?50,"------------",?64,"---------",! Line Location: HEAD2+0
Function Call: WRITE	Prompt: "INS: ",$P(INS(L1),U),?40,"BEG: ",BELG,?60,"END: ",EELG,! Line Location: INS+0
Routine Call	%ZIS Line Location: VAR+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	EXIT
^AAPCRCDS(	BEG+3
^AAPCRCDS("B"	BEG+1, BEG+3
^AAPCRECD(	BEG+5
^AUPNPRVT - [#9000006]	BEG, BEG+2
^AUTNINS - [#9999999.18]	BEG+2
^DD("DD"	A1+3, BEG+5, INS
^DIC("40.7"	BEG+5
^DIC(4 - [#4]	BEG+5
^DPT - [#2]	BEG+1

Name	Field # of Occurrence
^(0	BEG+2, BEG+3

Name	Field # of Occurrence
%DT	A*, EXIT!
%DT("A"	A, A1
>> %ZIS("A"	VAR+1*
BDOS	A*, A1+2, A1+3, BEG+4, EXIT!
BDT	A1+3*, HEAD, EXIT!
BELG	BEG+4, INS, EXIT!
CL	BEG+3*, BEG+5, EXIT!
DFN	VAR, BEG, BEG+1, BEG+2, BEG+3, EXIT!
DOS	BEG+3*, BEG+4, BEG+5, BEG+8!
DOS(	BEG+5*, BEG+6, BEG+7
DOSND	BEG+6*, BEG+7, EXIT!
DT	VAR+1*, A1+1
EDOS	A1, A1+1, A1+2, A1+3, BEG+4, EXIT!
EDT	A1+3*, HEAD, EXIT!
EELG	BEG+4, INS, EXIT!
FAC	BEG+3, BEG+5, BEG+6, BEG+7, EXIT!
FAC1	BEG+6, BEG+7, EXIT!
>> HRN	BEG+3*, HEAD1
INS	BEG+2*, BEG+8!
INS(	BEG+2*, BEG+4, INS
IO	HEAD
IOF	HEAD
L	BEG+2, BEG+3, BEG+4, INS, EXIT!
L1	BEG+4, INS, EXIT!
ND	BEG+1, BEG+3, BEG+5, EXIT!
NM	BEG+1*, HEAD1, EXIT!
>> PROB	BEG+3*, BEG+5
TST	BEG+2, BEG+4, HEAD1, EXIT!
U	VAR*, BEG+1, BEG+2, BEG+3, BEG+4, BEG+5, BEG+6, BEG+7, INS
X	VAR+1, EXIT!
Y	A, A1, A1+3, BEG+5, INS*, EXIT!