Routine: ONCOAID

Information

ONCOAID ;Hines OIFO/GWB - Patient Demographic Information ;6/23/10

Source file <ONCOAID.m>

Name	Comments	DBIA/ICR reference
DEM	;Display demographic information
FIL	;name file
SN
DB
PB
SX
RC
MS	;marital status
XD
AD
TL
W
N
1
2
4
TT
PAT
XX
POB
SET
KILL	;Kill variables
CLEANUP	;Cleanup

Name	Line Occurrences
Function Call: WRITE	Prompt: "??dangling pointer" Line Location: DEM+3
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !!,?6,"The following information is contained in the ",FN," file" Line Location: W+0
Function Call: WRITE	Prompt: !?12,"NOT editable - See your MAS department IF in error",! Line Location: W+1
Function Call: WRITE	Prompt: !?20,"Name: ",ONCONM,! Line Location: N+0
Function Call: WRITE	Prompt: !,"DOB: ",ONCODB Line Location: 1+0
Function Call: WRITE	Prompt: ?31,"Address: ",A(1) Condition for execution: $D(A(1)) Line Location: 1+0
Function Call: WRITE	Prompt: " ",A(2) Condition for execution: $D(A(2)) Line Location: 1+0
Function Call: WRITE	Prompt: !,"SSN: ",ONCOSN Line Location: 2+0
Function Call: WRITE	Prompt: ?40,A(4) Condition for execution: $D(A(4)) Line Location: 2+0
Function Call: WRITE	Prompt: ",",$P(^DIC(5,A(5),0),U) Condition for execution: $D(A(5)) Line Location: 2+0
Function Call: WRITE	Prompt: !,"SEX: ",SEX Line Location: 4+0
Function Call: WRITE	Prompt: ?40,"County: ",CT Condition for execution: $D(CT) Line Location: 4+0
Function Call: WRITE	Prompt: !,"POB: ",$S(SOB="":"Not Stated",1:SOB) Line Location: 4+1
Function Call: WRITE	Prompt: ?40,TL Condition for execution: $D(TL) Line Location: 4+1
Function Call: WRITE	Prompt: ! Line Location: TT+0

FileNo	Call Tags
^ONCO(165.2 - [#165.2]	Classic Fileman Calls