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: RGMTAUD

Package: Clinical Information Resource Network

Routine: RGMTAUD


Information

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

Source Information

Source file <RGMTAUD.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: 3

Package Total Caller Graph
Clinical Information Resource Network 2 RGEX03  RGMT AUDIT SINGLE  
Registration 1 VAFCMGA  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
ASK1 ;Ask for PATIENT
DSP ;Display if audit data is available - **60 MVI_1901 (cml) new subroutine added to pick up audit data for multiple subfields
ASK2 ;Ask for Date Range
DEV
START ;
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+7
^DIC ASK1+2, PRT+17
FIELD^DID PRT+12
EN^DIQ1 PRT+22, PRT+24, PRT+25
^DIR ASK2+3, ASK2+4, 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: !!,PRTDT,?20,FLD,?51,USER,!?20,OLD," / ",NEW
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: !?3,RGOPTN
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !?3
  • Condition for execution: $G(RGOPTN)=""
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: "/",$G(OPTNM)
  • Line Location: PRT+28
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,?72,"Page: ",PG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Patient: ",$P(^DPT(RGDFN,0),U)," (DFN #",RGDFN,")"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Date Range: ",PRGBDT," to ",PRGEDT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"Date/Time Edited",?20,"Field Edited",?51,"Edited By"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?20,"Old Value / New Value",!?3,"Option/Protocol",!,LN
  • Line Location: HDR+8
Routine Call
  • DIC
  • Line Location:
    • ASK1+2
    • PRT+17
Routine Call
  • DIR
  • Line Location:
    • ASK2+3
    • ASK2+4
    • 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+11
^DIA(2 DSP+4, DSP+5, DSP+7, DSP+8, LOOP+2, LOOP+3, LOOP+7, LOOP+8, LOOP+9, PRT+9
, PRT+18, PRT+19, PRT+20, PRT+21, PRT+23
^DPT - [#2] DSP+2, HDR+5
^TMP("RGMTAUD" START+1!, LOOP+4*, LOOP+9*, PRT+5, PRT+6, PRT+7, QUIT+3!

Label References

Name Line Occurrences
ASK1 DSP+10
HDR PRT+4, PRT+26
QUIT ASK1+2, ASK2+3, ASK2+4, DEV+4, PRT+5

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+4!
%I QUIT+4!
DA PRT+22*!, PRT+24*!, PRT+25*!
DFN ASK2+1, QUIT+4!
DFNMULT DSP+7*, DSP+8, LOOP+7*, LOOP+8, QUIT+5!
DIC ASK1+2*!, PRT+17*, PRT+22*!, PRT+24*!, PRT+25*!
DIC("A" ASK1+2*
DIC(0 ASK1+2*, PRT+17*
DIQ PRT+22*!, PRT+24*!, PRT+25*!
DIQ(0 PRT+22*, PRT+24*, PRT+25*
DIR ASK2+3!, ASK2+4!, QUIT+1!, HDR+2!
DIR("A" ASK2+3*, ASK2+4*
DIR(0 ASK2+3*, ASK2+4*, QUIT+1*, HDR+2*
DIRUT ASK2+3!, ASK2+4
DR PRT+22*!, PRT+24*!, PRT+25*!
DTOUT ASK2+3!
DUOUT ASK2+3!
EARLY DSP+1*, DSP+5*, DSP+11, DSP+12, DSP+13, DSP+14, QUIT+5!
EARLYDT DSP+1*, DSP+11*, DSP+12*, DSP+13*, DSP+14*, DSP+15, QUIT+5!
EARLYM DSP+1*, DSP+8*, DSP+11, DSP+12, DSP+13, DSP+14, QUIT+5!
EDITDT DSP+5*, DSP+8*, LOOP+3*, LOOP+4, LOOP+9*, PRT+6*, PRT+7, PRT+8, QUIT+4!
FIELD PRT+11*, PRT+12, QUIT+5!
FILE PRT+11*, PRT+12, QUIT+5!
FLD PRT+13*, PRT+26, QUIT+4!
GOT DSP+1*, DSP+5*, DSP+8*, DSP+10, QUIT+5!
HDT PRT+3*, QUIT+4!, HDR+4
IEN DSP+4*, DSP+5, DSP+8*, LOOP+2*, LOOP+3, LOOP+4, LOOP+8*, LOOP+9, PRT+7*, PRT+9
, PRT+18, PRT+19, PRT+20, PRT+21, PRT+23, QUIT+4!
IEN0 PRT+9*, PRT+11, PRT+15, QUIT+4!
IOF HDR+3
IOSL PRT+26
IOST QUIT+1, HDR+1, HDR+2, HDR+3
JJ QUIT+2*, QUIT+4!, HDR+1*
LN PRT+1*, QUIT+4!, HDR+8
NEW PRT+19*, PRT+26, QUIT+4!
OLD PRT+18*, PRT+26, QUIT+4!
OPTDA1 PRT+20!, PRT+21*, PRT+22, QUIT+4!
OPTDA2 PRT+20!, PRT+23*, PRT+24, PRT+25, QUIT+4!
OPTNM PRT+20!, PRT+24*, PRT+25*, PRT+28, QUIT+4!
PG PRT+1*, QUIT+4!, HDR+2, HDR+3*, HDR+4
>> POP DEV+2
PRGBDT PRT+2*, QUIT+4!, HDR+6
PRGEDT PRT+2*, QUIT+4!, HDR+6
PRTDT PRT+8*, PRT+26, QUIT+4!
PTNM DSP+2*, DSP+10, QUIT+5!
QFLG RGMTAUD+8*, PRT+1*, PRT+6, PRT+7, PRT+26, QUIT+1, QUIT+6!, HDR+2*
QQ QUIT+5!
RGARR PRT+12!, QUIT+6!
RGARR("LABEL" PRT+13
RGBDT ASK2+4*, LOOP+3, LOOP+9, PRT+2, QUIT+6!
RGDFN ASK1+2*, DSP+2, DSP+4, DSP+7, ASK2+1*, LOOP+2, LOOP+7, QUIT+4!, HDR+5
RGEDT ASK2+4*, LOOP+1, PRT+2, QUIT+6!
RGOPTN PRT+20!, PRT+22*, PRT+27, PRT+28, QUIT+4!
RGOPTN(101 PRT+24
RGOPTN(19 PRT+22, PRT+25
SITE PRT+1*, QUIT+6!, HDR+4
SS QUIT+2*, QUIT+6!, HDR+1*
STOP LOOP+1*, LOOP+3, LOOP+9, QUIT+6!
SUB QUIT+5!
U START+1*, LOOP+3, PRT+1*, PRT+15, HDR+5
USER PRT+15*, PRT+16*, PRT+17*, PRT+26, QUIT+6!
X PRT+17*, QUIT+6!
Y ASK1+2, ASK2+4, PRT+17, QUIT+6!, HDR+2
>> ZTQUEUED QUIT+7
>> ZTREQ QUIT+7*
>> ZTSAVE DEV+2
>> ZTSAVE("RGBDT" DEV+1*
>> ZTSAVE("RGDFN" DEV+1*
>> ZTSAVE("RGEDT" 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