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
WARNING() ;Add WARNING message to notify user of possible patient identity edits

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+5, ED, ED+3, ED+4, ED+5
$$GET1^DIQ ED+2
^DIR ENRRO+21, WARNING+7
$$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+5
Function Call: WRITE
  • Prompt: !!,"APPLICANT ADDRESS DATA",?45,"SPONSOR ADDRESS DATA",!,"----------------------",?45,"--------------------"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$P(AD(I),"^",1),?45,$P(AD(I),"^",2)
  • Line Location: EN+7
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+9
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+10
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
Function Call: WRITE
  • Prompt: !!,?25,"**WARNING!!**"
  • Line Location: WARNING+1
Function Call: WRITE
  • Prompt: !!,"The edits you are about to make may potentially change the identity of"
  • Line Location: WARNING+2
Function Call: WRITE
  • Prompt: !,"this patient. Please verify that you have selected the correct patient"
  • Line Location: WARNING+3
Function Call: WRITE
  • Prompt: !,"and ensure that supporting documentation exists for these changes."
  • Line Location: WARNING+4
Routine Call
  • DIC
  • Line Location:
    • 1+1
Routine Call
  • DIE
  • Line Location:
    • EN+5
    • ED
    • ED+3
    • ED+4
    • ED+5
Routine Call
  • DIR
  • Line Location:
    • ENRRO+21
    • WARNING+7

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+5, EN+6, EN+8, EN+10, ED+2

Label References

Name Line Occurrences
$$WARNING EN+2
1 EN+3, EN+4, Q
AD EN+7
ASK ASK
ECPS EN+1
ED H
EN EN+5
ENRRO EN+11
H H+1
Q 1+1, 1+2, EN, EN+5, ASK, H+1, ED, ED+2, VET+1
VET EN

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, H*, H+1, Q!
AD Q!
AD( EN+7, AD+3*
C EN+6*, EN+7*, AD+1*, AD+3, Q!
D AD+1*, AD+2*, AD+3, Q!
DA EN+5*, ED*, ED+3*, ED+4*, ED+5*, Q!
DFN 1!, 1+2*, EN, EN+1, EN+5, EN+6, EN+8, ED, ED+2, ED+3
, ED+4, ED+5, ENRRO+6, ENRRO+13, ENRRO+25, Q
DGAD EN+6*, EN+7, Q!
DGAD1 EN+6*, EN+7, ED+2, Q!
DGADD ED+2*, Q!
DGADED H*, ED, Q!
DGCOLV EN+5, EN+6, EN+8, EN+10, ED+2, Q!
DGCURR ENRRO+1~, ENRRO+6*, ENRRO+17
DGDIR 1*, 1+1*, 1+2, EN*, Q!
DGEANS EN+2~*, EN+3
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+5*, Q!
DGNOW ENRRO+1~, ENRRO+25*
DGPHON EN+8*, EN+9, Q!
DGPS EN+1*!, ECPS!
DGREQNAME ENRRO+1~, ENRRO+14*, ENRRO+16
DGRESP ENRRO+1~, ENRRO+15*, ENRRO+16*, ENRRO+17
DGRPOUT EN+4!
DGVET 1+2*, EN, Q!
DGWSHTOEN ENRRO+1~, ENRRO+16
DIC 1*, Q!
DIC("DR" 1*
DIC(0 1*
DIE EN+5*, ED*, ED+3*, ED+4*, ED+5*, Q!
DIR ENRRO+1~, ENRRO+18!, WARNING+5~
DIR("A" ENRRO+19*, WARNING+6*
DIR("B" WARNING+7*
DIR(0 ENRRO+20*, WARNING+6*
DLAYGO 1+1*!
DR EN+5*, ED*, ED+3*, ED+4*, ED+5*, Q!
DTOUT ENRRO+1~, ENRRO+22
DUOUT ENRRO+1~, ENRRO+22
I EN+7*, AD*, AD+1, AD+2, AD+3, Q!
I1 Q!
P EN+7*, AD+3, Q!
X EN+7*, AD, AD+1, AD+3, ENRRO+1~, Q!
Y 1+1, 1+2, EN+5*, ED*, ENRRO+1~, ENRRO+22*, ENRRO+23, Q!*, WARNING+5~, WARNING+8
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