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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGRP15

Package: Registration

Routine: DGRP15


Information

DGRP15 ;ALB/MTC - TRICARE DEMOGRAPHIC DATA ;03/05/2004

Source Information

Source file <DGRP15.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 ^DGRPP  H^DGRPU  (WW,WW1)^DGRPV  TDATA^DGSDUTL  
Integrated Billing 2 GET^IBCNSU4  SPON^IBCNSU41  
Kernel 1 $$FMDIFF^XLFDT  
VA FileMan 1 NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGRPCF  DGRPE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
GET ;-- get sponsor information and populate the DGSA array.
EDIT ;-- edit sponsor or primary care ... called from DGRPE
NEWBDT(DFN) ;-- Get baby's DOB, check if DOB <1 year, returns FLAG and DOB
1
2 ;-- Primary Care
DISPON(SPON) ;-- This function will display the Sponsor designated by
; SPON.^
GETQ

External References

Name Field # of Occurrence
NOW^%DTC NEWBDT+4
^DGRPP 2+12
H^DGRPU 1+5
WW^DGRPV 1+7
WW1^DGRPV DISPON+3, DISPON+5, DISPON+7, DISPON+9
TDATA^DGSDUTL 2+5
GET^IBCNSU4 GET+2
SPON^IBCNSU41 EDIT+2
$$FMDIFF^XLFDT NEWBDT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Sponsor Information:"
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: !?4,"Sponsored Newborn:"
  • Line Location: 1+11
Function Call: WRITE
  • Prompt: !?7,"NAME : ",$P(NEWBAR(NN,SPN),"^")
  • Line Location: 1+16
Function Call: WRITE
  • Prompt: !?8,"DOB : "
  • Line Location: 1+17
Function Call: WRITE
  • Prompt: Y
  • Line Location: 1+17
Function Call: WRITE
  • Prompt: !?8,"SSN : ",$P(NEWBAR(NN,SPN),"^",3)
  • Line Location: 1+18
Function Call: WRITE
  • Prompt: !?6,"Effective Date : "
  • Line Location: 1+19
Function Call: WRITE
  • Prompt: Y
  • Line Location: 1+19
Function Call: WRITE
  • Prompt: ?38,"Expiration Date : "
  • Line Location: 1+20
Function Call: WRITE
  • Prompt: Y
  • Line Location: 1+20
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+21
Function Call: WRITE
  • Prompt: "Sponsor has ",SPFLAG," sponsored newborn children."
  • Line Location: 1+22
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+23
Function Call: WRITE
  • Prompt: !,GBL(CT,0)
  • Line Location: 2+8
Function Call: WRITE
  • Prompt: !,!," Name : "
  • Line Location: DISPON+3
Function Call: WRITE
  • Prompt: ?40,"Military Status : ",$P(DGSA(SPON,"SPON"),U,4)
  • Line Location: DISPON+4
Function Call: WRITE
  • Prompt: !," DOB : "
  • Line Location: DISPON+5
Function Call: WRITE
  • Prompt: ?35,"Branch of Service : ",$P(DGSA(SPON,"SPON"),U,5)
  • Line Location: DISPON+6
Function Call: WRITE
  • Prompt: !," SSN : "
  • Line Location: DISPON+7
Function Call: WRITE
  • Prompt: ?52,"Rank : ",$P(DGSA(SPON,"SPON"),U,6)
  • Line Location: DISPON+8
Function Call: WRITE
  • Prompt: !," Prefix : "
  • Line Location: DISPON+9
Function Call: WRITE
  • Prompt: ?52,"Type : ",$P(DGSA(SPON,"REL"),U,3)
  • Line Location: DISPON+10
Function Call: WRITE
  • Prompt: !," Effective Date : ",Y
  • Line Location: DISPON+12
Function Call: WRITE
  • Prompt: ?35,"Expiration Date: ",Y
  • Line Location: DISPON+14
Function Call: WRITE
  • Prompt: !,"Edit Primary Provider information."
  • Line Location: EDIT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" 1+17, 1+19, 1+20, DISPON+11, DISPON+13
^DPT - [#2] GET+13, GET+14, GET+15, GET+16, NEWBDT+3
^IBA(355.8 - [#355.8] GET+5, GET+7
^IBA(355.81 - [#355.81] GET+8, GET+9, GET+10, GET+11, GET+12

Label References

Name Line Occurrences
DISPON 1+9
GET 1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AA GET+1~, GET+8*, GET+9, GET+10, GET+11, GET+12
BDOB GET+1~, GET+14*, GET+15, GET+18
CNT EN+1~, 1+12*, 1+14, 1+15*
CT 2+4~, 2+5, 2+6, 2+8*
DFN 2+5, GET+2, GET+6, EDIT+2, NEWBDT~, NEWBDT+3
>> DGRPANN EDIT+1, EDIT+3
>> DGRPS 1+5*
>> DGRPW 1+5*
DGSA EN+1~, 1*, 1+8, GET+2
DGSA( 1+9, DISPON+3, DISPON+4, DISPON+5, DISPON+6, DISPON+7, DISPON+8, DISPON+9, DISPON+10, DISPON+11
, DISPON+13
DOB NEWBDT+1~, NEWBDT+3*, NEWBDT+5, NEWBDT+7
DT 2+5
>> EFFDT GET+11*, GET+18
>> EXPDT GET+12*, GET+18
FLAG NEWBDT+1~, NEWBDT+2*, NEWBDT+6*, NEWBDT+7
GBL 2+4~*
GBL( 2+8
GBL(11 2+6*
GBL(12 2+7*
HDT GET+1~
LINE EN+1~, GET+1~, GET+16*, GET+18
N GET+1~, GET+7*, GET+9
NEWB GET+1~
NEWBAR EN+1~
NEWBAR( 1+12, 1+14, 1+16, 1+17, 1+18, 1+19, 1+20
NEWBAR(9999999 GET+18*
NN EN+1~, 1+12*, 1+14, 1+16, 1+17, 1+18, 1+19, 1+20
NOW NEWBDT+1~, NEWBDT+4*, NEWBDT+5
SPFLAG EN+1~, 1+2*, 1+10, 1+11, 1+22, GET+18*
SPN 1+13*, 1+14*, 1+16, 1+17, 1+18, 1+19, 1+20, GET+1~, GET+10*, GET+13
, GET+14, GET+15, GET+16, GET+18
SPON DISPON~, DISPON+3, DISPON+4, DISPON+5, DISPON+6, DISPON+7, DISPON+8, DISPON+9, DISPON+10, DISPON+11
, DISPON+13
SPON1 GET+1~
U DISPON+3, DISPON+4, DISPON+5, DISPON+6, DISPON+7, DISPON+8, DISPON+9, DISPON+10, DISPON+11, DISPON+13
X EN+1~, 1+9*, GET+1~, GET+5*, GET+6, GET+7, NEWBDT+4
Y EN+1~, 1+9*, 1+17*, 1+19*, 1+20*, DISPON+11*, DISPON+12, DISPON+13*, DISPON+14
>> Z 1+7*, DISPON+3*, DISPON+5*, DISPON+7*, DISPON+9*
>> Z1 DISPON+3*, DISPON+5*, DISPON+7*, DISPON+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All