GMTSPLSZ ;SLC/SBW - Updated Problem List 2.0 extract routine. in HS namespace ;18/Apr/95
Source file <GMTSPLSZ.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GMPLHS | ;SLC/MKB,DJP,SBW - Extract for Prob List-Health Summary 2.7 ;15/APR/95
|
|
GETLIST(GMPDFN,STATUS) | ; Define list
|
|
BUILD | ; Build list for selected patient
; Returns ^TMP("GMPLHS",$J,STATUS,0) = GMPCNT ^ GMPTOTAL |
|
GETPROB(IFN) | ; Get problem data and set it to ^TMP array
; Returns ^TMP("GMPLHS",$J,CNT,0) ; Returns ^TMP("GMPLHS",$J,CNT,IFN,"N") |
|
GETCOMM(IFN,CNT) | ;Get active comments for a note
; Returns ^TMP("GMPLHS",$J,CNT,"C",LOCATION,NOTE NMBR,0)) |
|
SERV(X,SERV) | ; Return service name abbreviation
|