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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPTCO1

Package: Registration

Routine: DGPTCO1


Information

DGPTCO1 ;ALB/MJK - Census Status Report ; 5/2/05 2:41pm

Source Information

Source file <DGPTCO1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 NOW^%DTC  ^DIC  (,UPDATE)^DIE  EN1^DIP  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  BMES^XPDUTL  
Registration 2 (DIV,STATUS)^DGPTCO2  (BLDMSG,REGEN,SNDMSG)^DGPTCR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Registration 8 DGPT CENSUS STATUS REPORT  DGPT FEE BASIS  DGPTC  DGPTCO  DGPTCO3  DGPTCR  DGPTFMO1  ^DG(45.85  

Entry Points

Name Comments DBIA/ICR reference
EN
ENQ
START ; -- produce report
END
DIOEND ; -- logic called at end of rpt for totals
DIOENDQ
DIV ;
TOT ;
PRT ;
DIS ; -- $T logic for each entry
DISQ
DHIT ; -- logic called for each entry printed cum stats; DGC(div,status)
FIND ; -- find CENSUS rec#
; input: D0 := ifn of 45.85
; output: X := status ; DGCI := census ifn ; PTF := ptf ifn
FINDQ
STATUS ; -- compute CENSUS status
CREC ; -- compute CENSUS rec#
DATE ; -- calculate default census date
DOQ ;-- check if output device is queued. if not ask
DOQT ;
CHKCUR ; -- checks if new PTF Census Date record is needed
ADDREC ; -- add new record
ERR ;

External References

Name Field # of Occurrence
NOW^%DTC DIOEND+2
^%ZIS EN+6
^%ZISC EN+10
^%ZTLOAD EN+10
DIV^DGPTCO2 EN+4
STATUS^DGPTCO2 EN+5
BLDMSG^DGPTCR START+4
REGEN^DGPTCR START+10
SNDMSG^DGPTCR START+5
^DIC EN+2
^DIE ADDREC+3
UPDATE^DIE ADDREC+16
EN1^DIP START+16
^DIR DIOEND+1, DIOEND+7, DOQ+5
BMES^XPDUTL ERR+1, ERR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,?5,DGPTMSG(DGPTLINE,0)
  • Line Location: START+8
Function Call: WRITE
  • Prompt: @IOF,?30,"Census Status Report",?59,Y,!!?26,"Division Summary Statistics",!
  • Line Location: DIOEND+3
Function Call: WRITE
  • Prompt: !,DGLN,!
  • Line Location: DIOEND+6
Function Call: WRITE
  • Prompt: !,DGLN
  • Line Location: DIV+1
Function Call: WRITE
  • Prompt: !!?5,"OVERALL STATISTICS:"
  • Line Location: DIV+2
Function Call: WRITE
  • Prompt: !?10,$S(D="TOT":"Grand Total: ",1:"Division Total: "),?30,$J(DGC(D,Z),4)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !?10,S,": ",?30,$J(C,4)
  • Line Location: PRT+1
Routine Call
  • DIC
  • Line Location:
    • EN+2
Routine Call
  • DIE
  • Line Location:
    • ADDREC+3
Routine Call
  • DIE
  • Line Location:
    • ADDREC+16
Routine Call
  • DIR
  • Line Location:
    • DIOEND+1
    • DIOEND+7
    • DOQ+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(45.85 - [#45.85] Classic Fileman Calls
^DG(45.86 - [#45.86] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+14, DIOEND+2, DATE+2
^DD(45 STATUS+1
^DG(40.8 - [#40.8] DIV+3
^DG(45.85 - [#45.85] START+2, START+10, START+17, DIS+1, DHIT+2, FIND+4
^DG(45.86 - [#45.86] DATE+1, CHKCUR+2, CHKCUR+3, CHKCUR+7, CHKCUR+9, CHKCUR+11, CHKCUR+13, CHKCUR+15
^DGPT - [#45] FIND+6
^DGPT("ACENSUS" FIND+6
^DIC(42 - [#42] DIS+3, DHIT+2

Label References

Name Line Occurrences
ADDREC CHKCUR+18
CHKCUR EN
DATE EN
DIOENDQ DIOEND+1
DISQ DIS+2
DIV DIOEND+5
DOQ EN+6
DOQT DOQ+2, DOQ+3
ENQ EN+2, EN+4, EN+5, EN+6, EN+7, START+5, START+16
ERR CHKCUR+5, CHKCUR+8, CHKCUR+17, ADDREC+17
FIND STATUS+1, CREC+1
FINDQ FIND+5
PRT DIOEND+5
START EN+7
STATUS DHIT+1
TOT DIOEND+5

Naked Globals

Name Field # of Occurrence
^(0 DIV+3, DIS+3, DHIT+2, FIND+4, FIND+6, DATE+1, CHKCUR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DIOEND+2
%ZIS EN+6*!
>> BY START+11*
C DIOEND+5*, DIOENDQ!, PRT+1, PRT+2
D DIOEND+2~*, DIOEND+5*, DIV+2, DIV+3, TOT+1, PRT+2, DHIT+1~, DHIT+2*, DHIT+3
>> D0 DIS+1, DHIT+2, FIND+4
DA ADDREC+1~, ADDREC+3*
DGACT CHKCUR+1~, CHKCUR+15*, CHKCUR+16
DGC ENQ!, START+15!
DGC( DIOEND+5, TOT+1, DHIT+3*
DGC("TOT" PRT+2*
DGCDT EN+3*, ENQ!, START+14
DGCHOICE EN+3!, ENQ!
DGCHOICE("DIV" EN+4, DIS+2, DIS+3
DGCHOICE("STATUS" EN+5, START+12
DGCI FIND+4*, FIND+6*, STATUS+2!, CREC+1, CREC+2!
DGCLOSE CHKCUR+1~, CHKCUR+7*, CHKCUR+8, CHKCUR+10, CHKCUR+12, CHKCUR+14, CHKCUR+18, ADDREC+4, ADDREC+6, ADDREC+7*
, ADDREC+8*, ADDREC+9*, ADDREC+10*, ADDREC+12
DGCN EN+3*, ENQ!, START+10, START+11, START+12
DGENDT ADDREC+1~, ADDREC+7*, ADDREC+8*, ADDREC+9*, ADDREC+10*, ADDREC+11
DGIEN CHKCUR+1~, CHKCUR+2*, CHKCUR+3*, CHKCUR+5, CHKCUR+7, CHKCUR+9, CHKCUR+11, CHKCUR+13, CHKCUR+15, ADDREC+3
DGIOP EN+6*, EN+8, ENQ!, START+15
DGLN DIOEND+2*, DIOEND+6, DIOENDQ!, DIV+1
DGMONTH ADDREC+1~, ADDREC+6*, ADDREC+7, ADDREC+8, ADDREC+9, ADDREC+10
DGPTLINE START+6~, START+7*, START+8*
DGPTMSG START+3~
DGPTMSG( START+8
DGQ EN+7, ENQ!, DOQ+1*, DOQ+2*, DOQ+6*
DGSTRT ADDREC+1~, ADDREC+7*, ADDREC+8*, ADDREC+9*, ADDREC+10*, ADDREC+15
DGYR ADDREC+1~, ADDREC+4*, ADDREC+7, ADDREC+8, ADDREC+9, ADDREC+10*
>> DHD START+14*
DHIT ENQ!, START+13*
DIC EN+1*, EN+2!, START+11*
DIC("A" EN+1*
DIC("B" EN+1*
DIC(0 EN+1*
DIE ADDREC+1~, ADDREC+3*
DIOEND ENQ!, START+13*
DIR DIOEND+1!, DIOEND+7!, DOQT+1!
DIR("A" DOQ+4*
DIR("B" DOQ+4*
DIR(0 DIOEND+1*, DIOEND+7*, DOQ+4*
DIS ENQ!
DIS(0 START+13*
DR ADDREC+1~, ADDREC+3*
DT CHKCUR+18
ERR CHKCUR+1~, CHKCUR+4*, CHKCUR+5*, CHKCUR+8*, CHKCUR+10*, CHKCUR+12*, CHKCUR+14*, CHKCUR+16*, CHKCUR+17, ADDREC+1~
, ADDREC+17*
ERR696 ADDREC+1~, ADDREC+17
FDA ADDREC+1~
FDA(696 ADDREC+11*, ADDREC+12*, ADDREC+13*, ADDREC+14*, ADDREC+15*
>> FLDS START+11*
>> FR START+11*, START+12*
>> I DIOEND+5*
IEN696 ADDREC+1~
IO DOQ+3
IO("Q" DOQ+2
IO(0 DOQ+3
IOF DIOEND+3
IOM EN+6
ION EN+6
>> IOP START+15*
IOSL EN+6
IOST START+5, DIOEND+1, DIOEND+7
>> J DIOEND+5*
>> L START+11*
>> POP EN+6
PTF FIND+5*, FIND+6, STATUS+2!, CREC+2!
S DIOEND+2~, DIOEND+5*, PRT+1, PRT+2, DHIT+1~, DHIT+2*, DHIT+3
>> TO START+11*, START+12*
U EN+3, DIV+3, DIS+3, DHIT+2, FIND+5, FIND+6, STATUS+1, CHKCUR+7, CHKCUR+9, CHKCUR+11
, CHKCUR+13, CHKCUR+15
X EN+9*, DIOEND+1, DIS+1~*, DIS+3, DHIT+2, FIND+4*, FIND+6*, STATUS+1*, CREC+1*
Y EN+1, EN+2, EN+3, START+14*, DIOEND+2*, DIOEND+3, FIND+4*, FIND+5, FIND+6, STATUS+2!
, CREC+2!, DATE+1*, DATE+2, DOQ+6, DOQT+1!
Z DIOEND+2~*, DIOEND+5, TOT+1, PRT+2, DHIT+1~*, DHIT+3
>> ZTDESC EN+8*
>> ZTIO EN+8*
>> ZTRTN EN+8*
>> ZTSAVE( EN+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All