Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call