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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | GETCOMM+4, GETCOMM+6, GETCOMM+7, GETCOMM+8, GETCOMM+10, GETCOMM+11 |
| ^DIC(49 - [#49] | SERV+2 |
| ^GMPL(125.99 - [#125.99] | GETLIST+4 |
| ^TMP("GMPLHS" | GETLIST+2!, BUILD+7!, BUILD+8*, GETPROB+22*, GETPROB+23*, GETCOMM+13* |
| ^VA(200 - [#200] | GETCOMM+13 |
| Name | Line Occurrences |
|---|---|
| $$SERV | GETPROB+17 |
| GETCOMM | GETPROB+24 |
| GETPROB | BUILD+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABBREV | SERV+1~, SERV+2*, SERV+3*, SERV+4 |
| CLIN | GETPROB+4~, GETPROB+19*, GETPROB+22 |
| CNT | GETCOMM~, GETCOMM+13 |
| DA | GETPROB+3~, GETPROB+5*, GETPROB+8, GETPROB+9, GETPROB+10, GETPROB+11, GETPROB+12, GETPROB+13, GETPROB+14, GETPROB+15 , GETPROB+16, GETPROB+17, GETPROB+18, GETPROB+19, GETPROB+20 |
| DIAG | GETPROB+3~, GETPROB+8*, GETPROB+22 |
| DIC | GETPROB+3~, GETPROB+5* |
| DIQ | GETPROB+3~, GETPROB+5* |
| DIQ(0 | GETPROB+5* |
| DR | GETPROB+3~, GETPROB+6* |
| ENTDT | GETPROB+3~, GETPROB+12*, GETPROB+22 |
| GMPARAM | GETLIST+1~ |
| GMPARAM("QUIET" | GETLIST+4* |
| GMPARAM("REV" | GETLIST+4* |
| GMPCNT | BUILD+2~, BUILD+3*, BUILD+7, BUILD+8, GETPROB+21*, GETPROB+22, GETPROB+23, GETPROB+24 |
| GMPDFN | GETLIST~, GETLIST+3 |
| GMPLIST | GETLIST+1~, GETLIST+6 |
| GMPLIST( | BUILD+4, BUILD+5 |
| GMPLVIEW | GETLIST+1~, GETLIST+6 |
| GMPLVIEW("ACT" | GETLIST+5* |
| GMPLVIEW("PROV" | GETLIST+5* |
| GMPLVIEW("VIEW" | GETLIST+5* |
| GMPTOTAL | GETLIST+1~, GETLIST+6, BUILD+8 |
| IFN | BUILD+2~, BUILD+5*, BUILD+6, GETPROB~, GETPROB+5, GETPROB+24, GETCOMM~, GETCOMM+4, GETCOMM+6, GETCOMM+7 , GETCOMM+8, GETCOMM+10, GETCOMM+11 |
| IFN2 | GETCOMM+2~, GETCOMM+5*, GETCOMM+6*, GETCOMM+7, GETCOMM+8, GETCOMM+10, GETCOMM+11 |
| IFN3 | GETCOMM+2~, GETCOMM+9*, GETCOMM+10*, GETCOMM+11 |
| LASTMDT | GETPROB+3~, GETPROB+9*, GETPROB+22 |
| LOC | GETCOMM+2~, GETCOMM+3*, GETCOMM+8*, GETCOMM+13 |
| NARR | GETPROB+3~, GETPROB+10*, GETPROB+23 |
| NODE | GETCOMM+2~, GETCOMM+11*, GETCOMM+12, GETCOMM+13 |
| NUM | BUILD+2~, BUILD+3*, BUILD+4*, BUILD+5 |
| ONSETDT | GETPROB+3~, GETPROB+14*, GETPROB+22 |
| REC | GETPROB+3~ |
| REC(9000011 | GETPROB+8, GETPROB+9, GETPROB+10, GETPROB+11, GETPROB+12, GETPROB+13, GETPROB+14, GETPROB+15, GETPROB+16, GETPROB+17 , GETPROB+18, GETPROB+19, GETPROB+20 |
| RECDT | GETPROB+4~, GETPROB+20*, GETPROB+22 |
| RESDT | GETPROB+4~, GETPROB+18*, GETPROB+22 |
| RPROV | GETPROB+3~, GETPROB+15*, GETPROB+22 |
| SERV | GETPROB+4~, GETPROB+16*, GETPROB+17, GETPROB+22, SERV~, SERV+3 |
| SERVABB | GETPROB+4~, GETPROB+17*, GETPROB+22 |
| SITE | GETPROB+3~, GETPROB+11*, GETPROB+22 |
| STAT | GETPROB+3~, GETPROB+13*, GETPROB+22 |
| STATUS | GETLIST~, GETLIST+5, BUILD+8 |
| U | GETLIST+4, BUILD+8, GETPROB+22, GETCOMM+12, GETCOMM+13, SERV+2 |
| X | SERV~, SERV+2 |
