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

Entry Points

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

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

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