Routine: DGRP4

Information

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

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

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

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

Name	Line Occurrences
NEWB	DGRP4+4

Name	Field # of Occurrence
^(	DGRP4+5

Name	Field # of Occurrence
>> DFN	DGRP4+5, NEWB+2, NEWB+5
>> DGA(	DGRP4+9
>> DGA1	DGRP4+7*
>> DGA2	DGRP4+7*
>> DGAD	DGRP4+7*
DGMRD	DGRP4+3~, DGRP4+6*, DGRP4+7, DGRP4+8, DGRP4+11, DGRP4+13, DGRP4+16, DGRP4+28
>> DGRP(	DGRP4+5*, DGRP4+7, DGRP4+8, DGRP4+10, DGRP4+11, DGRP4+13, DGRP4+15, DGRP4+16, DGRP4+19, DGRP4+20 , DGRP4+22, DGRP4+26, DGRP4+30, DGRP4+31, DGRP4+33, DGRP4+37
>> DGRP(0	DGRP4+6, DGRP4+12
>> DGRPS	DGRP4+5*
>> DGRPU	DGRP4+8, DGRP4+10, DGRP4+11, DGRP4+12, DGRP4+13, DGRP4+15, DGRP4+16
>> DGRPVV(4	DGRP4+6*
>> DGRPW	DGRP4+5, DGRP4+8
DOB	NEWB+1~, NEWB+2*, NEWB+4
>> I	DGRP4+5, DGRP4+9
NOW	NEWB+1~, NEWB+3*, NEWB+4
>> X	DGRP4+6, DGRP4+15, DGRP4+16*, NEWB+3
>> X1	DGRP4+14*, DGRP4+15, DGRP4+16
Y	DGRP4+21~, DGRP4+22, DGRP4+24, DGRP4+25!, DGRP4+32~, DGRP4+33, DGRP4+35, DGRP4+36!
>> Z	DGRP4+8, DGRP4+9
>> Z1	DGRP4+8*