| HSCP |
The Health Summary application needs permission to
use the entry point HSCP^DVBCHS0(PATPTR,INVBEGDT,INVENDDT,OUTCODE,ARRAY) in
order to extract compensation and pension (C & P) information from the 2507
EXAM (#396.4) and 2507 REQUEST (#396.3) files.
Entry Point
-----------
HSCP^DVBCHS0(PATPTR,INVBEGDT,INVENDDT,OUTCODE,ARRAY)
Input
-----
PATPTR - Pointer to PATIENT file (#2)
INVBEGDT - Beginning date in inverse FileMan format
- Defaults to one year before today
INVENDDT - Ending date in inverse FileMan format
- Defaults to today
OUTCODE - Flag indicating which optional nodes to return
0 = Do not return any optional nodes
1 = Node 1 should also be returned
2 = Node 2 should also be returned
3 = Nodes 1 & 2 should also be returned (default)
ARRAY - Where to store output (full global reference)
- Defaults to ^TMP("DVBC",$J)
Ouptput
-------
ARRAY(InvExDt,Type,0) = Code ^ DATE OF EXAM [.06]
^ EXAM TYPE [.03] ^ EXAMINING PHYSICIAN [.07]
^ PRIORITY OF EXAM [396.3;9]
ARRAY(InvExDt,Type,1) = ROUTING LOCATION [396.3;24] <--
^ OWNER DOMAIN [396.3;28] ^ TRANSFERRED OUT TO [62]
ARRAY(InvExDt,Type,2) = REQUEST STATUS [396.3;17] <--
^ APPROVED BY [396.3;25] ^ APPROVAL DATE/TIME [396.3;26]
ARRAY(InvExDt,Type,"RES",0) = Number of lines in EXAM RESULTS
ARRAY(InvExDt,Type,"RES",X) = Line X of EXAM RESULTS [70]
Subscripts:
InvExDt - Inverse FileMan date of DATE OF EXAM [.06]
Type - Poiner value of EXAM TYPE [.03]
Code used as follows:
1 = Exam was performed locally
2 = Exam was performed by another facility
3 = Exam was performed locally for another facility
Dates will be in FileMan format, while all other
information will be in external format
With the exception of dates, N/A (not applicable) and
UNKNOWN will be used when appropriate
Optional nodes are marked by an arrow (<--)
Notes
-----
- Output array will be initialized (KILLed)
- Information for an exam is only returned when:
1. The exam status is COMPLETED
2. The status of the request containing the exam is
a) RELEASED TO RO, NOT PRINTED
b) COMPLETED, PRINTED BY RO
c) COMPLETED, TRANSFERRED OUT
- The Priority of Exam codes and text that may be returned are:
'T' FOR TERMINAL
'P' FOR POW
'OS' FOR ORIGINAL SC
'ON' FOR ORIGINAL NSC
'I' FOR INCREASE
'R' FOR REVIEW
'OTR' FOR OTHER
'E' FOR INSUFFICIENT EXAM
'AO' FOR AGENT ORANGE
'BDD' FOR BEN DELIV AT DISCHG
'IDES' FOR DISABILITY EVAL SYS
'QS' FOR QUICK START
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PATPTR |
Input |
Pointer to PATIENT file (#2)
|
INVBEGDT |
Input |
Beginning date in inverse FileMan Format Defaults to
one year before today.
|
INVENDDT |
Input |
Ending date in inverse FileMan format. Defaults to
today
|
OUTCODE |
Input |
Flag indicating which optional nodes to return.
0 = Do not return any optional nodes
1 = Node 1 should also be returned
2 = Node 2 should also be returned
3 = Node 1 and 2 should also be returned (default)
|
ARRAY |
Both |
Where to store output (full global reference).
Defaults to ^TMP("DVBC",$J)
|
ARRAY(InvExDt,Type,0) |
Output |
Node contain the following data:
Code ^ DATE OF EXAM [.06] ^ EXAM TYPE [.03] ^ EXAMINING PHYSICIAN [.07]
^ PRIORITY OF EXAM [396.3;9]
|
ARRAY(InvExDt,Type,1) |
Output |
Node contains the following data:
ROUTING LOCATION [396.3;24] ^ OWNER DOMAIN [396.3;28]
^ TRANSFERRED OUT TO [62]
|
ARRAY(InvExDt,Type,2) |
Output |
Node contains the following data:
REQUEST STATUS [396.3;17] ^ APPROVED BY [396.3;25]
^ APPROVAL DATE/TIME [396.3;26]
|
ARRAY(InExDt,Typ,"RES",0) |
Output |
Node contains the following data:
Number of lines in EXAM RESULTS
|
ARRAY(InExDt,Typ,"RES",X) |
Output |
Node contain the following data:
Line X of the EXAM RESULTS [70].
|
|
|
|
|
