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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGV53PTA

Package: Registration

Routine: DGV53PTA


Information

DGV53PTA ;ALB/REW - ALASKA COUNTY UPDATES ;11 JUN 93

Source Information

Source file <DGV53PTA.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGV53PT  

Entry Points

Name Comments DBIA/ICR reference
STCOUNTY(DGST,DGSTIFN,DGOK) ;UPDATES THE COUNTIES FOR A STATE
EN ;
; This will update the ALASKA County codes. The EN tag may be re-run
UPSTATE(DGST) ;UPDATE COUNTY MULTIPLE OF STATE FILE
; DGST = TAG FOR STATE (also state code)
; DGOK = 1: COUNTIES UPDATED 0 = NO [RETURNED]
; DGNUMST = NUMBER OF OCCURENCES OF STATE NAME^IFN OF STATE
; DGSTNM = STATE NAME
; DGSTNODE=STATECODE^STATENAME
QTNC
NEWCOUNT ;ADDS A NEW COUNTY ENTRY
QTNMST
2 ;;02^ALASKA
QTUPC
UPCOUNTY(DGCTNODE,DGSTIFN,DGOK) ;UPDATES A COUNTY
CHGCOUNT(DGCTIFN,DGOK) ;
NUMSTATE(DGST,DGSTNODE,DGSTIFN) ;RETURN DGCNT
; DGCNT = NUMBER OF OCCURENCES OF STATE NAME OR -1 IF ERROR
; DGSTIFN = IFN OF STATE IN FILE 5 - INPUT=0 OUT=STATE IEN
; DGSTNM = NAME OF STATE

External References

Name Field # of Occurrence
^DIC NEWCOUNT+8
^DIE NEWCOUNT+18, CHGCOUNT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"...NEW COUNTY ",NOWNAME,"-",NOWCODE,$S((+$P(Y,U,3)):" ADDED",1:" ALREADY EXISTS")
  • Line Location: NEWCOUNT+15
Function Call: WRITE
  • Prompt: !,"...CHANGING COUNTY ",DGOLDNM,"-",DGOLDCD," TO ",NOWNAME,"-",NOWCODE
  • Line Location: CHGCOUNT+6
Routine Call
  • DIE
  • Line Location:
    • NEWCOUNT+18
    • CHGCOUNT+8
Routine Call
  • DIC
  • Line Location:
    • NEWCOUNT+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] UPSTATE+11, UPCOUNTY+8, UPCOUNTY+13, NEWCOUNT+5, NEWCOUNT+13, CHGCOUNT+4, CHGCOUNT+5, NUMSTATE+11

Label References

Name Line Occurrences
$$NUMSTATE UPSTATE+10
$$UPSTATE EN+5
CHGCOUNT UPCOUNTY+11, UPCOUNTY+17
NEWCOUNT UPCOUNTY+21
QTNC NEWCOUNT+1, NEWCOUNT+10
QTNMST NUMSTATE+7, NUMSTATE+10
QTUPC UPSTATE+11, UPSTATE+12
STCOUNTY UPSTATE+14
UPCOUNTY STCOUNTY+6

Naked Globals

