Print Page as PDF
Health Summary extract routine for Problem List ICR (1183)

Health Summary extract routine for Problem List    ICR (1183)

Name Value
NUMBER 1183
IA # 1183
DATE CREATED 1995/03/28
CUSTODIAL PACKAGE PROBLEM LIST
CUSTODIAL ISC Salt Lake City
USAGE Controlled Subscription
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE GMPLHS
NAME Health Summary extract routine for Problem List
STATUS Active
DURATION Till Otherwise Agreed
ID GMPLHS
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT VARIABLES
GETLIST(DFN,STATUS)
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input
Patient's internal file number
STATUS Input
A == Active problems I == Inactive problems ALL ==
All problems
TMP('GMPLHS',$J, Output

Problem List will output the following data from the Problem (# 9000011)
file in the following global entries:

^TMP("GMPLHS",$J,STATUS,0)= # problems extracted ^ # problems that exist

^TMP("GMPLHS",$J,CNT,0)= Internal Diagnosis (.01) ^ Internal Date Last
Modified (.03) ^ External Facility Name (.06) ^ Internal Date Entered (.08) ^
Internal Status (.12) ^ Date of Onset (.13) ^ Responsible Provider (1.05) ^
External Service Name (1.06) ^ Service Abbreviation ^ Internal Date Resolved
(1.07) ^ External Clinic Name (1.08) ^ Date Recorded (1.09)  ^ External
Lexicon Problem Text (1.01) ^ Exposure String (AO/IR/EC/HNC/MST/CV/SHD/CL)

^TMP("GMPLHS",$J,CNT,"N")= External Provider Narrative (.06)

^TMP("GMPLHS",$J,CNT,"L")= Internal Lexicon Problem Text (1.01) ^ External
Lexicon Problem Text (1.01)

^TMP("GMPLHS",$J,CNT,"C",Note Facility,Note Number,0)= Note Narrative
(9000011.1111,.03) ^ Internal Date Note Added (9000011.1111,.05) ^ External
Author Name (9000011.1111,.06)

Problems will be ordered by CNT in the same order that Problem List displays
them based on Problem List parameters. Only Active comments will be included.
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
HEALTH SUMMARY Salt Lake City
ORDER ENTRY/RESULTS REPORTING
DATE ACTIVATED 2015/08/12