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

Package: Registration

Routine: DG1010P3


Information

DG1010P3 ;ALB/REW - PRINT 1010 CONT'D PART III ; 8/18/00 9:47am

Source Information

Source file <DG1010P3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 2 ($$DISP,$$POINT,$$UNK)^DG1010P0  PARTIV^DG1010P4  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG1010P2  

Entry Points

Name Comments DBIA/ICR reference
CTSTZP
ESTATUS(N,NA) ;
; Returns the external value of the Employment Status for either the
; Spouse or the Patient, unless NA=1.
; INPUT: N -- A node [either the .311 or the .25]
; NA -- If =1 returns 'NOT APPLICABLE'
; [N is REQUIRED]
; OUTPUT[Returned & SET] -- X
NAME
PARTIII ;
STREET
QE ;
SETADD ;

External References

Name Field # of Occurrence
$$DISP^DG1010P0 PARTIII+15, NAME, NAME+2, SETADD+11, SETADD+12, SETADD+15, CTSTZP+1
$$POINT^DG1010P0 PARTIII+4
$$UNK^DG1010P0 SETADD+13
PARTIV^DG1010P4 CTSTZP+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?50,"PART III - APPLICANT/SPOUSE DATA",!,$C(13),DGLUND
  • Line Location: PARTIII+6
Function Call: WRITE
  • Prompt: !,"1. APPLICANT'S EMPLOYMENT STATUS: ",$$ESTATUS(DGP(.311)),!,$C(13),DGLUND
  • Line Location: PARTIII+9
Function Call: WRITE
  • Prompt: !,"2. SPOUSE'S EMPLOYMENT STATUS: ",$$ESTATUS(DGP(.25),DGNA),!,$C(13),DGLUND
  • Line Location: PARTIII+12
Function Call: WRITE
  • Prompt: !,?66,"| ",!?14,"3. APPLICANT INFORMATION",?66,"| ",?87,"4. SPOUSE'S INFORMATION",?131,$C(13),DGLUND
  • Line Location: PARTIII+14
Function Call: WRITE
  • Prompt: !,"3A. OCCUPATION: ",$$DISP^DG1010P0(DGP(0),7),?66,"| ","4A. OCCUPATION: ",$$DISP^DG1010P0(DGP(.25),14,DGNA),!,DGL2
  • Line Location: PARTIII+15
Function Call: WRITE
  • Prompt: !,"3B. EMPLOYER (Name, Street Address, City, State, Zip)",?66,"| "
  • Line Location: PARTIII+16
Function Call: WRITE
  • Prompt: "4B. EMPLOYER (Name, Street Address, City, State, Zip)"
  • Line Location: PARTIII+17
Function Call: WRITE
  • Prompt: !?5,$$DISP^DG1010P0(DGP(.311),1,DGVUNEMP)
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: ?66,"| ",?73,$$DISP^DG1010P0(DGP(.25),1,DGNA)
  • Line Location: NAME+2
Function Call: WRITE
  • Prompt: !?5,DGD(.311,3),?66,"| ",?73,DGD(.25,3)
  • Line Location: STREET+0
Function Call: WRITE
  • Prompt: !?5,DGD(.311,6),DGD(.311,7),DGD(.311,8),?66,"| ",?73,DGD(.25,6),DGD(.25,7),DGD(.25,8),!,DGL2
  • Line Location: CTSTZP+0
Function Call: WRITE
  • Prompt: !,"3C. WORK TELEPHONE NUMBER: ",$$DISP^DG1010P0(DGP(.311),9,0,DGBLANK1),?66,"| ","4C. WORK TELEPHONE NUMBER: ",$$DISP^DG1010P0(DGP(.25),8,DGNA,DGBLANK2),?131,$C(13),DGLUND
  • Line Location: CTSTZP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 ESTATUS+10
^DIC(5 - [#5] SETADD+13
^DPT - [#2] PARTIII+2

Label References

Name Line Occurrences
$$ESTATUS PARTIII+9, PARTIII+12
QE ESTATUS+7, ESTATUS+9, ESTATUS+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DESTXT PARTIII+1!
>> DFN PARTIII+2
DG1010P2 PARTIII+1!
DGADDR PARTIII+1!
>> DGBLANK PARTIII+5*, NAME*, SETADD+8*, SETADD+16*
>> DGBLANK1 NAME*, CTSTZP+1
>> DGBLANK2 NAME+2*, SETADD+8, CTSTZP+1
DGD PARTIII+1!
DGD( SETADD+2*, SETADD+3*, SETADD+11*, SETADD+12*, SETADD+13*, SETADD+14, SETADD+15*, STREET, STREET+1, STREET+2
, CTSTZP
DGD1 PARTIII+1!
DGDCTY PARTIII+1!
>> DGDMAX PARTIII+3*, SETADD+14*, STREET+1, STREET+2
>> DGDPC SETADD+2*, SETADD+3*, SETADD+10*, SETADD+11, SETADD+12, SETADD+13, SETADD+14, SETADD+15
DGDSL PARTIII+1!
DGDST PARTIII+1!
DGDSTR PARTIII+1!
DGDSUM PARTIII+1!
DGDZIP PARTIII+1!
>> DGI SETADD+1*, SETADD+5*, SETADD+6, SETADD+7, SETADD+8, SETADD+11, SETADD+12, SETADD+13, SETADD+14, SETADD+15
>> DGL2 PARTIII+15, CTSTZP
>> DGLUND PARTIII+6, PARTIII+9, PARTIII+12, PARTIII+14, CTSTZP+1
>> DGNA PARTIII+7*, PARTIII+12, PARTIII+15, NAME+1*, NAME+2, SETADD+1*, SETADD+8*, CTSTZP+1
>> DGNOTMAR PARTIII+4*, PARTIII+7, SETADD+2, SETADD+6, SETADD+8
DGP PARTIII+1!
DGP( PARTIII+2*, PARTIII+9, PARTIII+12, PARTIII+15, NAME, NAME+2, SETADD+11, SETADD+12, SETADD+13, SETADD+15
, CTSTZP+1
DGP(0 PARTIII+4, PARTIII+15
>> DGPCDIFF SETADD+4*, SETADD+8*, SETADD+11, SETADD+12, SETADD+13
DGQ PARTIII+1!
>> DGSPC PARTIII+5*
DGSUNEMP PARTIII+13*, NAME+1, SETADD+2, SETADD+6, CTSTZP+2!
>> DGUNK NAME, NAME+2, SETADD+12, SETADD+13
DGVUNEMP PARTIII+11*, NAME, SETADD+3, SETADD+7, CTSTZP+2!
>> I PARTIII+2*
N ESTATUS~, ESTATUS+8
NA ESTATUS~, ESTATUS+7
U SETADD+13, ESTATUS+8, ESTATUS+10
>> X PARTIII+4*, PARTIII+11, PARTIII+13, SETADD+13*, ESTATUS+7*, ESTATUS+8*, ESTATUS+9*, ESTATUS+10*, ESTATUS+11*, ESTATUS+12*
, QE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All