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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 WAIT^DICD  ^DIR  

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
Registration 1 DGPRE PRE-REGISTER AUDIT RPT  

Entry Points

Name Comments DBIA/ICR reference
AGN
EN ; Entry point for audit totals by user
RPT ; Call procedures to build the data arrays, and then call the print procedure
PRNT(DGPDD) ; Print the report
TOT ; Display totals by user
HDR(DGPDD) ; Page header
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
NEWPGE() ; Check for device and execute header if user does not quit
HDR1(DGPDD,DFLD) ; Field header

External References

Name Field # of Occurrence
^%ZIS AGN+8
HOME^%ZIS AGN+14
^%ZISC EXIT+1
^%ZTLOAD AGN+13
WAIT^DICD AGN+17
^DIR EN+10, AGN, NEWPGE+3
$$FMTE^XLFDT EN+8, HDR+3
$$NOW^XLFDT EN+5

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
Routine Call
  • %ZIS
  • Line Location:
    • AGN+14
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • AGN
    • NEWPGE+3
Routine Call
  • %ZIS
  • Line Location:
    • AGN+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( PRNT+16, HDR1+2
^DD(2 BLD2+4, BLD2+5
^DD(2.312 BLD3+4, BLD3+5
^DIA(2 BLD2+9, BLD2+10, BLD2+11, BLD3+9, BLD3+10, BLD3+11
^TMP("DGPAUD" RPT+5!, EXIT+2!, BLD2+16*, BLD3+16*, PRNT+5, PRNT+9, PRNT+11, PRNT+13, PRNT+14
^TMP("DGPTOT" RPT+6!, BLD2+17*, BLD3+17*, TOT+6, TOT+8, TOT+9
^VA(200 - [#200] PRNT+13, TOT+8
^XUSEC("DGPRE EDIT" BLD2+15, BLD3+15
^XUSEC("DGPRE SUPV" BLD2+15, BLD3+15

Label References

Name Line Occurrences
$$NEWPGE PRNT+3, PRNT+12, TOT+1, TOT+7, HDR1+1
AGN AGN+3
BLD2 RPT+8
BLD3 RPT+9
EXIT EN+11, AGN+1, AGN+8, AGN+9, RPT+12, RPT+14, TOT+6, HDR1+1
HDR PRNT+4, PRNT+12, TOT+2, TOT+7, HDR1+1
HDR1 PRNT+10
PRNT RPT+11, RPT+13
TOT RPT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS AGN+8*
DFLD HDR1~, HDR1+2
DGOK NEWPGE+1~, NEWPGE+4*, NEWPGE+5
DGPABRT EN+1~, RPT+12, RPT+14, PRNT+3, PRNT+9, PRNT+11, PRNT+12, PRNT+15, TOT+1, TOT+6
, TOT+7, HDR1+1, NEWPGE+3*, NEWPGE+4
DGPBEG EN+1~, EN+12*, AGN+3, BLD2+7, BLD3+7, HDR+3
DGPDATA BLD2+1~, BLD2+11*, BLD2+12, BLD2+13, BLD2+14, BLD2+16, BLD3+1~, BLD3+11*, BLD3+12, BLD3+13
, BLD3+14, BLD3+16
DGPDD PRNT~, PRNT+4, PRNT+5, PRNT+9, PRNT+10, PRNT+11, PRNT+12, PRNT+13, PRNT+14, PRNT+16
, HDR~, HDR+5, HDR1~, HDR1+1, HDR1+2
DGPDSH EN+1~, RPT+2*, TOT+4, HDR+4
DGPDUZ BLD2+1~, BLD2+14*, BLD2+15, BLD2+16, BLD2+17, BLD3+1~, BLD3+14*, BLD3+15, BLD3+16, BLD3+17
DGPE BLD2+8*, BLD2+9, BLD3+1~, BLD3+8*, BLD3+9
DGPEND EN+1~, AGN+2*, AGN+3, BLD2+8, BLD3+8, HDR+3
DGPFLD BLD2+1~
DGPFLD( BLD2+5*, BLD2+13, BLD3+13
DGPFLD(".3121," BLD3+5*
DGPFLD1 EN+1~
DGPFLDX PRNT+1~, PRNT+8*, PRNT+9*, PRNT+10, PRNT+11, PRNT+13, PRNT+14, PRNT+16
DGPIENX PRNT+1~, PRNT+11*, PRNT+13, PRNT+14, TOT+5*, TOT+6*, TOT+8, TOT+9
DGPLN EN+1~, RPT+3*, PRNT+18
DGPN1 BLD2+1~, BLD2+3*, BLD2+4*, BLD2+5, BLD2+7*, BLD2+9*, BLD2+10, BLD3+1~, BLD3+3*, BLD3+4*
, BLD3+5, BLD3+7*, BLD3+9*, BLD3+10
DGPN2 BLD2+1~, BLD2+10*, BLD2+11, BLD3+1~, BLD3+10*, BLD3+11
DGPTOT PRNT+1~, PRNT+14*, PRNT+16, PRNT+17*, TOT+5*, TOT+9*, TOT+11
DIR EN+2!, AGN+6!, NEWPGE+1~
DIR("?" EN+6*, EN+7*
DIR("A" EN+9*, EN+13*
DIR("B" EN+8*
DIR(0 EN+4*, NEWPGE+3*
DIRUT EN+2!, EN+11, AGN+1
IO RPT+1
IO("Q" AGN+9, AGN+15!
IOF HDR+1
IOSL PRNT+12, TOT+7, HDR1+1
IOST NEWPGE+2
POP AGN+8, EXIT+2!
U BLD2+12, BLD2+13, BLD2+14, BLD2+16, BLD3+12, BLD3+13, BLD3+14, BLD3+16, PRNT+13, PRNT+16
, TOT+8, HDR1+2
VAUTD EN+1~
>> X PRNT+3*, TOT+1*
>> X1 EN+5*, EN+8
>> Y EN+12, AGN+2, NEWPGE+3
ZTDESC AGN+10*, AGN+15!
ZTQUEUED EXIT+1, EXIT+2!
ZTRTN AGN+10*, AGN+15!
ZTSAVE AGN+15!
ZTSAVE("DGPBEG" AGN+11*
ZTSAVE("DGPEND" AGN+11*
ZTSAVE("VAUTD" AGN+12*
ZTSAVE("VAUTD(" AGN+12*
ZTSK AGN+13, AGN+15!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All