GMPLHS ; SLC/MKB/KER/TC - Extract Prob List Health Summary ;11/27/12 09:17
Source file <GMPLHS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETLIST(GMPDFN,STATUS) | ; Define List
|
|
| BUILD | ; Build list for selected patient
; Sets Global Array: ; ^TMP("GMPLHS",$J,STATUS,0) |
|
| GETPROB(IFN) | ; Get problem data and set it to ^TMP array
; Sets Global Arrays: ; ^TMP("GMPLHS",$J,CNT,0) ; Piece 1: Pointer to ICD file #80 ; 2: Internal Date Last Modified ; 3: Facility Name ; 4: Internal Date Entered ; 5: Internal Status (A/I/"") ; 6: Internal Date of Onset ; 7: Responsible Provider Name ; 8: Service Name ; 9: Service Abbreviation ; 10: Internal Date Resolved ; 11: Clinic Name ; 12: Internal Date Recorded ; 13: Problem Term (from Lexicon) ; 14: Exposure String (AO/IR/EC/HNC/MST/CV/SHD) ; 15: SNOMED-CT Concept Code ; 16: SNOMED-CT Preferred Text ; 17: Primary ICD Code ; 18: Primary ICD Description ; 19: VHAT Concept Code ; 20: VHAT Preferred Text ; 21: Date of Interest ; 22: Coding System |
|
| GETCOMM(IFN,CNT) | ; Get Active Comments for a Note
; Sets Global Array: ; ^TMP("GMPLHS",$J,CNT,"C",LOCATION,NOTE NMBR,0) |
|
| SERV(X,SERV) | ; Returns Service Name Abbreviation
|
