| GENERAL DESCRIPTION |
The Health Summary Package desires to set up an
integration agreement with the Problem List Package to access the Problem
(#900011) file. Health Summary needs to check if the Problem List file
contains a specific ICD9 code (diagnosis) for a given patient. The "AC" cross
reference is checked to get problem entries for a patient. DFN is the internal
patient record number. The Diagnosis pointer (1st piece of the 0 node) and
Date Entered (8th piece of the 0 node) are retrieved for each record found.
This is done in the following manner: S GMTSHRFE="" F S
GMTSHRFE=$O(^AUPNPROB("AC",DFN,GMTSHRFE)) Q:'GMTSHRFE S
Y=$P(^AUPNPROB(GMTSHRFE,0),U),GMTSHRID=$P(^(0),U,8),
GMTSHRIC=$P(^ICD9(Y,0),U)_" "
|