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 |  Local Variables |  All
Print Page as PDF
Routine: DGV53PTB

Package: Registration

Routine: DGV53PTB


Information

DGV53PTB ;ALB/SCK - POST INIT CONVERSION ROUTINE FOR DISTANCE FILE; 2/2/93 4/19/93

Source Information

Source file <DGV53PTB.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 WAIT^DICD  IXALL^DIK  
Registration 1 (MILES,RMK,ZIP)^DGV53PTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGV53PT  

Entry Points

Name Comments DBIA/ICR reference
ADDINF ; check for additional information flag
EN ;
MSGS ; list out incomplete data found during conversion
ZIP ; check for zipcode, make sure there is a number value entered in piece 4.
CHKMILE ; check default mileage, if null pass 0 to subnode
GSTATE() ;
MECOST ;
ZIPMSG ;
RMKMSG ;
STUFF ; build subnode from variables set above
EXIT ;
ENDLOOP ; end of loop to rebuild distance file
ERR1 ;
ZARRAY ; build array for message on missing zipcodes
MARRAY ; build array for message on 0 default mileages
LOOP ; begin loop for converting distance file
ADARRAY ; build array for cities with additional information field set

External References

Name Field # of Occurrence
MILES^DGV53PTC ENDLOOP+4
RMK^DGV53PTC ENDLOOP+4
ZIP^DGV53PTC ENDLOOP+4
WAIT^DICD EN+8, ENDLOOP+1
IXALL^DIK ENDLOOP+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,">>> Beginning conversion of BENEFICIARY TRAVEL DISTANCE file, (#392.1)"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,*7,">>> The BENEFICIARY TRAVEL DISTANCE file, (#392.1), is not properly set-up.",!,"Please re-run the init to set it up."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,">>> There is no data in the BENEFICIARY TRAVEL DISTANCE file (#392.1) to convert",!?4,"Exiting post-init conversion of BENEFICIARY TRAVEL."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,*7,">>> File is not available at the present time!",!?4,"Please try again later."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,">>> Beginning check and conversion",!?4,"of BENEFICIARY TRAVEL DISTANCE file, (#392.1)",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,">>> BENEFICIARY TRAVEL DISTANCE file (#392.1) conversion complete.",!?4,TOT," Cities in the BENEFICIARY TRAVEL DISTANCE file (#392.1) have been converted.",!
  • Line Location: ENDLOOP+1
Function Call: WRITE
  • Prompt: !,">>> Re-Indexing BENEFICIARY TRAVEL DISTANCE file (#392.1). This could take awhile."
  • Line Location: ENDLOOP+2
Function Call: WRITE
  • Prompt: !!,">>> Re-Indexing complete."
  • Line Location: ENDLOOP+3
Function Call: WRITE
  • Prompt: !!!,"INCOMPLETE INFORMATION FOUND DURING THE POST-INIT CONVERSION OF THE",!,"BENEFICIARY TRAVEL DISTANCE FILE, (#392.1)",!!
  • Line Location: ENDLOOP+6
Function Call: WRITE
  • Prompt: !!,*7,">>> WARNING! ",!?4,MCNT," CITIES WITH INCOMPLETE MILEAGE INFORMATION",!?4,"WERE FOUND, A LISTING HAS BEEN SENT TO THE MAS ADPAC."
  • Line Location: MSGS+1
Function Call: WRITE
  • Prompt: !!,*7,">>> WARNING!",!?4,ZCNT," CITIES WITH INCOMPLETE ZIP CODE INFORMATION",!?4,"WERE FOUND, A LISTING HAS BEEN SENT TO THE MAS ADPAC."
  • Line Location: ZIPMSG+1
Function Call: WRITE
  • Prompt: !!,*7,">>> WARNING!",!?4,RCNT," CITIES HAD THE ADDITIONAL INFORMATION FIELD SET THAT",!?4,"WILL NEED THE REMARKS COMPLETED. A LISTING HAS BEEN SENT TO",!?4,"THE MAS ADPAC"
  • Line Location: RMKMSG+1
Function Call: WRITE
  • Prompt: !!,*7,">>> The primary division is missing or incorrect.",!,"I'm stopping the Beneficiary Travel portion",!,"of the post-init. Please check the value of the primary",!,"division in the MAS parameter file DG(43)"
  • Line Location: ERR1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGBT(392.1 - [#392.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] EN+7
^DGBT(392.1 - [#392.1] EN+4, EN+5, EN+6, EN+10, EN+11, LOOP+1, MECOST+1, STUFF+2, STUFF+3*, STUFF+4*
^DIC(5 - [#5] GSTATE+2
^TMP("DGBT" EN+2!, EXIT+1!, ZARRAY+1*, MARRAY+1*, ADARRAY+1*

Label References

Name Line Occurrences
$$GSTATE ZARRAY+1, MARRAY+1, ADARRAY+1
ADARRAY ADDINF+1
ERR1 EN+7
EXIT EN+4, EN+5, EN+6, EN+7
LOOP EN+10
MARRAY CHKMILE+1
MSGS ENDLOOP+7
RMKMSG ENDLOOP+7
ZARRAY ZIP+1
ZIPMSG ENDLOOP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDINF EXIT+2!, ADDINF+1*, STUFF+4
>> DA(1 ENDLOOP+3*
DGBTVAR EXIT+2!, LOOP+1*, CHKMILE+1, ADDINF+1, ZIP+1, ZARRAY+1, MARRAY+1, ADARRAY+1, GSTATE+2
DIK ENDLOOP+3*, EXIT+2!
GLREC EN+10*, EXIT+2!, LOOP+1, MECOST+1, STUFF+2, STUFF+3, STUFF+4
MCNT EN+1*, ENDLOOP+5, ENDLOOP+7, EXIT+2!, MSGS+1, MARRAY+1*
MEC EXIT+2!, MECOST+1*, STUFF+4
MILES EXIT+2!, CHKMILE+1*, STUFF+4
PRIDIV EN+7*, EXIT+2!, STUFF+4
RCNT EN+1*, ENDLOOP+5, ENDLOOP+7, EXIT+2!, RMKMSG+1, ADARRAY+1*
STATE EXIT+2!, ZARRAY+1*, MARRAY+1*, ADARRAY+1*, GSTATE+1~, GSTATE+2*, GSTATE+3
TOT EN+1*, ENDLOOP+1, EXIT+2!, LOOP+1*, STUFF+1
U EN+1*, EN+7, CHKMILE+1, ADDINF+1, MECOST+1, ZIP+1, ZARRAY+1, MARRAY+1, ADARRAY+1, GSTATE+2
ZCNT EN+1*, ENDLOOP+5, ENDLOOP+7, EXIT+2!, ZIPMSG+1, ZARRAY+1*
ZIP EXIT+2!
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 |  Local Variables |  All