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

Package: Clinical Information Resource Network

Routine: RGMTAUDP


Information

RGMTAUDP ;BIR/CML,PTD-MPI/PD AUDIT File Print of Patient Data ; 4/7/14 6:47pm

Source Information

Source file <RGMTAUDP.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

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Information Resource Network 1 RGMT AUDIT PRINT  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;
BEGIN ;
HDR ;HEADER
PRT ;Print report
LOOP ;Loop on "B" xref of the AUDIT file
ASKDT ;Ask for Date Range
FLDLOOP ;
START ;
ASKPAT ;Ask for Patient
DEV
ASKFLD ;Ask for Data Fields
ASKUSER ;Ask if data is wanted only a specific user
PATLOOP ;
FLDLIST ;Help for Field # List

External References

Name Field # of Occurrence
NOW^%DTC PRT+3
^%ZISC QUIT+7
^DIC PATLOOP+4, ASKUSER+6, PRT+20
FIELD^DID PRT+15, FLDLIST+19
EN^DIQ1 PRT+25, PRT+27, PRT+28
^DIR ASKFLD+9, FLDLOOP+13, ASKPAT+9, ASKDT+3, ASKDT+4, ASKUSER+3, QUIT+1, HDR+2, FLDLIST+17
$$SITE^VASITE PRT+1
$$FMTE^XLFDT PRT+2, PRT+3, PRT+11
EN^XUTMDEVQ DEV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"This option prints a customized report of information stored in the AUDIT"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"file (#1.1) for fields being audited in the PATIENT file (#2). For a"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !,"specified date range, you can view all audited fields or selected fields."
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,"You can also opt to print only edits that were done by a specific user."
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !!,"- If selected fields are viewed, you can choose to see data for all or"
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !," selected patients."
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: !,"- If ALL audited fields are viewed, you must choose patients to examine."
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: !!,"No fields are currently being audited in the PATIENT file (#2)."
  • Line Location: ASKFLD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKFLD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FLDLOOP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FLDLOOP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPAT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PATLOOP+1
Function Call: WRITE
  • Prompt: $C(7),!?5,"This patient has no audit data available for any date."
  • Line Location: PATLOOP+5
Function Call: WRITE
  • Prompt: !!,"Enter date range for data to be included in report."
  • Line Location: ASKDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKUSER+2
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: "Because you selected ALL patients, you MUST queue this report.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !!,"No audit data found in this date range for specified parameters."
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !!,PRTDT,?20,FLD,?51,USER,!?20,OLD," / ",NEW
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: "/",OPTNM
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: !!,"==> ",$P(PATNM,U)," (DFN #",$P(PATNM,U,2),")"_RGNAUD
  • Line Location: PRT+35
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: !,"Date Range: ",PRGBDT," to ",PRGEDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"Date/Time Edited",?20,"Field Edited",?51,"Edited By",!?20,"Old Value / New Value"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?3,"Option/Protocol",!,LN
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: FLDLIST+1
Function Call: WRITE
  • Prompt: @IOF,HDR,!
  • Line Location: FLDLIST+3
Function Call: WRITE
  • Prompt: !!,"No fields are currently being audited in the Patient file."
  • Line Location: FLDLIST+9
Function Call: WRITE
  • Prompt: @IOF,HDR,!
  • Line Location: FLDLIST+18
Routine Call
  • DIC
  • Line Location:
    • PATLOOP+4
    • ASKUSER+6
    • PRT+20
