Routine: ONCOCON

Information

ONCOCON ;Hines OIFO/GWB - VADPT calls ;06/23/10

Source file <ONCOCON.m>

Name	Comments	DBIA/ICR reference
NOK	;NEXT OF KIN
NOK1	;NEXT OF KIN-1
NOK2	;NEXT OF KIN-2 #.2191
CON	;Retrieve Contacts (NOK1 and NOK@)
WT
2	;W !?25,VAOA(10)
3
4
5
6
REL2	;NOK2
REL	;NOK relationship and Name
ADM	;Admission date/Discharge date
A5
A4
SV
WE
NO
INP	;MAS VERSIONS less than 5.0
NOKEO	;COMPUTED EXPRESSION for NOK (160,.214)
SAD	;COMPUTED EXPRESSION for SUSPENSE ADMIT DATE (160,33.1)
SDD	;COMPUTED EXPRESSION for SUSPENSE DISCHARGE DATE (160,33.2)
SEC	;COMPUTED EXPRESSION for SUSPENSE EPISODE OF CARE (160,33.3)
SUS	;SUSPENSE EPISODE OF CARE
LEC	;COMPUTED EXPRESSION for LAST EPISODE of CARE (160,34)
LAD	;COMPUTED EXPRESSION for LAST ADMIT DATE (160,34.1)
LDD	;COMPUTED EXPRESSION for LAST DISCHARGE DATE (160,34.2)
LST	;Get ADMISSION and DISCHARGE data
VP	;Resolve NAME (160,.01) variable pointer
IN5	;Call IN5^VADPT (Inpatient Data [v5.0 and above])
DD	;Format date as mm/dd/yy
EX	;Exit
CLEANUP	;Cleanup

Name	Line Occurrences
Function Call: WRITE	Prompt: !,@SP,NOK,": ",@SP,VAOA(10) Line Location: WT+0
Function Call: WRITE	Prompt: !,@SP,$P(VAOA(9),",",2)_" "_$P(VAOA(9),",") Line Location: 3+0
Function Call: WRITE	Prompt: !,@SP,VAOA(1) Line Location: 4+0
Function Call: WRITE	Prompt: !!?15,"Admission: ",AD_" Discharge: "_XD,! Line Location: WE+0
Function Call: WRITE	Prompt: !,"No admission for ",XD Line Location: NO+0
Function Call: WRITE	Prompt: $P(^(.21),U)_" ("_$P(^(.21),U,2)_")" Line Location: NOKEO+4
Function Call: WRITE	Prompt: "No admission data" Line Location: LEC+2
Function Call: WRITE	Prompt: "Admission: ",AD_" Discharge: "_XD Line Location: LEC+3
Function Call: WRITE	Prompt: "Admission: "_AD_" (Active)" Line Location: LEC+4