Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: VAFCAUD

Package: Registration

Routine: VAFCAUD


Information

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

Source Information

Source file <VAFCAUD.m>

Call Graph

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All