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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls