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 - 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 ;

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

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