GMPLUTL3 ; SLC/JST/JVS/TC -- PL Utilities (CIRN) ;16-Sep-2015 16:24;DU
Source file <GMPLUTL3.m>
| Package | Total | Call Graph |
|---|---|---|
| Problem List | 3 | GETPLIST^GMPLMGR1 $$ICDDESC^GMPLUTL2 SCS^GMPLX1 |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 1 | ORWGAPIA |
| Problem List | 1 | GMPLUTL2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MOD(DFN) | ; Return the Date the Patients Problem List was Last Modified
|
|
| CLEAR | ; Set Variables Equal to Null
|
|
| LIST | ; Returns list of Problems for Patient
|
|
| CALL1(GMPLZ) | ; Call 1 - Get Node 1
|
|
| NODE1 | ; Set Node 1 data variables
|
|
| NODE0 | ; Set Node 0 data variables
|
|
| CALL2(GMPLZ) | ; Call 2 - Get both Node 0 and Node 1
|
|
| CALL0(GMPLZ) | ; Call 0 - Get Node 0
|
|
| FileNo | Call Tags |
|---|---|
| ^AUPNPROB - [#9000011] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | CALL0+1, CALL0+2, CALL1+1, CALL1+2, CALL2+1, CALL2+2, NODE0+2, NODE1+2, LIST+32, LIST+49 , LIST+51, LIST+52 |
| ^AUPNPROB("MODIFIED" | MOD+1 |
| ^GMPL(125.99 - [#125.99] | LIST+26, LIST+44 |
| Name | Line Occurrences |
|---|---|
| CLEAR | CALL0+1, CALL0+2, CALL1+1, CALL1+2, CALL2+1, CALL2+2 |
| NODE0 | CALL0+3, CALL2+3 |
| NODE1 | CALL1+3, CALL2+3 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | LIST+32 |
| ^(800 | LIST+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | LIST+24~, LIST+25*, LIST+32*, LIST+44, LIST+45, LIST+53, LIST+54 |
| DFN | MOD~, MOD+1 |
| FAC | LIST+47~, LIST+48*, LIST+49*, LIST+51, LIST+52 |
| GMPARAM | LIST+24~ |
| GMPARAM("QUIET" | LIST+26* |
| GMPARAM("REV" | LIST+26* |
| >> GMPCOMM | LIST+46 |
| >> GMPDFN | LIST+25 |
| >> GMPL( | LIST+44*, LIST+45*, LIST+53* |
| >> GMPL(0 | LIST+54* |
| GMPL0 | LIST+30~, LIST+32*, LIST+33, LIST+34, LIST+41 |
| GMPL1 | LIST+30~, LIST+32*, LIST+35, LIST+44 |
| GMPL800 | LIST+30~, LIST+32*, LIST+40 |
| GMPLCOND | CALL0+1~*, CALL1+1~*, CALL2+1*, NODE1+6*, CLEAR+2* |
| >> GMPLDLM | NODE0+8*, CLEAR+1* |
| >> GMPLICD | NODE0+4*, CLEAR+1* |
| GMPLIST | LIST+24~, LIST+28 |
| GMPLIST( | LIST+29, LIST+31 |
| >> GMPLLEX | NODE1+4*, CLEAR+2* |
| >> GMPLODAT | NODE0+16*, NODE0+18*, CLEAR+1* |
| >> GMPLPNAM | NODE0+6*, CLEAR+1* |
| >> GMPLPRIO | NODE1+14*, CLEAR+2* |
| >> GMPLPRV | NODE1+8*, NODE1+10*, CLEAR+2* |
| >> GMPLSTAT | NODE0+14*, CLEAR+1* |
| >> GMPLTXT | NODE0+12*, CLEAR+1* |
| GMPLVIEW | LIST+24~, LIST+28 |
| GMPLVIEW("ACT" | LIST+27* |
| GMPLVIEW("PROV" | LIST+27* |
| GMPLVIEW("VIEW" | LIST+27* |
| >> GMPLXDAT | NODE1+12*, CLEAR+2* |
| GMPLZ | CALL0~, CALL0+1, CALL0+2, CALL1~, CALL1+1, CALL1+2, CALL2~, CALL2+1, CALL2+2, NODE0+2 , NODE0+12, NODE1+2 |
| GMPLZ0 | NODE0+1~, NODE0+2*, NODE0+4, NODE0+6, NODE0+8, NODE0+14, NODE0+16, NODE0+18, CLEAR+1* |
| GMPLZ1 | NODE1+1~, NODE1+2*, NODE1+4, NODE1+6, NODE1+8, NODE1+10, NODE1+12, NODE1+14, CLEAR+2* |
| >> GMPSTAT | LIST+27 |
| GMPTOTAL | LIST+24~, LIST+28 |
| ICD | LIST+30~, LIST+33*, LIST+41, LIST+44 |
| ICDD | LIST+30~, LIST+41*, LIST+45 |
| IFN | LIST+30~, LIST+31*, LIST+32, LIST+36, LIST+38, LIST+44, LIST+49, LIST+51, LIST+52 |
| LASTMOD | LIST+30~, LIST+33*, LIST+44 |
| >> NARR | LIST+38*, LIST+39*, LIST+44 |
| NIFN | LIST+47~, LIST+50*, LIST+51*, LIST+52 |
| NOTE | LIST+47~, LIST+52*, LIST+53 |
| NOTECNT | LIST+47~, LIST+48*, LIST+53* |
| NUM | LIST+24~, LIST+29*, LIST+31 |
| ONSET | LIST+30~, LIST+34*, LIST+44 |
| SC | LIST+30~, LIST+35*, LIST+44 |
| SCS | LIST+30~, LIST+36 |
| SCS(3 | LIST+36 |
| SCTC | LIST+30~, LIST+40*, LIST+41, LIST+44 |
| SCTD | LIST+30~, LIST+40*, LIST+41, LIST+44 |
| SP | LIST+30~, LIST+36*, LIST+44 |
| ST | LIST+30~, LIST+34*, LIST+44 |
| U | NODE0+4, NODE0+6, NODE0+8, NODE0+14, NODE0+16, NODE0+18, NODE1+4, NODE1+6, NODE1+8, NODE1+10 , NODE1+12, NODE1+14, LIST+26, LIST+33, LIST+34, LIST+35, LIST+40, LIST+41, LIST+44, LIST+52 |