Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGCOL

Package: Registration

Routine: DGCOL


Information

DGCOL ;ALB/MRL,ARF,RN,JAM - COLLATERAL PATIENT ENTRY-EDIT ; 04 MAY 87

Source Information

Source file <DGCOL.m>

Entry Points

Name Comments DBIA/ICR reference
1
EN
ASK
H
ED
EDRTA ; DG*5.3*1143 - Edit of Mailing address data with Real-time address update active
; FLG(1)=1 will allow the user to enter/edit Home and Office phone
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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call