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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 5 LINE^DGEN  SETCLNO^DGENCLEA  $$UPD^DGENDBS  XMY^DGMTUTL  DEACTIVE^DGOTHEL  
VA FileMan 4 YN^DICN  (,FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  
MailMan 1 ^XMD  

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 DGRPE  

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 ;

External References

Name Field # of Occurrence
LINE^DGEN BULL+12, BULL+13, BULL+14, BULL+15, BULL+16, BULL+17, BULL+18
SETCLNO^DGENCLEA DGRPE1+14
$$UPD^DGENDBS DGRPE1+20
XMY^DGMTUTL BULL+7
DEACTIVE^DGOTHEL DGRPE1+10
YN^DICN P1316+3
^DIE DGRPE1+9
FILE^DIE EFF+3, P1316+12
UPDATE^DIE DR207+16, DR104+42
$$GET1^DIQ DGRPE1+10, DR207+5, DR104+4
^DIR DR207+8, DR104+22, DR104+32
$$NOW^XLFDT DR207+14
^XMD BULL+19

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
Routine Call
  • DIE
  • Line Location:
    • DGRPE1+9
Routine Call
  • DIE
  • Line Location:
    • EFF+3
    • P1316+12
Routine Call
  • DIE
  • Line Location:
    • DR207+16
    • DR104+42
Routine Call
  • DIR
  • Line Location:
    • DR207+8
    • DR104+22
    • DR104+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.07 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(391 - [#391] VETTYPE+2
^DPT - [#2] DGRPE1+16, BULL+8, DR+2, EFF+1, VETTYPE+1, DR207+3, DR207+4
^XMB(3.8 - [#3.8] BULL+5

Label References

Name Line Occurrences
P1316 P1316+6, P1316+7
S DGRPE1+6

Naked Globals

Name Field # of Occurrence
^("TYPE" VETTYPE+2
^("VET" VETTYPE+1
^(0 VETTYPE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% YN1316+1~, P1316+1*, P1316+6, P1316+7, P1316+8
>> DATA DGRPE1+20
>> DATA( DGRPE1+18*, DGRPE1+19*
DFN DGRPE1+10, DGRPE1+16, DGRPE1+20, BULL+8, DR+2, EFF+1, EFF+2, VETTYPE+1, DR207+3, DR207+4
, DR207+5, DR207+14, DR207+15, DR104+4, DR104+23, YN1316~, P1316+10, P1316+11
DGBULL BULL+4~
DGCT DGRPE1+9!, S+1*
DGDATE DR207+2~, DR207+3*, DR207+4
DGDR DGRPE1+6, DGRPE1+9!
DGDRD DGRPE1+6*, DGRPE1+9!, S, S+1
DGDRS DGRPE1+9!, S, S+1*
>> DGELG DGRPE1+16*, DGRPE1+18, DGRPE1+19
DGELIG DGRPE1+10~*
DGERR DR207+2~, DR104+8~
DGFDA EFF+4!, DR207+2~, DR104+7~
DGFDA( DR207+14*, DR207+15*
DGFDA(2 EFF+2*, DR104+23*
DGLANGNM DR207+2~, DR207+5*, DR207+7, DR207+12
DGLINE BULL+4~, BULL+11*, BULL+12, BULL+13, BULL+14, BULL+15, BULL+16, BULL+17, BULL+18
DGMGRP BULL+4~, BULL+5*, BULL+6, BULL+7
DGNAME BULL+4~, BULL+8*, BULL+12
>> DGRPS DGRPE1+6, DGRPE1+7
DGSCPC DR+1!, DR+2*, EFF+1, EFF+4!
>> DGSSN BULL+8*, BULL+13
DGSUB DR207+2~, DR207+4*, DR207+5
>> DGTMOT DR104+26*, DR104+35*, P1316+5*
DGXEL DGRPE1+17~, DGRPE1+18*, DGRPE1+19
DIE DGRPE1+9!
DIE("NO^" YN1316+2*
DIFROM BULL+4~
DIR DR207+2~, DR104+9~, DR104+22!, DR104+32!
DIR("A" DR104+32*
DIR("B" DR207+7*, DR104+32*
DIR(0 DR207+8*, DR104+22*, DR104+32*
DIROUT DR104+19~, DR104+29, DR104+36
DIRUT DR104+18~
DR DGRPE1+7*, DGRPE1+9!
DR(2 DR+3*
DTOUT DR104+16~, DR104+26, DR104+35, P1316+5
DUOUT DR104+17~, DR104+29, DR104+36
FDA P1316+9~
FDA(2 P1316+11*
I DGRPE1+6*, DGRPE1+9!
IENS P1316+9~, P1316+11*
J DGRPE1+6*, DGRPE1+9!
J1 DGRPE1+6*, DGRPE1+9!
RSLT YN1316+1~, P1316+8*, P1316+11, P1316+13
U DGRPE1+18, DGRPE1+19, DR+2, EFF+1
VA BULL+4~
VAERR BULL+4~
X DR207+2~, DR104+12~, DR104+32~, DR104+39
XMDUZ BULL+4~
XMSUB BULL+4~, BULL+10*
XMTEXT BULL+4~, BULL+9*
Y VETTYPE+1*, VETTYPE+2*, DR207+2~, DR207+10, DR207+11, DR207+12, DR207+15, DR104+13~, DR104+23, DR104+32~

Marked Items

Name Field # of Occurrence
$T(@J1 DGRPE1+6
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 |  Marked Items  | All