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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DG1010P5

Package: Registration

Routine: DG1010P5


Information

DG1010P5 ;ALB/REW - PRINT 1010 CONT'D PART V ; 15 MAR 92

Source Information

Source file <DG1010P5.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 2 ($$DISP,$$POINT,$$UNK)^DG1010P0  Q11PTV^DG1010PX  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG1010P4  DGRPTP1  

Entry Points

Name Comments DBIA/ICR reference
SCCOND ;
ELIG(X) ;
; Ext Val of Elig
YN2(N,P) ;
; Ext Val of YES/NO given node & piece.
PARTV ;
GI
INSINFO ;

External References

Name Field # of Occurrence
$$DISP^DG1010P0 SCCOND+2, SCCOND+11, SCCOND+12
$$POINT^DG1010P0 PARTV+2, GI+5, SCCOND+12
$$UNK^DG1010P0 ELIG+6
Q11PTV^DG1010PX SCCOND+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?50,"PART V - ELIGIBILITY STATUS DATA",!,DGLUND
  • Line Location: PARTV+1
Function Call: WRITE
  • Prompt: !,"1. PATIENT TYPE: ",$$POINT^DG1010P0(DGP("TYPE"),1,"^DG(391,"),!,DGLUND
  • Line Location: PARTV+2
Function Call: WRITE
  • Prompt: !,"2. IS NEED FOR MEDICAL CARE RELATED TO AN",?44,"| ","3. IS THE NEED FOR MEDICAL CARE RELATED",?89,"| ","4. IS PATIENT ELIGIBLE FOR MEDICAID:"
  • Line Location: PARTV+3
Function Call: WRITE
  • Prompt: !," ON THE JOB INJURY: ",$$YN2(DGP("DIS2"),1),?44,"| ",?50,"TO AN ACCIDENT: ",$$YN2(DGP("DIS2"),4),?89,"| ",?95,$$YN2(DGP(.38),1),?131,$C(13),DGLUND
  • Line Location: PARTV+4
Function Call: WRITE
  • Prompt: !,"5A. DOES PATIENT HAVE HEALTH INSURANCE",?44,"| ","5B. IF YES, COVERAGE PROVIDED BY:"
  • Line Location: PARTV+5
Function Call: WRITE
  • Prompt: !?4,"COVERAGE: ",$$YN2(DGP(.31),11),?44,"| ",?50
  • Line Location: PARTV+6
Function Call: WRITE
  • Prompt: "NOT APPLICABLE"
  • Line Location: PARTV+7
Function Call: WRITE
  • Prompt: "NO ACTIVE (UNEXPIRED) INSURANCE ON FILE FOR THIS APPLICANT"
  • Line Location: INSINFO+8
Function Call: WRITE
  • Prompt: DGVT_$S((DGVT'="")&((DGSP_DGOT)'=""):" & ",1:"")_DGSP_$S((DGOT'="")&((DGVT_DGSP)'=""):" & ",1:"")_DGOT
  • Line Location: INSINFO+9
Function Call: WRITE
  • Prompt: ?131,$C(13),DGLUND
  • Line Location: GI+0
Function Call: WRITE
  • Prompt: !,"6. DOES VETERAN HAVE GI",?31,"| ","7. PRIMARY ELIGIBILITY CODE",?65,"| ","8. OTHER ELIGIBILITY CODE",?98,"| ","9. PERIOD OF SERVICE"
  • Line Location: GI+1
Function Call: WRITE
  • Prompt: !?4,"INSURANCE: ",$$YN2(DGP(.362),17),?31,"| ",?36,$$ELIG($P(DGP(.36),U,1)),?65,"| ",?70
  • Line Location: GI+2
Function Call: WRITE
  • Prompt: $$ELIG(DGOTHER),?98,"| ",?103,$$POINT^DG1010P0(DGP(.32),3,21,1,0,1)
  • Line Location: GI+5
Function Call: WRITE
  • Prompt: ?131,$C(13),DGLUND
  • Line Location: GI+10
Function Call: WRITE
  • Prompt: ?59,$P(^(E,0),U,1)," (",$P(^(0),U,2),"%)"
  • Line Location: SCCOND+5
Function Call: WRITE
  • Prompt: !,?59,$P(^(E,0),U,1)," (",$P(^(0),U,2),"%)"
  • Line Location: SCCOND+6
Function Call: WRITE
  • Prompt: !,"10. SERVICE CONNECTED CONDITIONS: "_$S((DGSC="NA"):"NOT APPLICABLE: NOT A SERVICE-CONNECTED APPLICANT",1:"UNANSWERED"),!
  • Line Location: SCCOND+15
Function Call: WRITE
  • Prompt: ?131,$C(13),DGLUND
  • Line Location: SCCOND+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8 - [#8] ELIG+6
^DPT - [#2] INSINFO+2, INSINFO+3, GI+3, GI+7, SCCOND+2, SCCOND+5, SCCOND+6, SCCOND+10

Label References

Name Line Occurrences
$$ELIG GI+2, GI+5, GI+7
$$YN2 PARTV+4, PARTV+6, GI+2
GI PARTV+7

Naked Globals

Name Field # of Occurrence
^( SCCOND+5, SCCOND+6, SCCOND+10
^(0 SCCOND+5, SCCOND+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN INSINFO+2, INSINFO+3, GI+3, GI+7, SCCOND+2, SCCOND+5, SCCOND+6, SCCOND+10
>> DFN1 INSINFO+4
>> DGD GI+7*, GI+9
>> DGE GI+3, GI+4, ELIG+5*
DGFL SCCOND+9*, SCCOND+13*, SCCOND+14!
>> DGI INSINFO+3*, INSINFO+4, INSINFO+5, INSINFO+6, INSINFO+7
>> DGINS INSINFO+2*, INSINFO+3
>> DGLUND PARTV+1, PARTV+2, PARTV+4, GI, GI+10, SCCOND+16
>> DGOT INSINFO+1*, INSINFO+7*, INSINFO+8, INSINFO+9
>> DGOTHER GI+3*, GI+5, GI+6, GI+7*, GI+8
>> DGP( PARTV+4, PARTV+6, GI+2, GI+5, SCCOND+2, SCCOND+10*, SCCOND+11, SCCOND+12
>> DGP("DIS2" PARTV+4
>> DGP("TYPE" PARTV+2
>> DGSC SCCOND+2*, SCCOND+3, SCCOND+7, SCCOND+15
>> DGSP INSINFO+1*, INSINFO+6*, INSINFO+8, INSINFO+9
>> DGUNK GI+6, GI+8
>> DGVT INSINFO+1*, INSINFO+5*, INSINFO+8, INSINFO+9
>> DGX GI+4*, GI+8
>> E SCCOND+5*, SCCOND+6*, SCCOND+10*
N YN2~, YN2+5
P YN2~, YN2+5
U INSINFO+4, INSINFO+5, INSINFO+6, INSINFO+7, GI+2, SCCOND+2, SCCOND+5, SCCOND+6, ELIG+6
X PARTV+7, YN2+5*, YN2+6, ELIG~, ELIG+5, ELIG+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All