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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRP4

Package: Registration

Routine: DGRP4


Information

DGRP4 ;ALB/MRL,ARF - REGISTRATION SCREEN 4/EMPLOYMENT INFORMATION ;06 JUN 88@2300

Source Information

Source file <DGRP4.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 3 ^DGRPP  (AL,H)^DGRPU  (WW,WW1)^DGRPV  
VA FileMan 2 DD^%DT  NOW^%DTC  
Kernel 1 $$FMDIFF^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
NEWB ;-- check patient DOB, if DOB<365 days, set employment status to "not employed"

External References

Name Field # of Occurrence
DD^%DT DGRP4+25, DGRP4+36
NOW^%DTC NEWB+3
^DGRPP DGRP4+41
AL^DGRPU DGRP4+9
H^DGRPU DGRP4+5
WW^DGRPV DGRP4+10
WW1^DGRPV DGRP4+10
$$FMDIFF^XLFDT NEWB+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?54,Z
  • Line Location: DGRP4+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP4+12
Function Call: WRITE
  • Prompt: ?7,"Phone: ",$S($P(DGRP(.311),"^",9)]"":$P(DGRP(.311),"^",9),1:DGRPU)
  • Line Location: DGRP4+12
Function Call: WRITE
  • Prompt: ?47,"Phone: ",$S($P(DGRP(.25),"^",8)]"":$P(DGRP(.25),"^",8),1:DGRPU)
  • Line Location: DGRP4+13
Function Call: WRITE
  • Prompt: !,?2,"Occupation: ",$S($P(DGRP(0),"^",7)]"":$P(DGRP(0),"^",7),1:DGRPU)
  • Line Location: DGRP4+14
Function Call: WRITE
  • Prompt: ?42,"Occupation: ",$S($P(DGRP(.25),"^",14)]"":$P(DGRP(.25),"^",14),1:DGRPU)
  • Line Location: DGRP4+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP4+16
Function Call: WRITE
  • Prompt: ?6,"Status: ",$S($P(X1,"^",X)]"":$P(X1,"^",X),1:DGRPU)
  • Line Location: DGRP4+17
Function Call: WRITE
  • Prompt: ?46,"Status: ",$S($P(X1,"^",X)]"":$P(X1,"^",X),1:DGRPU)
  • Line Location: DGRP4+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP4+19
Function Call: WRITE
  • Prompt: ?1,"Retired Dt.: "
  • Line Location: DGRP4+20
Function Call: WRITE
  • Prompt: Y
  • Line Location: DGRP4+26
Function Call: WRITE
  • Prompt: "NOT APPLICABLE"
  • Line Location: DGRP4+29
Function Call: WRITE
  • Prompt: ?41,"Retired Dt.: "
  • Line Location: DGRP4+31
Function Call: WRITE
  • Prompt: Y
  • Line Location: DGRP4+37
Function Call: WRITE
  • Prompt: "NOT APPLICABLE"
  • Line Location: DGRP4+40

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(11 - [#11] DGRP4+7
^DPT - [#2] DGRP4+5, NEWB+2, NEWB+5*

Label References

Name Line Occurrences
NEWB DGRP4+4

Naked Globals

Name Field # of Occurrence
^( DGRP4+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DGRP4+5, NEWB+2, NEWB+5
>> DGA( DGRP4+11
>> DGA1 DGRP4+9*
>> DGA2 DGRP4+9*
>> DGAD DGRP4+9*
DGMRD DGRP4+3~, DGRP4+7*, DGRP4+9, DGRP4+10, DGRP4+13, DGRP4+15, DGRP4+18, DGRP4+30
>> DGRP( DGRP4+5*, DGRP4+9, DGRP4+10, DGRP4+12, DGRP4+13, DGRP4+15, DGRP4+17, DGRP4+18, DGRP4+21, DGRP4+22
, DGRP4+24, DGRP4+28, DGRP4+32, DGRP4+33, DGRP4+35, DGRP4+39
>> DGRP(0 DGRP4+7, DGRP4+14
>> DGRPS DGRP4+5*
>> DGRPU DGRP4+10, DGRP4+12, DGRP4+13, DGRP4+14, DGRP4+15, DGRP4+17, DGRP4+18
>> DGRPW DGRP4+5*, DGRP4+10*
DOB NEWB+1~, NEWB+2*, NEWB+4
>> I DGRP4+5*, DGRP4+11*
NOW NEWB+1~, NEWB+3*, NEWB+4
>> X DGRP4+7*, DGRP4+17*, DGRP4+18*, NEWB+3
>> X1 DGRP4+16*, DGRP4+17, DGRP4+18
Y DGRP4+23~, DGRP4+24*, DGRP4+26, DGRP4+27!, DGRP4+34~, DGRP4+35*, DGRP4+37, DGRP4+38!
>> Z DGRP4+10*, DGRP4+11*
>> Z1 DGRP4+10*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All