Routine Call
  • DIR
  • Line Location:
    • ASKFLD+9
    • FLDLOOP+13
    • ASKPAT+9
    • ASKDT+3
    • ASKDT+4
    • ASKUSER+3
    • QUIT+1
    • HDR+2
    • FLDLIST+17

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( FLDLOOP+5, FLDLIST+8
^DD(2 ASKFLD+1, FLDLOOP+4, LOOP+18, PRT+14, FLDLIST+7
^DIA(2 PATLOOP+5, START+5, LOOP+8, LOOP+9, LOOP+16, LOOP+17, PRT+12, PRT+21, PRT+22, PRT+23
, PRT+24, PRT+26
^DPT - [#2] LOOP+1, LOOP+6, LOOP+21
^TMP("RGMTAUDP" START+1!, START+5*, LOOP+13*, LOOP+21*, LOOP+24, PRT+5, PRT+6, PRT+9, PRT+10, QUIT+3!
^TMP("RGMTAUDP2" START+1!, LOOP+24*, PRT+31, PRT+32, PRT+34, QUIT+3!

Label References

Name Line Occurrences
ASKDT PATLOOP+2
ASKPAT FLDLOOP+3
DEV ASKUSER+3
FLDLIST FLDLOOP+8
HDR PRT+4, PRT+7, PRT+29
LOOP START+5, START+7
PATLOOP ASKPAT+2
PRT START+8
QUIT ASKFLD+1, ASKFLD+9, ASKPAT+1, ASKPAT+9, ASKDT+1, ASKDT+3, ASKDT+4, ASKUSER+6, DEV+6, PRT+5

Naked Globals

Name Field # of Occurrence
^(0 LOOP+9, LOOP+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRT+3, QUIT+4!
%I QUIT+4!
>> %ZIS DEV+4
>> %ZIS("B" DEV+2*
ANS1 ASKFLD+9*, FLDLOOP+3, ASKPAT+2, QUIT+4!
ANS2 ASKPAT+2*, ASKPAT+9*, PATLOOP+2, DEV+1, START+3, START+6, LOOP+23, QUIT+4!
CNT FLDLOOP+14*, START+4*, START+5*, QUIT+4!, FLDLIST+11*, FLDLIST+12, FLDLIST+14*, FLDLIST+21
DA PRT+25*!, PRT+27*!, PRT+28*!
DFNMULT LOOP+16*, QUIT+4!
DIC PATLOOP+4*!, ASKUSER+5*, ASKUSER+6!, PRT+20*, PRT+25*!, PRT+27*!, PRT+28*!
DIC("A" PATLOOP+4*, ASKUSER+5*
DIC(0 PATLOOP+4*, ASKUSER+5*, PRT+20*
DIQ PRT+25*!, PRT+27*!, PRT+28*!
DIQ(0 PRT+25*, PRT+27*, PRT+28*
DIR ASKFLD+3!, FLDLOOP+10!, ASKPAT+3!, ASKDT+3!, ASKDT+4!, ASKUSER+3!, QUIT+1!, QUIT+4!, HDR+2!, FLDLIST+1~
, FLDLIST+17!
DIR("?" ASKFLD+6*, ASKFLD+7*, ASKFLD+8*, FLDLOOP+12*, ASKPAT+6*, ASKPAT+7*, ASKPAT+8*
DIR("A" ASKFLD+4*, FLDLOOP+11*, ASKPAT+4*, ASKDT+3*, ASKDT+4*, ASKUSER+2*
DIR("B" ASKFLD+5*, ASKPAT+5*, ASKUSER+2*
DIR(0 ASKFLD+3*, FLDLOOP+11*, ASKPAT+3*, ASKDT+3*, ASKDT+4*, ASKUSER+2*, QUIT+1*, HDR+2*, FLDLIST+17*
DIRUT ASKFLD+9, FLDLOOP+13, ASKPAT+9, ASKDT+3!, ASKDT+4, QUIT+4!
DR PRT+25*!, PRT+27*!, PRT+28*!
DTOUT ASKDT+3!, QUIT+4!
DUOUT ASKPAT+1, ASKDT+1, ASKDT+3!, QUIT+4!
EDITDT LOOP+9*, LOOP+13, LOOP+17*, LOOP+21, PRT+9*, PRT+10, PRT+11, QUIT+4!
FIELD PRT+14*, PRT+15, QUIT+4!
FILE FLDLOOP+5*, FLDLOOP+14*, LOOP+18*, PRT+14*, PRT+15, QUIT+4!, FLDLIST+8*, FLDLIST+11*, FLDLIST+14*, FLDLIST+19
, FLDLIST+21
FLD FLDLOOP+1!, FLDLOOP+4*, FLDLOOP+5*, LOOP+10*, LOOP+18*, PRT+16*, PRT+29, QUIT+4!, FLDLIST+6!, FLDLIST+7*
, FLDLIST+8*, FLDLIST+9, FLDLIST+12!
FLD( FLDLOOP+5*, FLDLOOP+14*, LOOP+18, FLDLIST+8*, FLDLIST+11
FLD(0 ASKPAT+1
FLD(2 FLDLOOP+4*, LOOP+10, FLDLIST+7*
FLDCNT FLDLIST+6!
FLDCNT( FLDLOOP+14, FLDLIST+11*, FLDLIST+14
FLDLP FLDLOOP+14*, QUIT+4!, FLDLIST+11*, FLDLIST+14*, FLDLIST+19, FLDLIST+21
FLDNM QUIT+4!, FLDLIST+20*, FLDLIST+21
HDR QUIT+4!, FLDLIST+2*, FLDLIST+3, FLDLIST+18
HDT PRT+3*, QUIT+5!, HDR+4
IEN LOOP+8*, LOOP+9, LOOP+13, LOOP+16*, LOOP+17, LOOP+21, PRT+10*, PRT+12, PRT+21, PRT+22
, PRT+23, PRT+24, PRT+26, QUIT+5!
IEN0 LOOP+9*, LOOP+10, LOOP+11, LOOP+17*, LOOP+18, LOOP+19, PRT+12*, PRT+14, PRT+18, QUIT+5!
IOF BEGIN+2, HDR+3, FLDLIST+3, FLDLIST+18
>> IOP DEV+1*
IOSL PRT+7, PRT+29, FLDLIST+16
IOST QUIT+1, HDR+1, HDR+2, HDR+3
JJ QUIT+2*, QUIT+5!, HDR+1*
LN PRT+1*, QUIT+5!, HDR+7
MAX FLDLOOP+11, QUIT+4!, FLDLIST+12*
NEW PRT+22*, PRT+29, QUIT+5!
OLD PRT+21*, PRT+29, QUIT+5!
OPTDA1 PRT+23!, PRT+24*, PRT+25, QUIT+5!
OPTDA2 PRT+23!, PRT+26*, PRT+27, PRT+28, QUIT+5!
OPTION PRT+23!, PRT+25*, PRT+30, QUIT+5!
OPTION(101 PRT+27
OPTION(19 PRT+25, PRT+28
OPTNM PRT+23!, PRT+27*, PRT+28*, PRT+30, QUIT+5!
PAT PATLOOP+1!, ASKDT+1, QUIT+5!
PAT( PATLOOP+6*, START+7
PAT("ALL" PATLOOP+2*
PATNM LOOP+6*, LOOP+7, LOOP+13, LOOP+21*, LOOP+24, PRT+6*, PRT+8, PRT+9, PRT+10, PRT+32*
, PRT+34, PRT+35, QUIT+5!
PC1 LOOP+18*, QUIT+4!
PC2 LOOP+18*, QUIT+4!
PG PRT+1*, QUIT+5!, HDR+2, HDR+3*, HDR+4
>> POP DEV+4
PRGBDT PRT+2*, QUIT+5!, HDR+5
PRGEDT PRT+2*, QUIT+5!, HDR+5
PRTDT PRT+11*, PRT+29, QUIT+5!
QFLG BEGIN+1*, ASKPAT+1*, ASKDT+1*, DEV+6*, PRT+1*, PRT+6, PRT+7, PRT+9, PRT+10, PRT+29
, PRT+33, QUIT+1, QUIT+5!, HDR+2*, FLDLIST+1*, FLDLIST+14, FLDLIST+16, FLDLIST+17*
QQ FLDLOOP+13*, PATLOOP+4*, QUIT+5!
RG FLDLIST+1!
RGARR PRT+15!, QUIT+5!, FLDLIST+19!
RGARR("LABEL" PRT+16, FLDLIST+20
RGBDT ASKDT+4*, LOOP+9, LOOP+17, PRT+2, QUIT+5!
RGDFN PATLOOP+4*, PATLOOP+5, PATLOOP+6, START+5*, START+7*, LOOP+1, LOOP+6, LOOP+8, LOOP+16, LOOP+21
, QUIT+4!
RGEDT ASKDT+4*, START+2, PRT+2, QUIT+6!
RGERR FLDLOOP+8*, FLDLOOP+13*, QUIT+6!, FLDLIST+1
RGNAUD PRT+32*, PRT+34*, PRT+35, QUIT+5!
SEL QUIT+4!
SEL( FLDLOOP+13*, FLDLOOP+14
SITE PRT+1*, QUIT+6!, HDR+4
SS QUIT+2*, QUIT+6!, HDR+1*
STOP START+2*, LOOP+9, LOOP+17, QUIT+6!
SUB QUIT+4!
U START+1*, LOOP+6, LOOP+7, LOOP+9, LOOP+10, LOOP+11, LOOP+17, LOOP+18, LOOP+19, LOOP+21
, PRT+1*, PRT+8, PRT+18, PRT+34, PRT+35
USER LOOP+11*, LOOP+12, LOOP+19*, LOOP+20, PRT+18*, PRT+19*, PRT+20*, PRT+29, QUIT+6!
USERSCRN ASKUSER+1!, ASKUSER+6*, LOOP+12, LOOP+20
X PRT+20*, QUIT+6!
Y ASKFLD+9, FLDLOOP+13, ASKPAT+9, PATLOOP+4, ASKDT+4, ASKUSER+3, ASKUSER+6, PRT+20, QUIT+6!, HDR+2
, FLDLIST+17
>> ZTQUEUED QUIT+7
>> ZTREQ QUIT+7*
>> ZTSAVE DEV+4
>> ZTSAVE("ANS2" DEV+2*
>> ZTSAVE("FLD(" DEV+2*
>> ZTSAVE("PAT(" DEV+2*
>> ZTSAVE("RGBDT" DEV+2*
>> ZTSAVE("RGEDT" DEV+2*
>> ZTSAVE("USERSCRN" DEV+3*
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