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,ARF,RN - COLLATERAL PATIENT ENTRY-EDIT ; 04 MAY 87

Source Information

Source file <DGCOL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 ^DIC  YN^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Registration 4 REGONLY^DGEN  $$FINDCUR^DGENA  $$EN^DGREGEEWS  EN^DGRPD  
Kernel 1 $$NOW^XLFDT  
Master Patient Index VistA 1 $$GETICN^MPIF001  

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+25
$$FINDCUR^DGENA ENRRO+6
$$EN^DGREGEEWS ENRRO+16
EN^DGRPD EN+1
^DIC 1+1
YN^DICN ASK, H
^DIE EN+3, ED, ED+3, ED+4, ED+5
$$GET1^DIQ ED+2
^DIR ENRRO+21
$$GETICN^MPIF001 ENRRO+13
$$NOW^XLFDT ENRRO+25

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: !!,"Sponsor address data entered..."
  • Line Location: ED+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENRRO+4
Function Call: WRITE
  • Prompt: !,"This is a required field.",!
  • Line Location: ENRRO+24
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
    • ED+3
    • ED+4
    • ED+5
Routine Call
  • DIR
  • Line Location:
    • ENRRO+21

FileMan Files Accessed Via FileMan Db Call

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

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+2

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+2, VET+1
VET EN

Naked Globals

Name Field # of Occurrence
^( EN+1, EN+4, EN+6, ED+2
^("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*, ED+3*, ED+4*, ED+5*, Q!
DFN 1!, 1+2*, EN, EN+1, EN+3, EN+4, EN+6, ED, ED+2, ED+3
, ED+4, ED+5, ENRRO+6, ENRRO+13, ENRRO+25, Q
DGAD EN+4*, EN+5, Q!
DGAD1 EN+4*, EN+5, ED+2, Q!
DGADD ED+2*, Q!
DGADED H*, ED, Q!
DGCOLV EN+3, EN+4, EN+6, EN+8, ED+2, Q!
DGCURR ENRRO+1~, ENRRO+6*, ENRRO+17
DGDIR 1*, 1+1*, 1+2, EN*, Q!
DGELG EN+1*!, ECPS!
DGENRODT ENRRO+1~, ENRRO+25*
DGENRRSN ENRRO+1~, ENRRO+5*, ENRRO+17, ENRRO+23*, ENRRO+24, ENRRO+25
DGENSRCE ENRRO+1~, ENRRO+25*
DGENSTAT ENRRO+1~, ENRRO+16
DGKEY ENRRO+1~, ENRRO+13*, ENRRO+16
DGNOCOL EN+3*, Q!
DGNOW ENRRO+1~, ENRRO+25*
DGPHON EN+6*, EN+7, Q!
DGPS EN+1*!, ECPS!
DGREQNAME ENRRO+1~, ENRRO+14*, ENRRO+16
DGRESP ENRRO+1~, ENRRO+15*, ENRRO+16*, ENRRO+17
DGRPOUT EN+2!
DGVET 1+2*, EN, Q!
DGWSHTOEN ENRRO+1~, ENRRO+16
DIC 1*, Q!
DIC("DR" 1*
DIC(0 1*
DIE EN+3*, ED*, ED+3*, ED+4*, ED+5*, Q!
DIR ENRRO+1~, ENRRO+18!
DIR("A" ENRRO+19*
DIR(0 ENRRO+20*
DLAYGO 1+1*!
DR EN+3*, ED*, ED+3*, ED+4*, ED+5*, Q!
DTOUT ENRRO+1~, ENRRO+22
DUOUT ENRRO+1~, ENRRO+22
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, ENRRO+1~, Q!
Y 1+1, 1+2, EN+3*, ED*, ENRRO+1~, ENRRO+22*, ENRRO+23, Q!*
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