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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls