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
Print Page as PDF
Routine: DGPREP5

Package: Registration

Routine: DGPREP5


Information

DGPREP5 ;ALB/SCK - PreRegistration Audit field totals ; 10/10/03 3:16pm

Source Information

Source file <DGPREP5.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for audit totals by user
AGN
RPT ; Call procedures to build the data arrays, and then call the print procedure
EXIT ; Clean up and exit
BLD2 ; Build array of audit data for the PATIENT File, #2
BLD3 ; Build array of audit data for file 2.312
PRNT(DGPDD) ; Print the report
TOT ; Display totals by user
HDR(DGPDD) ; Page header
HDR1(DGPDD,DFLD) ; Field header
NEWPGE() ; Check for device and execute header if user does not quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The ending date for this report cannot be earlier then the beginning date"
  • Line Location: AGN+4
Function Call: WRITE
  • Prompt: !!?5,"No audit data for this date range"
  • Line Location: PRNT+6
Function Call: WRITE
  • Prompt: !?5,$P(^VA(200,DGPIENX,0),U),": ",?50,$J(^TMP("DGPAUD",$J,DGPDD,DGPFLDX,DGPIENX),6)
  • Line Location: PRNT+13
Function Call: WRITE
  • Prompt: !!?5,$P(^DD(DGPDD,$S(DGPDD=2:DGPFLDX,1:$P(DGPFLDX,",",2)),0),U)_" (TOTAL): ",?50,$J(DGPTOT,6)
  • Line Location: PRNT+16
Function Call: WRITE
  • Prompt: !?5,DGPLN,!
  • Line Location: PRNT+18
Function Call: WRITE
  • Prompt: !!,?2,"User Totals"
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !?2,DGPDSH
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: !?5,$P(^VA(200,DGPIENX,0),U),?50,$J(+$G(^TMP("DGPTOT",$J,DGPIENX)),5)
  • Line Location: TOT+8
Function Call: WRITE
  • Prompt: !!?5,"Total Changes: ",?50,$J(DGPTOT,5)
  • Line Location: TOT+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?2,"Pre-Registration Audit Totals"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?2,"For Period Covering "_$$FMTE^XLFDT(DGPBEG,"2D")_" to "_$$FMTE^XLFDT(DGPEND,"2D")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?2,DGPDSH
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,?2,$S(DGPDD=2:"Patient Demographic Data --",DGPDD=2.312:"Patient Insurance Data",1:"")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?5,"**** Field: ",$P(^DD(DGPDD,$S(DGPDD=2.312:$P(DFLD,",",2),1:DFLD),0),U)," ****",!
  • Line Location: HDR1+2
Info |  Source |  Entry Points |  Interaction Calls