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

Package: Registration

Routine: DGRP6


Information

DGRP6 ;ALB/MRL,LBD,TMK,JAM,HM,ARF - REGISTRATION SCREEN 6/SERVICE INFORMATION ;5/12/11 10:49am

Source Information

Source file <DGRP6.m>

Entry Points

Name Comments DBIA/ICR reference
Q
YN
DAT
DEN
S ;Write Military Service Episodes (DG*5.3*797)
MR
SETLNEX(Z,SEQ,LIN,LENGTH) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Discharge"
  • Line Location: DGRP6+4
Function Call: WRITE
  • Prompt: !?4,"------------------------",?30,"---------",?47,"-------",?58,"---------",?70,"---------"
  • Line Location: DGRP6+5
Function Call: WRITE
  • Prompt: !,?25,LIN(Z)
  • Line Location: DGRP6+14
Function Call: WRITE
  • Prompt: !,?4,"+ ",LIN(Z)
  • Line Location: DGRP6+17
Function Call: WRITE
  • Prompt: " POW: "
  • Line Location: DGRP6+18
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+18
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+18
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+18
Function Call: WRITE
  • Prompt: " Combat: "
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: " Mil Disab Retirement: ",$S(X=0:"NO",X=1:"YES",1:"")
  • Line Location: DGRP6+23
Function Call: WRITE
  • Prompt: DGSPACE_" Dischrg Due to Disab: ",$S(XX=0:"NO",XX=1:"YES",1:"")
  • Line Location: DGRP6+23
Function Call: WRITE
  • Prompt: " Dent Inj: "
  • Line Location: DGRP6+25
Function Call: WRITE
  • Prompt: "Teeth Extracted: "
  • Line Location: DGRP6+25
Function Call: WRITE
  • Prompt: " Purple Heart: "
  • Line Location: DGRP6+27
Function Call: WRITE
  • Prompt: ?26,"PH Status: "_$S($P($G(DGRPX),U,2)="1":"Pending",$P($G(DGRPX),U,2)="2":"In Process",$P($G(DGRPX),U,2)="3":"Confirmed",1:"")
  • Line Location: DGRP6+28
Function Call: WRITE
  • Prompt: ?26,"PH Remarks: "_$S($G(DGX)]"":$G(DGX),1:"")
  • Line Location: DGRP6+32
Function Call: WRITE
  • Prompt: !?3," Trt Date: "
  • Line Location: DEN+0
Function Call: WRITE
  • Prompt: "Cond.: ",$E($P(DGRPX,"^",2),1,45)
  • Line Location: DEN+0
Function Call: WRITE
  • Prompt: !,@GLBL@(DGL,0)
  • Line Location: S+12
Function Call: WRITE
  • Prompt: !," <more episodes>"
  • Line Location: S+15
Function Call: WRITE
  • Prompt: !," <more episodes>"
  • Line Location: S+16
Function Call: WRITE
  • Prompt: !?19,"Receiving Military retirement in lieu of VA Compensation."
  • Line Location: MR+0
Info |  Source |  Entry Points |  Interaction Calls