Name Field # of Occurrence
^(0 NEWCOUNT+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
B4CODE UPCOUNTY+1~, UPCOUNTY+3*, UPCOUNTY+10, UPCOUNTY+13, UPCOUNTY+16, UPCOUNTY+20
B4NAME UPCOUNTY+1~, UPCOUNTY+2*, UPCOUNTY+8, UPCOUNTY+10, UPCOUNTY+16, UPCOUNTY+20
DA NEWCOUNT+3~, NEWCOUNT+9*, NEWCOUNT+10, CHGCOUNT+1~, CHGCOUNT+3*
DA(1 NEWCOUNT+4*, NEWCOUNT+6, CHGCOUNT+3*, CHGCOUNT+4, CHGCOUNT+5
DGCNT NUMSTATE+4~, NUMSTATE+5*, NUMSTATE+7*, NUMSTATE+10*, NUMSTATE+11*, QTNMST
DGCOUNTY UPCOUNTY+1~, UPCOUNTY+19
DGCOUNTY( UPCOUNTY+9*, UPCOUNTY+14, UPCOUNTY+15*
DGCTIFN UPCOUNTY+1~, UPCOUNTY+8*, UPCOUNTY+9, UPCOUNTY+10, UPCOUNTY+11, UPCOUNTY+13*, UPCOUNTY+14, UPCOUNTY+15, UPCOUNTY+16, UPCOUNTY+17
, NEWCOUNT+3~, NEWCOUNT+11*, NEWCOUNT+13*, NEWCOUNT+14, CHGCOUNT~, CHGCOUNT+3, CHGCOUNT+4, CHGCOUNT+5
DGCTLINE STCOUNTY+5~, STCOUNTY+6*
DGCTNODE STCOUNTY+5~, STCOUNTY+6*, UPCOUNTY~, UPCOUNTY+2, UPCOUNTY+3, UPCOUNTY+4, UPCOUNTY+5
DGNUMST UPSTATE+7~, UPSTATE+10*, UPSTATE+11, UPSTATE+12
DGOK UPSTATE+7~, UPSTATE+8*, UPSTATE+13*, UPSTATE+14, UPSTATE+15, QTUPC, STCOUNTY~, STCOUNTY+3, STCOUNTY+6, UPCOUNTY~
, UPCOUNTY+11, UPCOUNTY+17, CHGCOUNT~
DGOLDCD CHGCOUNT+1~, CHGCOUNT+5*, CHGCOUNT+6
DGOLDNM CHGCOUNT+1~, CHGCOUNT+4*, CHGCOUNT+6
DGPRINT EN+2~, EN+3*, EN+4, EN+5, EN+6, UPSTATE+11, UPSTATE+12, UPSTATE+15, STCOUNTY+3, UPCOUNTY+7
, UPCOUNTY+10, UPCOUNTY+16, UPCOUNTY+20, NEWCOUNT+1, NEWCOUNT+12, NEWCOUNT+14
DGST UPSTATE~, UPSTATE+10, UPSTATE+14, STCOUNTY~, STCOUNTY+3, NUMSTATE~, NUMSTATE+7
DGSTIFN UPSTATE+7~, UPSTATE+8*, UPSTATE+10, UPSTATE+11, UPSTATE+14, STCOUNTY~, STCOUNTY+3, STCOUNTY+6, UPCOUNTY~, UPCOUNTY+8
, UPCOUNTY+13, NEWCOUNT+4, NEWCOUNT+5, NEWCOUNT+13, CHGCOUNT+3, NUMSTATE~, NUMSTATE+11*, NUMSTATE+12*
DGSTNM UPSTATE+7~, NUMSTATE+9*, NUMSTATE+10, NUMSTATE+11
DGSTNODE UPSTATE+7~, UPSTATE+9*, UPSTATE+10, UPSTATE+11, UPSTATE+12, UPSTATE+15, NUMSTATE~, NUMSTATE+8*, NUMSTATE+9
DIC NEWCOUNT+3~, NEWCOUNT+6*, NEWCOUNT+17, CHGCOUNT+1~
DIC(0 NEWCOUNT+6*
DIE NEWCOUNT+3~, NEWCOUNT+17*, CHGCOUNT+1~, CHGCOUNT+3*
DR NEWCOUNT+3~, NEWCOUNT+16*, CHGCOUNT+1~, CHGCOUNT+7*
NOWCODE UPCOUNTY+1~, UPCOUNTY+5*, NEWCOUNT+1, NEWCOUNT+14, NEWCOUNT+15, CHGCOUNT+6
NOWNAME UPCOUNTY+1~, UPCOUNTY+4*, NEWCOUNT+1, NEWCOUNT+7, NEWCOUNT+13, NEWCOUNT+14, NEWCOUNT+15, CHGCOUNT+6
U UPSTATE+11, UPSTATE+12, UPSTATE+15, UPCOUNTY+2, UPCOUNTY+3, UPCOUNTY+4, UPCOUNTY+5, NEWCOUNT+15, CHGCOUNT+4, CHGCOUNT+5
, NUMSTATE+9
X NEWCOUNT+3~, NEWCOUNT+7*, CHGCOUNT+1~, NUMSTATE+4~, NUMSTATE+6*, NUMSTATE+11*, NUMSTATE+12
Y NEWCOUNT+3~, NEWCOUNT+9, NEWCOUNT+15
>> ZTQUEUED EN+3

Marked Items

Name Field # of Occurrence
$T(@DGST UPSTATE+9, NUMSTATE+8
$T(@DGST+DGCTLINE STCOUNTY+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All