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

Package: Registration

Routine: DGRPE1


Information

DGRPE1 ;ALB/MRL,RTK,BRM,RGL,ERC,TDM,ARF,JAM,ARF,JAM - REGISTRATIONS EDITS (CONTINUED) ;4/2/09 11:26am

Source Information

Source file <DGRPE1.m>

Entry Points

Name Comments DBIA/ICR reference
S
701 ;;391;D SC7^DGRPV;1901;.301;S:X'="Y" Y=.313;.302;.313;.312;
702 ;;.361;D AAC1^DGLOCK2 S:DGAAC(1)']"" Y=361;.309;361;.323;D ^DGYZODS;S:'DGODS Y=.36265;11500.02;11500.03;.36265;S:X='"Y" Y="@72";.3626;@72;
703 ;;.3731;
1001 ;;.152;S:X="" Y="@101";.1651;.1653;.1654;.307;.1656;@101;
1002 ;;.153;S:X="" Y="@102";.1657:.1659;.16;@102;
1101 ;;.3611;.3612;.3614;.3615;
1102 ;;.306;
1103 ;;.322;
1104 ;;D VETTYPE^DGRPE1;D MSG^DGRPE1 S Y=0;@114;K DGRDCHG;D DR^DGRPE1;.302;.3721;D EFF^DGRPE1;D:$G(DGRDCHG) BULL^DGRPE1;K DGRDCHG;
MSG
BULL ; Rated Disabilities update bulletin
DR ;
EFF ;
VETTYPE ;
DR207 ; DG*5.3*1085 - Prompt for PREFERRED LANGUAGE (#2.07,.02)
; DG*5.3*1093; Add X,Y to NEW variables below - the call to ^DIR uses these vars
DR104() ;DG*5.3*1111-Prompt for the PAGER NUMBER (#.135) field of the PATIENT file #2 only if currently populated
YN1316(DFN) ;Email address indicator - DG*5.3*865
P1316 ;
DR115(DGEDIT) ; DG*5.3*1143 - Editing for cell phone and email
; This tag is called when Real-time updates are enabled from 115^DGRPE and from PSOPAT^DGADDUTL for PSO PAT option
; Input: DGEDIT (optional) - if NULL both cell and email are prompted
; - "C" - edit cell phone
; - "E" - edit email (not coded at this time since no need for it.)
; Output: - Array DGADDGRP5 (must be NEW'd in the calling program - e.g. screen 1.1 logic) will contain updated email or phone
; - DGADDEDIT(5) (must be NEW'd in the calling program) is a flag to indicate thar an edit has occurred
ASKPH
EMI
EMAIL ; DG*5.3*1143 Enter email address
DR11 ;clt; DG*5.3*941 - Called from line tag 112 if Perm address in the patient file is empty
; Check if the user wants to copy Residential Address to Perm
; DG*5.3*1143 - Quit if we already have data in the Mailing Address local array (when RTA updates are ON)
DR111 ; Set DR string for Confidential Address categories
; DG*5.3*1143 - this tag no longer used. This code is now done in DGREGTE2 when editing Confidential Address

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient is not a veteran. Can't enter rated disabilities",!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No language was entered.",!
  • Line Location: DR207+10
Function Call: WRITE
  • Prompt: " <NOTHING DELETED>"
  • Line Location: DR104+43
Function Call: WRITE
  • Prompt: !,"DOES THE PATIENT HAVE AN EMAIL ADDRESS? Y/N"
  • Line Location: P1316+2
Function Call: WRITE
  • Prompt: !," If the patient has a valid Email Address, please answer with 'Yes'.",!," If no Email Address please answer with 'No'."
  • Line Location: P1316+6
Function Call: WRITE
  • Prompt: !," EXIT NOT ALLOWED ??"
  • Line Location: P1316+7
Function Call: WRITE
  • Prompt: !,*7,"Answer must be 10 numbers in length with an optional 'X' and 1-6 digit",!,"extension number allowed.",!!
  • Line Location: ASKPH+10
Function Call: WRITE
  • Prompt: !," Exit not allowed"
  • Line Location: EMAIL+8
Function Call: WRITE
  • Prompt: !!,*7,"Enter the applicant's email address [6-72 characters].",!
  • Line Location: EMAIL+11
Function Call: WRITE
  • Prompt: !,"The Patient has no Mailing Address."
  • Line Location: DR11+12

FileMan Files Accessed Via FileMan Db Call

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