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

Package: Registration

Routine: DG1010P7


Information

DG1010P7 ;ALB/REW - PRINT 1010 CONT'D PART VII ; 18 MAR 92

Source Information

Source file <DG1010P7.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 4 ($$DATENP,$$DISP,$$POINT,$$UNK)^DG1010P0  (FOOTER,HEADER)^DG1010P2  CLEANUP^DG1010P7  ^DG1010S1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG1010P2  DG1010P6  DG1010P7  

Entry Points

Name Comments DBIA/ICR reference
PAGE4 ;
CLEANUP ;
WARNING ;
PARTVII
REPLACE ;

External References

Name Field # of Occurrence
$$DATENP^DG1010P0 PARTVII+6, PARTVII+11, PAGE4+5, PAGE4+7
$$DISP^DG1010P0 PARTVII+6, PARTVII+7, PARTVII+8, PARTVII+11, PAGE4+7
$$POINT^DG1010P0 PARTVII+6, PARTVII+11, PAGE4+5
$$UNK^DG1010P0 PARTVII+6, PARTVII+11
FOOTER^DG1010P2 PARTVII+15, PAGE4+21
HEADER^DG1010P2 PARTVII+17
CLEANUP^DG1010P7 PARTVII+16, PAGE4+22
^DG1010S1 PAGE4+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?48,"PART VII - INELIGIBLE/MISSING DATA",!,DGLUND
  • Line Location: PARTVII+1
Function Call: WRITE
  • Prompt: !,"1. INELIGIBLE DATE",?32,"| ","2. TWX SOURCE",?66,"| ","3. TWX CITY",?98,"| ","4. TWX STATE"
  • Line Location: PARTVII+4
Function Call: WRITE
  • Prompt: !?5,$$DATENP^DG1010P0(DGP(.15),2,0,DGBLANK),?32,"| ",?39,$$UNK^DG1010P0(DGSOURCE,0,DGBLANK),?66,"| ",?72,$$DISP^DG1010P0(DGP("INE"),3,0,DGBLANK),?98,"| ",?105,$$POINT^DG1010P0(DGP("INE"),4,5,1,0,DGBLANK),?131,$C(13),DGLUND
  • Line Location: PARTVII+6
Function Call: WRITE
  • Prompt: !,"5. REASON: ",$$DISP^DG1010P0(DGP(.3),7,0,DGBLANK),!,DGLUND
  • Line Location: PARTVII+7
Function Call: WRITE
  • Prompt: !,"6. VACO DECISION: ",$$DISP^DG1010P0(DGP("INE"),6,0,DGBLANK),!,DGLUND
  • Line Location: PARTVII+8
Function Call: WRITE
  • Prompt: !,"7. MISSING DATE",?32,"| ","8. TWX SOURCE",?66,"| ","9. TWX CITY",?98,"| ","10. TWX STATE"
  • Line Location: PARTVII+10
Function Call: WRITE
  • Prompt: !?5,$$DATENP^DG1010P0(DGP(.15),3,0,DGBLANK),?32,"| ",?39,$$UNK^DG1010P0(DGSOURCE,0,DGBLANK),?66,"| ",?72,$$DISP^DG1010P0(DGP("INE"),8,0,DGBLANK),?98,"| ",?105,$$POINT^DG1010P0(DGP("INE"),9,5,1,0,DGBLANK),?131,$C(13),DGLUND
  • Line Location: PARTVII+11
Function Call: WRITE
  • Prompt: !,"11. REASON: "
  • Line Location: PARTVII+12
Function Call: WRITE
  • Prompt: ?13,^(I,0)
  • Line Location: PARTVII+13
Function Call: WRITE
  • Prompt: ?131,$C(13),DGLUND
  • Line Location: PARTVII+14
Function Call: WRITE
  • Prompt: !,$P(($T(REPLACE+1)),";;",2),!,DGLDOUBL
  • Line Location: PAGE4+1
Function Call: WRITE
  • Prompt: !,"1. ELIGIBILITY STATUS",?53,"| ","2. STATUS DATE",?88,"| ","3. STATUS ENTERED BY"
  • Line Location: PAGE4+3
Function Call: WRITE
  • Prompt: !?4,DGSOURCE,?53,"| ",?59,$$DATENP^DG1010P0(DGP(.361),2),?88,"| ",?94,$$POINT^DG1010P0(DGP(.361),6,"^VA(200,"),?131,$C(13),DGLUND
  • Line Location: PAGE4+5
Function Call: WRITE
  • Prompt: !,"4. VERIFICATION METHOD",?53,"| ","5. SERVICE VERIFICATION DATE"
  • Line Location: PAGE4+6
Function Call: WRITE
  • Prompt: !?4,$E($$DISP^DG1010P0(DGP(.361),5),1,48),?53,"| ",?59,$$DATENP^DG1010P0(DGP(.32),2)
  • Line Location: PAGE4+7
