Routine: ONCOAI

Information

ONCOAI ;HINES OIFO/GWB [AI Complete Abstract] ;07/22/11

Source file <ONCOAI.m>

Name	Comments	DBIA/ICR reference
BEG
DEM	;Display demographic data
PD
A1
PAT	;Edit ONCOLOGY PATIENT (160) data
HIS	;Patient History
CK	;Check for existing primaries
PRIM1	;Register a primary for this patient
REG
PRIM2	;patient in PRIMARY FILE
ASK
EDT	;Select primary to edit
AIP	;Abstract all Primary Data;Return with (D0,ONCOD0P)=Primary Record Number
SET
SET1
CONT	;Continue another patient
FOL	;Follow-Up
KILL	;Kill variables
KIL
ER	;Error
EX
WRTSDC	;CALLED BY [ONCO XDEATH INFO] PRINT TEMPLATE
CON	;ADD CONTACTS
NEWCHECK	;CODE FOR MULTIDIVISION CHECK - PATCH 17

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!! Line Location: BEG+1
Function Call: WRITE	Prompt: ! Line Location: A1+0
Function Call: WRITE	Prompt: !,"Another user is editing this patient." Line Location: PAT+8
Function Call: WRITE	Prompt: ! Line Location: HIS+1
Function Call: WRITE	Prompt: !,"Another user is editing this patient" Line Location: HIS+7
Function Call: WRITE	Prompt: !! Line Location: REG+0
Function Call: WRITE	Prompt: !," Date Last Contact: ",$$GET1^DIQ(160,ONCOD0,16,"E") Line Location: PRIM2+2
Function Call: WRITE	Prompt: !," Status: ",$$GET1^DIQ(160,ONCOD0,15,"E") Line Location: PRIM2+3
Function Call: WRITE	Prompt: !," Follow-up Status: ",$$GET1^DIQ(160,ONCOD0,15.2,"E") Line Location: PRIM2+4
Function Call: WRITE	Prompt: ! Line Location: EDT+1
Function Call: WRITE	Prompt: ?40,"Space bar not allowed!" Line Location: EDT+1
Function Call: WRITE	Prompt: ! Line Location: SET+15
Function Call: WRITE	Prompt: !,"Another user is editing this patient data." Line Location: SET1+1
Function Call: WRITE	Prompt: !! Line Location: CONT+1
Function Call: WRITE	Prompt: !!?5,"Something is wrong with database!! - See Site Manager" Line Location: ER+1
Function Call: WRITE	Prompt: !?4,"State Death Cert: ",ONCSDC(160,D0,19.1) Line Location: WRTSDC+3

FileNo	Call Tags
^ONCO(160 - [#160]	Classic Fileman Calls, GET1^DIQ
^ONCO(165.5 - [#165.5]	Classic Fileman Calls