ONCACD0 ;HINES OIFO/GWB - NAACCR extract driver ;09/22/11
Source file <ONCACD0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1(DEVICE,STEXT) | ;Entry point
|
|
EN2 | ||
GETREC(EXTRACT,OUT) | ;Select VACCR, STATE record layout
|
|
GETHOSP() | ;Facility Identification Number (FIN)
|
|
GETDXH(DXH) | ;INSTITUTION ID NUMBER (160.1,27)
|
|
RQRS(SDT,EDT,DATE,OUT) | ;Process RCRS data
|
|
GETDT(SDT,EDT,DATE,OUT) | ; Select a date range
|
|
DCLC | ||
ACJ | ||
DATEDX(SDT,EDT,DATE,OUT) | ;Select DATE DX range
|
|
PRINT(DEVICE,OUT) | ;Capture output data
|
|
EXIT | ;Exit
|
|
EX | ||
DEVICE(DEVICE,OUT) | ;Select output device
|
|
VERIFY(STAT,DATE,SDT,EDT,STEXT,YESNO,OUT) | ;Verify settings
|
|
GETDATE(ONCDT,DATE1,OUT) | ;Select Diagnosis Year
|
|
ACCN | ;Accession Number
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ONCO(160.1 - [#160.1] | GET1^DIQ |
^ONCO(160.19 - [#160.19] | GET1^DIQ |
^ONCO(165.5 - [#165.5] | Classic Fileman Calls |