Function Call: WRITE
  • Prompt:
  • Condition for execution: (J=1)&(I'>0) ?94,"UNANSWERED" Q:I'>0
  • Line Location: PAGE4+10
Function Call: WRITE
  • Prompt: !,?53,"| ",?88,"| "
  • Condition for execution: (I'>0) ! S X=$G(^(I,0)) W:(I'=1)
  • Line Location: PAGE4+10
Function Call: WRITE
  • Prompt: ?94,$P($G(^DIC(31,+X,0)),U,1)
  • Line Location: PAGE4+10
Function Call: WRITE
  • Prompt: ?131,$C(13),DGLUND,!
  • Line Location: PAGE4+11
Function Call: WRITE
  • Prompt: !,$P($T(WARNING+I),";;",2)
  • Line Location: PAGE4+12
Function Call: WRITE
  • Prompt: !,DGLUND
  • Line Location: PAGE4+13
Function Call: WRITE
  • Prompt: !,"SIGNATURE OF APPLICANT OR APPLICANT'S REPRESENTATIVE",?88,"| ","DATE"
  • Line Location: PAGE4+14
Function Call: WRITE
  • Prompt: !,?88,"| "
  • Line Location: PAGE4+15
Function Call: WRITE
  • Prompt: !,$E(DGLUND,1,88),"|",$E(DGLUND,90,132)
  • Line Location: PAGE4+16
Function Call: WRITE
  • Prompt: !?8,"FOR VA USE ONLY",?32,"| ","VA FACILITY NUMBER",?65,"| ","ADMISSION DATE",?93,"| ","AUTHORITY FOR ADMISSION OR TREATMENT"
  • Line Location: PAGE4+17
Function Call: WRITE
  • Prompt: !,?32,"| ",?65,"| ",?93,"| "
  • Line Location: PAGE4+18
Function Call: WRITE
  • Prompt: !,?32,"| ",?42,$P(DGSITE,U,3),?65,"| ",?93,"| "
  • Line Location: PAGE4+19
Function Call: WRITE
  • Prompt: !,?32,"| ",?65,"| ",?93,"| "
  • Line Location: PAGE4+20

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PARTVII+3, PARTVII+13

Naked Globals

Name Field # of Occurrence
^( PARTVII+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BL CLEANUP+1!
>> DFN PARTVII+3, PARTVII+13
DGAP CLEANUP+1!
DGBLANK PARTVII*, PARTVII+6, PARTVII+7, PARTVII+8, PARTVII+11, PAGE4+2*, CLEANUP+1!
DGCHECK PARTVII+2!
DGCLK CLEANUP+1!
DGCT PARTVII+2!
DGD CLEANUP+1!
DGDEF PARTVII+2!
DGDEP PARTVII+2!
DGDEPINC PARTVII+2!
DGDMAX CLEANUP+1!
DGDPC CLEANUP+1!
DGDREL PARTVII+2!
DGGTOT PARTVII+2!
DGI CLEANUP+1!
DGINC PARTVII+2!
DGINR PARTVII+2!
DGISDT PARTVII+2!
DGL2 CLEANUP+1!
DGLDASH CLEANUP+1!
DGLDOUBL PAGE4+1, CLEANUP+1!
DGLUND PARTVII+1, PARTVII+6, PARTVII+7, PARTVII+8, PARTVII+11, PARTVII+14, PAGE4+5, PAGE4+11, PAGE4+13, PAGE4+16
, CLEANUP+1!
DGNA CLEANUP+1!
DGNAM CLEANUP+1!
DGNODE PARTVII+2!
DGNOTMAR CLEANUP+1!
DGP PARTVII+2!, CLEANUP+1!
DGP( PARTVII+3*, PARTVII+6, PARTVII+7, PARTVII+11, PAGE4+4, PAGE4+5, PAGE4+7
DGP("INE" PARTVII+5, PARTVII+6, PARTVII+8, PARTVII+9, PARTVII+11
DGPAGE CLEANUP+1!
DGPCE PARTVII+2!
DGRDOB PARTVII+2!
DGREL PARTVII+2!
DGRNAM PARTVII+2!
DGRSEX PARTVII+2!
DGRSSN PARTVII+2!
DGSITE PAGE4+19, CLEANUP+1!
DGSOURCE PARTVII+5*, PARTVII+6, PARTVII+9*, PARTVII+11, PAGE4+4*, PAGE4+5, CLEANUP+1!
DGSP PARTVII+2!
DGSPACES CLEANUP+1!
DGSPOINC PARTVII+2!
DGSS CLEANUP+1!
>> DGSTOP PARTVII+16, PAGE4+22
DGTOT PARTVII+2!
DGTOTINC PARTVII+2!
DGTYPE PARTVII+2!
DGUNK CLEANUP+1!
DGVETINC PARTVII+2!
F PARTVII+2!
>> FREE PAGE4+23
>> I PARTVII+3*, PARTVII+13*, PAGE4+12*, PAGE4+15*, PAGE4+18*, PAGE4+20*
INCTEXT PARTVII+2!
N CLEANUP+1!
NA CLEANUP+1!
P CLEANUP+1!
P2 CLEANUP+1!
ROOT CLEANUP+1!
U PARTVII+5, PARTVII+9, PAGE4+4, PAGE4+19
WARNING CLEANUP+1!
>> X PARTVII+5*, PARTVII+9*, PAGE4+4*

Marked Items

Name Field # of Occurrence
$T(REPLACE+1 PAGE4+1
$T(WARNING+I PAGE4+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items |  All