Routine: VAFCAUD

Information

VAFCAUD ;BIR/CML-MPI/PD AUDIT FILE PRINT FOR A SPECIFIED PATIENT ;20 May 2013 2:25 PM

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	5	NOW^%DTC ^DIC FIELD^DID EN^DIQ1 ^DIR
Kernel	3	^%ZISC $$FMTE^XLFDT EN^XUTMDEVQ
Registration	1	$$SITE^VASITE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	VAFCMGA1

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;
ASK1	;Ask for PATIENT
DSP	;Display if audit data is available - **863 MVI_2039 (cml) new subroutine added to pick up audit data for multiple subfields
ASK2	;Ask for Date Range
DEV
START(VAFCDFN,VAFCBDT,VAFCEDT,RPCFLG)	;
LOOP	;Loop on "B" xref of the AUDIT file
PRT	;Print report
QUIT	;
HDR	;HEADER

External References

Name	Field # of Occurrence
NOW^%DTC	PRT+3
^%ZISC	QUIT+3
^DIC	ASK1+2, PRT+15
FIELD^DID	PRT+11
EN^DIQ1	PRT+20, PRT+22, PRT+23
^DIR	ASK2+4, ASK2+5, QUIT+1, HDR+2
$$SITE^VASITE	PRT+1
$$FMTE^XLFDT	DSP+15, PRT+2, PRT+3, PRT+8
EN^XUTMDEVQ	DEV+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option prints information from the AUDIT file (#1.1) for a" Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"selected patient and date range." Line Location: BEGIN+2
Function Call: WRITE	Prompt: !!,"For the PATIENT file (#2) entry selected, the report prints the" Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,"patient name and DFN, date/time the field was edited, the user who" Line Location: BEGIN+4
Function Call: WRITE	Prompt: !,"made the change, the field edited, the old value, and the new value." Line Location: BEGIN+5
Function Call: WRITE	Prompt: !,"The option or protocol (if available) will also be displayed." Line Location: BEGIN+6
Function Call: WRITE	Prompt: ! Line Location: ASK1+1
Function Call: WRITE	Prompt: !!,"There is no audit data available for any date for ",PTNM,"." Line Location: DSP+10
Function Call: WRITE	Prompt: !!,"The earliest audit data is "_$$FMTE^XLFDT(EARLYDT)_"." Line Location: DSP+15
Function Call: WRITE	Prompt: !!,"Enter date range for data to be included in report." Line Location: ASK2+2
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!! Line Location: DEV+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!" Line Location: DEV+3
Function Call: WRITE	Prompt: !!,"No audit data found in this date range for this patient." Line Location: PRT+5
Function Call: WRITE	Prompt: !?3,VAFCOPTN Line Location: PRT+26
Function Call: WRITE	Prompt: !?3 Condition for execution: $G(VAFCOPTN)="" Line Location: PRT+27
Function Call: WRITE	Prompt: "/",$G(OPTNM) Line Location: PRT+27
Function Call: WRITE	Prompt: ! Line Location: QUIT+2
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Function Call: WRITE	Prompt: !,"PATIENT AUDIT LIST at ",SITE," on ",HDT,?70,"Page: ",PG Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Patient: ",$P(^DPT(VAFCDFN,0),U)," (DFN #",VAFCDFN,")" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Date Range: ",PVAFCBDT," to ",PVAFCEDT Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"Date/Time Edited",?20,"Field Edited",?51,"Edited By" Line Location: HDR+8
Function Call: WRITE	Prompt: !?20,"Old Value / New Value",!?3,"Option/Protocol",!,LN Line Location: HDR+9
Routine Call	DIC Line Location: ASK1+2 PRT+15
Routine Call	DIR Line Location: ASK2+4 ASK2+5 QUIT+1 HDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	PRT+10
^DIA(2	DSP+4, DSP+5, DSP+7, DSP+8, LOOP+2, LOOP+3, LOOP+7, LOOP+8, LOOP+9, PRT+9 , PRT+16, PRT+17, PRT+18, PRT+19, PRT+21
^DPT - [#2]	DSP+2, HDR+6
^TMP("VAFCAUD"	START+2!, LOOP+4, LOOP+9, PRT+5, PRT+6, PRT+7, QUIT+4!

Label References

Name	Line Occurrences
ASK1	BEGIN+7, DSP+10
ASK2	BEGIN+8
DEV	BEGIN+9
HDR	PRT+4, PRT+24
QUIT	BEGIN+10, DEV+4

Naked Globals

Name	Field # of Occurrence
^(0	DSP+5, DSP+8, LOOP+3, LOOP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRT+3, QUIT+5!
%I	QUIT+5!
C	QUIT+5!
DA	PRT+20!, PRT+22!, PRT+23*!
DFNMULT	DSP+7, DSP+8, LOOP+7, LOOP+8, QUIT+7!
DIC	ASK1+2!, PRT+15, PRT+20!, PRT+22!, PRT+23*!
DIC("A"	ASK1+2*
DIC(0	ASK1+2, PRT+15
DIQ	PRT+20!, PRT+22!, PRT+23*!
DIQ(0	PRT+20, PRT+22, PRT+23*
DIR	ASK2+3!, ASK2+4!, ASK2+5!, QUIT+1!, HDR+2!
DIR("A"	ASK2+4, ASK2+5
DIR(0	ASK2+4, ASK2+5, QUIT+1, HDR+2
DIRUT	ASK2+3!, ASK2+4, ASK2+5
DR	PRT+20!, PRT+22!, PRT+23*!
DTOUT	ASK2+3!
DUOUT	ASK2+3!
EARLY	DSP+1, DSP+5, DSP+11, DSP+12, DSP+13, DSP+14, QUIT+7!
EARLYDT	DSP+1, DSP+11, DSP+12, DSP+13, DSP+14*, DSP+15, QUIT+7!
EARLYM	DSP+1, DSP+8, DSP+11, DSP+12, DSP+13, DSP+14, QUIT+7!
EDITDT	DSP+5, DSP+8, LOOP+3, LOOP+4, LOOP+9, PRT+6*, PRT+7, PRT+8, QUIT+5!
FIELD	PRT+10*, PRT+11, QUIT+7!
FILE	PRT+10*, PRT+11, QUIT+7!
FLD	PRT+12*, PRT+25, QUIT+5!
GOT	DSP+1, DSP+5, DSP+8*, DSP+10, QUIT+7!
HDT	PRT+3*, QUIT+5!, HDR+5
IEN	DSP+4, DSP+5, DSP+8, START+1~, LOOP+2, LOOP+3, LOOP+4, LOOP+8, LOOP+9, PRT+7* , PRT+9, PRT+16, PRT+17, PRT+18, PRT+19, PRT+21, QUIT+5!
IEN0	PRT+9*, PRT+10, PRT+13, QUIT+5!
IOF	HDR+4
IOSL	PRT+24
IOST	QUIT+1, HDR+1, HDR+2, HDR+4
JJ	QUIT+2, QUIT+5!, HDR+1
LN	PRT+1*, QUIT+5!, HDR+9
NEW	PRT+17*, PRT+25, QUIT+5!
OLD	PRT+16*, PRT+25, QUIT+5!
OPTDA1	PRT+18!, PRT+19*, PRT+20, QUIT+5!
OPTDA2	PRT+18!, PRT+21*, PRT+22, PRT+23, QUIT+5!
OPTNM	PRT+18!, PRT+22, PRT+23, PRT+27, QUIT+5!
PG	PRT+1, QUIT+5!, HDR+2, HDR+3, HDR+5
POP	DEV+2, QUIT+5!
PRTDT	PRT+8*, PRT+25, QUIT+5!
PTNM	DSP+2*, DSP+10, QUIT+7!
PVAFCBDT	PRT+2*, QUIT+5!, HDR+7
PVAFCEDT	PRT+2*, QUIT+5!, HDR+7
QFLG	VAFCAUD+5, PRT+1, PRT+6, PRT+7, PRT+24, QUIT+1, QUIT+6!, HDR+2*
QQ	QUIT+7!
RPCFLG	VAFCAUD+6*, START~, PRT+24, QUIT+1, QUIT+3, QUIT+6!, HDR+1, HDR+2, HDR+4
SITE	PRT+1*, QUIT+6!, HDR+5
SS	QUIT+2, QUIT+6!, HDR+1
STOP	LOOP+1*, LOOP+3, LOOP+9, QUIT+6!
SUB	QUIT+7!
U	LOOP+3, PRT+1*, PRT+13, HDR+6
USER	PRT+13, PRT+14, PRT+15*, PRT+25, QUIT+6!
VAFCARR1	PRT+11!, QUIT+6!
VAFCARR1("LABEL"	PRT+12
VAFCBDT	BEGIN+9, ASK2+4*, ASK2+5, START~, LOOP+3, LOOP+9, PRT+2, QUIT+6!
VAFCDFN	BEGIN+8, ASK1+2*, DSP+2, DSP+4, DSP+7, START~, LOOP+2, LOOP+7, QUIT+5!, HDR+6
VAFCEDT	BEGIN+9, ASK2+5*, START~, LOOP+1, PRT+2, QUIT+6!
VAFCOPTN	PRT+18!, PRT+20*, PRT+26, PRT+27, QUIT+5!
VAFCOPTN(101	PRT+22
VAFCOPTN(19	PRT+20, PRT+23
X	PRT+15*, QUIT+6!
Y	ASK1+2, ASK2+4, ASK2+5, PRT+15, QUIT+6!, HDR+2
>> ZTQUEUED	QUIT+3
>> ZTREQ	QUIT+3*
>> ZTSAVE	DEV+2
>> ZTSAVE("VAFCBDT"	DEV+1*
>> ZTSAVE("VAFCDFN"	DEV+1*
>> ZTSAVE("VAFCEDT"	DEV+1*
ZTSK	QUIT+6!

Customize PDF page

Package: Registration