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: DGCOL

Package: Registration

Routine: DGCOL


Information

DGCOL ;ALB/MRL - COLLATERAL PATIENT ENTRY-EDIT ; 04 MAY 87

Source Information

Source file <DGCOL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  ^DIE  ^DIR  
Registration 3 REGONLY^DGEN  ($$GETSET,$$SETSET)^DGREG  EN^DGRPD  
Kernel 1 $$NOW^XLFDT  

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: 1

Package Total Caller Graph
Registration 1 DG COLLATERAL PATIENT  

Entry Points

Name Comments DBIA/ICR reference
1
EN
ASK
H
ED
AD
ENRRO ;DG*5.3*993 - Ask for SELF-SUPPORTED REGISTRATION ONLY REASON
VET
ECPS
Q

External References

Name Field # of Occurrence
REGONLY^DGEN ENRRO+5
$$GETSET^DGREG ENRRO+4
$$SETSET^DGREG ENRRO+4
EN^DGRPD EN+1
^DIC 1+1
YN^DICN ASK, H
^DIE EN+3, ED
^DIR ENRRO+4
$$NOW^XLFDT ENRRO+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !!,"COLLATERAL VETERAN SPONSOR NAME IS UNSPECIFIED!!",*7
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"APPLICANT ADDRESS DATA",?45,"SPONSOR ADDRESS DATA",!,"----------------------",?45,"--------------------"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$P(AD(I),"^",1),?45,$P(AD(I),"^",2)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Phone: ",$S($P(DGPHON,"^",1)]"":$P(DGPHON,"^",1),1:"UNKNOWN"),?45,"Phone: ",$S($P(DGPHON,"^",2)]"":$P(DGPHON,"^",2),1:"UNKNOWN")
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"SPONSOR: ",$P(^DPT(DGCOLV,0),"^",1),", ",$E($P(^(0),"^",9),1,3),"-",$E($P(^(0),"^",9),4,5),"-",$E($P(^(0),"^",9),6,10)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"DO YOU WISH TO EDIT COLLATERAL INFORMATION"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"ENTER 'Y'ES OR 'N'O"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"SHOULD COLLATERAL PATIENT ADDRESS DATA BE SAME AS SPONSOR'S"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,"Y - To stuff in sponsor's address data.",!,"N - To edit collateral address data",!,"^ - To QUIT."
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"Sponsor address data entered..."
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"SELF-REPORTED REGISTRATION ONLY REASON"
  • Line Location: ENRRO+2
Function Call: WRITE
  • Prompt: !!,*7,"Patient is a veteran and therefore should not be classified utilizing this",!,"option. If this veteran has Other Entitled Eligibilities please insure that "
  • Line Location: VET+0
Function Call: WRITE
  • Prompt: !,"the appropriate APPOINTMENT TYPE is selected at the time you make the",!,"appointment."
  • Line Location: VET+1
Function Call: WRITE
  • Prompt: !!,*7,"Patient already has an eligibility code or period of service on file and",!,"therefore should not be classified using this option. If this veteran",!,"has Other Entitled Eligibilities, please insure that the"
  • Line Location: ECPS+0
Function Call: WRITE
  • Prompt: " appropriate",!,"APPOINTMENT TYPE is selected at the time you make the appointment."
  • Line Location: ECPS+1
Routine Call
  • DIC
  • Line Location:
    • 1+1
Routine Call
  • DIE
  • Line Location:
    • EN+3
    • ED
Routine Call
  • DIR
  • Line Location:
    • ENRRO+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(21 - [#21] EN+1
^DIC(5 - [#5] AD+3
^DIC(8 - [#8] EN+1
^DPT - [#2] 1+2, EN+1, EN+3, EN+4, EN+6, EN+8, ED+1*

Label References

Name Line Occurrences
1 EN+2, Q
AD EN+5
ASK ASK
ECPS EN+1
ED H
EN EN+3
ENRRO EN+9
H H+1
Q 1+1, 1+2, EN, EN+3, ASK, H+1, ED, ED+1, VET+1
VET EN

Naked Globals

Name Field # of Occurrence
^( EN+1, EN+4, EN+6, ED+1
^("VET" 1+2
^(0 EN+1, EN+8, AD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, H*, H+1, Q!
AD Q!
AD( EN+5, AD+3*
C EN+4*, EN+5*, AD+1*, AD+3, Q!
D AD+1*, AD+2*, AD+3, Q!
DA EN+3*, ED*, Q!
DFN 1!, 1+2*, EN, EN+1, EN+3, EN+4, EN+6, ED, ED+1, ENRRO+5
, Q
DGAD EN+4*, EN+5, Q!
DGAD1 EN+4*, EN+5, ED+1, Q!
DGADD ED+1*, Q!
DGADED H*, ED, Q!
DGCOLV EN+3, EN+4, EN+6, EN+8, Q!
DGDIR 1*, 1+1*, 1+2, EN*, Q!
DGELG EN+1*!, ECPS!
DGENRODT ENRRO+1~, ENRRO+5*
DGENRRSN ENRRO+1~, ENRRO+3*, ENRRO+4*, ENRRO+5
DGENSRCE ENRRO+1~, ENRRO+5*
DGNOCOL EN+3*, Q!
DGNOW ENRRO+1~, ENRRO+5*
DGPHON EN+6*, EN+7, ED+1, Q!
DGPS EN+1*!, ECPS!
DGRPOUT EN+2!
DGVET 1+2*, EN, Q!
DIC 1*, Q!
DIC("DR" 1*
DIC(0 1*
DIE EN+3*, ED*, Q!
DIR ENRRO+1~, ENRRO+4!
DIR("A" ENRRO+4*
DIR(0 ENRRO+4*
DLAYGO 1+1*!
DR EN+3*, ED*, Q!
DTOUT ENRRO+1~
DUOUT ENRRO+1~
I EN+5*, AD*, AD+1, AD+2, AD+3, Q!
I1 Q!
P EN+5*, AD+3, Q!
X EN+5*, AD, AD+1, AD+3, Q!
Y 1+1, 1+2, EN+3*, ED*, Q!*
Y(0 ENRRO+4
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