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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGPFRFA1

Package: Registration

Routine: DGPFRFA1


Information

DGPFRFA1 ;ALB/RBS - PRF FLAG ASSIGNMENT REPORT CONT. ; 1/21/04 5:14pm

Source Information

Source file <DGPFRFA1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 5 $$GETASGN^DGPFAA  ($$GETFIRST,$$GETHIST)^DGPFAAH  $$ASGNCNT^DGPFLF6  $$GETPAT^DGPFUT2  $$FDATE^VALM1  
Kernel 4 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA Fileman 2 WAIT^DICD  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;Print/Display page header
SUB(CNT,TYP) ; print sub-totals
; Input:
; CNT - count of records printed
; TYP - indicator of which total count is being printed
; Output: Write lines of Sub-Totals and Totals per Flag and Category
PRINT(DGSORT,DGLIST) ;output report
; Input:
; DGSORT - array of user selected report parameters
; DGLIST - temp global name used for report list
PAUSE(DGQ) ; pause screen display
; Input:
; DGQ - var used to quit report processing to user CRT
; Output:
; DGQ - passed by reference - 0 = Continue, 1 = Quit
START ; compile and print report
LOOP(DGSORT) ;use sort var's for record searching to build list
; Input:
; DGSORT - array of user selected report parameters
EXIT ;
BLDTMP(DGSORT,DGDFN,DGIEN,DGLIST) ; list global builder
; Input:
; DGSORT - array of user selected report parameters
; DGDFN - ien of patient in PATIENT (#2) file
; DGIEN - ien pointer to PRF ASSIGNMENT (#26.13) file record
; DGLIST - temp global name used for report list

External References

Name Field # of Occurrence
HOME^%ZIS EXIT+5
^%ZISC EXIT+5
$$S^%ZTLOAD HEAD+1
$$GETASGN^DGPFAA BLDTMP+14
$$GETFIRST^DGPFAAH BLDTMP+16
$$GETHIST^DGPFAAH BLDTMP+16
$$ASGNCNT^DGPFLF6 LOOP+24
$$GETPAT^DGPFUT2 BLDTMP+22
WAIT^DICD START+1
^DIR PAUSE+6
$$FDATE^VALM1 BLDTMP+26, BLDTMP+28, HEAD+10
$$FMTE^XLFDT PRINT+9
$$NOW^XLFDT PRINT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," >>> No Record Flag Assignments were found using the report criteria."
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,$E(DGNAM,1,20),?22,$P(DGSTR,U),?33,$P(DGSTR,U,2),?43,$P(DGSTR,U,3),?53,$P(DGSTR,U,4),?63,$E($P(DGSTR,U,5),1,17)
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !!,"REPORT SUMMARY:",!,"---------------"
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: !,"Total Assignments for Category "
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: $S(DGCAT=1:"I",DGCAT=2:"II",1:"I & II"),":"
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: ?40,$J(+$G(DGCNT(DGCAT)),6)
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: !!,"<End of Report>"
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: !,"Total Assignments for "_DGTYPE_": ",DGCOUNT
  • Line Location: SUB+10
Function Call: WRITE
  • Prompt: !?25,"PATIENT RECORD FLAGS"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !?24,"FLAG ASSIGNMENT REPORT",?70,"Page: ",$G(DGPAGE)
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !?24,"----------------------",?48,"Printed: ",DGDT
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?2,"CATEGORY: "_$S($G(DGCAT)=1:"Category I (National)",$G(DGCAT)=2:"Category II (Local)",1:"Both (Category I & II)")
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"DATE RANGE: ",$$FDATE^VALM1($G(DGSORT("DGBEG")))_" TO "_$$FDATE^VALM1($G(DGSORT("DGEND")))
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !?1,"FLAG NAME: ",$G(DGFG),!
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: DGLINE
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"CHART #",?33,"ASSIGNED",?43,"REVIEW DT",?53,"STATUS",?63,"OWNING SITE"
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !,"--------------------",?22,"---------",?33,"--------",?43,"--------",?53,"--------",?63,"-----------------"
  • Line Location: HEAD+16
Routine Call
  • %ZIS
  • Line Location:
    • EXIT+5
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPF(26.13 - [#26.13] LOOP+16, LOOP+20
^TMP("DGPFRFA1" START+3

Label References

Name Line Occurrences
BLDTMP LOOP+28
EXIT START+7
HEAD PRINT+13, PRINT+21, PRINT+26, PRINT+41
LOOP START+5
PAUSE HEAD+2
PRINT START+6
SUB PRINT+20, PRINT+32, PRINT+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EXIT+4!
CNT SUB~, SUB+8
DGBEG LOOP+7~, BLDTMP+21
DGC LOOP+8~, LOOP+11*, LOOP+12*, LOOP+21
DGCAT LOOP+7~, LOOP+11, PRINT+7~, PRINT+11*, PRINT+16*, PRINT+17*, PRINT+18, PRINT+23, PRINT+24, PRINT+25
, PRINT+28, PRINT+40*, PRINT+43*, PRINT+44, PRINT+45, PRINT+47, PRINT+48, SUB+7, SUB+8, HEAD+9
DGCATG BLDTMP+10~, BLDTMP+11*, BLDTMP+23*, BLDTMP+32
DGCNT LOOP+8~, LOOP+9*, LOOP+24*, LOOP+25, PRINT+7~, PRINT+8*, PRINT+20, PRINT+22*, PRINT+25*, PRINT+31
, PRINT+32, PRINT+33, PRINT+34*
DGCNT( PRINT+25*, PRINT+44, PRINT+48, SUB+8
DGCNT(3 PRINT+44*
DGCOUNT SUB+6~, SUB+8*, SUB+10
DGDFN LOOP+7~, LOOP+19*, LOOP+26*, LOOP+27, LOOP+28, BLDTMP~, BLDTMP+22, BLDTMP+32, PRINT+7~, PRINT+16*
, PRINT+24*, PRINT+28
DGDFNLST LOOP+7~, LOOP+23!, LOOP+24, LOOP+29!
DGDFNLST( LOOP+26, LOOP+27
DGDT PRINT+7~, PRINT+9*, HEAD+8
DGEND LOOP+7~, BLDTMP+21
DGF LOOP+8~, LOOP+13*, LOOP+15, LOOP+16, LOOP+22
DGFG LOOP+8~, LOOP+9*, BLDTMP+10~, BLDTMP+24*, BLDTMP+32, PRINT+7~, PRINT+12*, PRINT+16*, PRINT+18*, PRINT+19
, PRINT+22, PRINT+23, PRINT+24, PRINT+28, PRINT+40*, HEAD+11
DGFLAG LOOP+7~, LOOP+13
DGGRAND PRINT+7~, PRINT+8*, PRINT+40*, HEAD+12
DGIEN LOOP+7~, LOOP+19*, LOOP+27*, LOOP+28, BLDTMP~, BLDTMP+14, BLDTMP+16
DGINIT BLDTMP+10~, BLDTMP+11*, BLDTMP+20*, BLDTMP+21, BLDTMP+26*, BLDTMP+30
DGLINE BLDTMP+10~, BLDTMP+11*, BLDTMP+30*, BLDTMP+31*, BLDTMP+32, PRINT+7~, PRINT+8*, HEAD+12
DGLIST START+2~, START+3*, START+4, START+6, LOOP+28, BLDTMP~, BLDTMP+32, PRINT~, PRINT+10, PRINT+17
, PRINT+18, PRINT+23, PRINT+24, PRINT+28, EXIT+2
DGNAM PRINT+7~, PRINT+16*, PRINT+23*, PRINT+24, PRINT+28, PRINT+29
DGNAME BLDTMP+10~, BLDTMP+11*, BLDTMP+25*, BLDTMP+32
DGOFG PRINT+7~, PRINT+16*, PRINT+19, PRINT+22*, PRINT+34*
DGPAGE PRINT+7~, PRINT+8*, PAUSE+6, HEAD+4, HEAD+5*, HEAD+7
DGPFA BLDTMP+10~, BLDTMP+12!, BLDTMP+14, BLDTMP+33!
DGPFA("FLAG" BLDTMP+24
DGPFA("OWNER" BLDTMP+31
DGPFA("REVIEWDT" BLDTMP+27, BLDTMP+28
DGPFA("STATUS" BLDTMP+30
DGPFAH BLDTMP+10~, BLDTMP+12!, BLDTMP+16, BLDTMP+33!
DGPFAH("ASSIGNDT" BLDTMP+18
DGPFAH("INITASSIGN" BLDTMP+18*, BLDTMP+19, BLDTMP+20, BLDTMP+26
DGPFPAT BLDTMP+10~, BLDTMP+12!, BLDTMP+22, BLDTMP+33!
DGPFPAT("NAME" BLDTMP+25
DGPFPAT("SSN" BLDTMP+30
DGPTR BLDTMP+10~, BLDTMP+11*
DGQ LOOP+8~, LOOP+9*, LOOP+20, LOOP+22*, PRINT+7~, PRINT+8*, PRINT+17, PRINT+18, PRINT+23, PRINT+24
, PRINT+27, PRINT+30, PRINT+37, PAUSE~, PAUSE+6*, HEAD+1*, HEAD+2, HEAD+3
DGREV BLDTMP+10~, BLDTMP+11*, BLDTMP+28*, BLDTMP+29*, BLDTMP+30
DGSORT START+5, START+6, LOOP~, LOOP+28, BLDTMP~, PRINT~
DGSORT( LOOP+10
DGSORT("DGBEG" HEAD+10
DGSORT("DGCAT" PRINT+11, PRINT+39
DGSORT("DGEND" HEAD+10
DGSORT("DGFLAG" PRINT+12, PRINT+33
DGSTR PRINT+7~, PRINT+16*, PRINT+28*, PRINT+29
DGSUB LOOP+8~, LOOP+9*, LOOP+16*, LOOP+20*, LOOP+21, LOOP+22, LOOP+24, BLDTMP+23
DGTYPE SUB+6~, SUB+7*, SUB+10
DGX LOOP+8~, LOOP+10*
DIR PAUSE+6!
DIR(0 PAUSE+6*
IOF HEAD+4
IOSL PRINT+26
IOST START+1, PAUSE+6, HEAD+4
POP EXIT+4!
TYP SUB~, SUB+7, SUB+8, SUB+9
U LOOP+13, BLDTMP+24, BLDTMP+30, BLDTMP+31, PRINT+12, PRINT+29
X PRINT+7~
Y PRINT+7~, PAUSE+6
>> ZTQUEUED PRINT+37, HEAD+1, EXIT+1, EXIT+3
>> ZTREQ EXIT+1*
>> ZTSTOP HEAD+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All