Routine: ONCACD1

Information

ONCACD1 ;HINES OIFO/GWB - Extract NAACCR/STATE/VACCR data ;09/06/11

Source file <ONCACD1.m>

Name	Comments	DBIA/ICR reference
EN1	;Entry point
SETUP	;Loop through appropriate cross-reference
LOOP	;Apply extract selection rules
OUTPUT(IEN,EXTRACT,JUMP,OUT)	;Output
HEAD(IEN,OUT)	;Preview End-of-Page
HEADER	;Preview Header
XML21	;P14
DISPLAY(DEVICE,WRITE,OUT)	; Display preview
DATA(IEN,ACD160,STRING,DEFAULT,FILL,LEN,JUMP,NODE,POS)	;Compute extract value
XFILL	;Truncate or pad xml fields
STRIP	;replace special characters
RCRS	;RCRS exeption rules
CLEANUP	;Cleanup

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(26) Line Location: EN1+9
Function Call: WRITE	Prompt: ! Line Location: LOOP+13
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+1
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"RCRS EXTRACT",?70,"Page: ",PAGE Line Location: HEADER+3
Function Call: WRITE	Prompt: !,$P(^ONCO(160.16,EXTRACT,0),U),?70,"Page: ",PAGE Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"Patient: ",$$GET1^DIQ(160,ACD160,.01,"E") Line Location: HEADER+5
Function Call: WRITE	Prompt: ?55,"SSN: ",$$GET1^DIQ(160,ACD160,2,"E") Line Location: HEADER+6
Function Call: WRITE	Prompt: !,"Col#",?5,"Item name",?51,"Value",! Line Location: HEADER+7
Function Call: WRITE	Prompt: "=" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,COL,?5,ITEM Line Location: DISPLAY+8
Function Call: WRITE	Prompt: "." Line Location: DISPLAY+9
Function Call: WRITE	Prompt: BLANK Line Location: DATA+26
Function Call: WRITE	Prompt: DEFAULT Line Location: DATA+34
Function Call: WRITE	Prompt: @DEFAULT Line Location: DATA+35
Function Call: WRITE	Prompt: @DEFAULT Line Location: DATA+36
Function Call: WRITE	Prompt: ACDANS Line Location: DATA+40
Function Call: WRITE	Prompt: $E(ACDANS,1,LEN) Line Location: DATA+41
Function Call: WRITE	Prompt: ACDANS Line Location: DATA+46
Function Call: WRITE	Prompt: @STUFF Line Location: DATA+47
Function Call: WRITE	Prompt: ACDANS Line Location: DATA+48

FileNo	Call Tags
^ONCO(160 - [#160]	GET1^DIQ
^ONCO(165.5 - [#165.5]	GET1^DIQ