©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMPLENFM ; SLC/MKB/KER -- Problem List Enc Form utilities ;11/20/12 15:03
Source file <GMPLENFM.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | $$STATCHK^ICDAPIU $$ICDDX^ICDCODE |
| Lexicon Utility | 2 | CONFIG^LEXSET $$STATCHK^LEXSRC2 |
| Problem List | 2 | GETPLIST^GMPLMGR1 ($$EXTDT,$$PROBTEXT)^GMPLX |
| Kernel | 1 | $$DT^XLFDT |
| VA Fileman | 1 | ^DIC |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | ORWPCE ORWPCE1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACTIVE | ; List of Active Problems for DFN
; Input variables: ; DFN Patient ID (Required) ; [GMPLINDT] Date of Interest (Optional - defaults to today) ; This is the date to use for evalutation of the ; Activation status of ICD-9-CM and SNOMED CT codes |
|
| DSELECT | ; List of Active Problems for DFN
; Input variables: ; DFN Patient ID (Required) ; [GMPLINDT] Date of Interest (Optional - defaults to today) ; This is the date to use for evalutation of the ; Activation status of ICD-9-CM and SNOMED CT codes |
|
| TXFCTR(GMPL1) | ;Determine Treatment Factor, if any
|
|
| SELECT | ; Select Common Problems
; Sets Global Array: ; ^TMP("IB",$J,"INTERFACES","GMP SELECT CLINIC COMMON PROBLEMS") ; Piece 1: Pointer to Clinical Lexicon ; 2: Problem Text ; 3: ICD Code (null if unknown) |
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | SELECT+10 |
| GETPLIST^GMPLMGR1 | ACTIVE+38, DSELECT+38 |
| $$EXTDT^GMPLX | ACTIVE+53, DSELECT+55 |
| $$PROBTEXT^GMPLX | ACTIVE+50, DSELECT+51 |
| $$STATCHK^ICDAPIU | ACTIVE+43, ACTIVE+47, DSELECT+44, DSELECT+48 |
| $$ICDDX^ICDCODE | ACTIVE+43, DSELECT+43 |
| CONFIG^LEXSET | SELECT+7 |
| $$STATCHK^LEXSRC2 | ACTIVE+49, DSELECT+50 |
| $$DT^XLFDT | ACTIVE+35, DSELECT+35 |
| FileNo | Call Tags |
|---|---|
| ^LEX(757.01 - [#757.01] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | ACTIVE+42, ACTIVE+44, ACTIVE+45, DSELECT+42, DSELECT+45, DSELECT+46 |
| ^GMPL(125.99 - [#125.99] | ACTIVE+34, DSELECT+34 |
| ^TMP("IB" | ACTIVE+56*, ACTIVE+57*, SELECT+8!, SELECT+12*, DSELECT+58*, DSELECT+59* |
| Name | Line Occurrences |
|---|---|
| $$TXFCTR | ACTIVE+55, DSELECT+57 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | ACTIVE+42, DSELECT+42 |
| ^(800 | ACTIVE+42, DSELECT+42 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | ACTIVE+32~, ACTIVE+34*, ACTIVE+50*, ACTIVE+56, ACTIVE+57, DSELECT+33~, DSELECT+34*, DSELECT+51*, DSELECT+58, DSELECT+59 |
| CODESTAT | ACTIVE+40~, ACTIVE+42*, ACTIVE+43*, ACTIVE+47*, ACTIVE+49*, ACTIVE+55, DSELECT+40~, DSELECT+42*, DSELECT+44*, DSELECT+48* , DSELECT+50*, DSELECT+57 |
| >> DFN | ACTIVE+34, ACTIVE+56, ACTIVE+57, DSELECT+34 |
| DIC | SELECT+7~, SELECT+9* |
| DIC("A" | SELECT+9* |
| DIC(0 | SELECT+9* |
| GMPARAM | ACTIVE+32~, DSELECT+33~ |
| GMPARAM("QUIET" | ACTIVE+36*, DSELECT+36* |
| GMPARAM("REV" | ACTIVE+36*, DSELECT+36* |
| GMPARAM("VER" | ACTIVE+36*, ACTIVE+51, DSELECT+36*, DSELECT+52 |
| GMPDFN | ACTIVE+33~, ACTIVE+34*, DSELECT+33~, DSELECT+34* |
| GMPDT | ACTIVE+33~, ACTIVE+35*, ACTIVE+43, ACTIVE+47, ACTIVE+49, DSELECT+33~, DSELECT+35*, DSELECT+44, DSELECT+48, DSELECT+50 |
| >> GMPINDT | ACTIVE+35, DSELECT+35 |
| GMPL0 | ACTIVE+40~, ACTIVE+42*, ACTIVE+43, ACTIVE+53, DSELECT+40~, DSELECT+42*, DSELECT+43, DSELECT+55 |
| GMPL1 | ACTIVE+40~, ACTIVE+42*, ACTIVE+51, ACTIVE+53, ACTIVE+55, DSELECT+40~, DSELECT+42*, DSELECT+52, DSELECT+55, DSELECT+57 , TXFCTR~, TXFCTR+3 |
| GMPL800 | ACTIVE+40~, ACTIVE+42*, ACTIVE+48, DSELECT+40~, DSELECT+42*, DSELECT+49 |
| GMPLIST | ACTIVE+32~, ACTIVE+38, DSELECT+33~, DSELECT+38 |
| GMPLIST( | ACTIVE+39, ACTIVE+41, DSELECT+39, DSELECT+41 |
| GMPLVIEW | ACTIVE+32~, ACTIVE+38, DSELECT+33~, DSELECT+38 |
| GMPLVIEW("ACT" | ACTIVE+37*, DSELECT+37* |
| GMPLVIEW("PROV" | ACTIVE+37*, DSELECT+37* |
| GMPLVIEW("VIEW" | ACTIVE+37*, DSELECT+37* |
| GMPTOTAL | ACTIVE+32~, ACTIVE+38, DSELECT+33~, DSELECT+38 |
| ICDC | ACTIVE+40~, ACTIVE+43*, ACTIVE+46*, ACTIVE+52, DSELECT+40~, DSELECT+43*, DSELECT+44, DSELECT+47*, DSELECT+54 |
| ICDI | ACTIVE+40~, ACTIVE+44*, ACTIVE+45, DSELECT+40~, DSELECT+45*, DSELECT+46 |
| ICDMC | ACTIVE+45~*, ACTIVE+46, ACTIVE+47, DSELECT+46~*, DSELECT+47, DSELECT+48 |
| IFN | ACTIVE+32~, ACTIVE+41*, ACTIVE+42, ACTIVE+44, ACTIVE+45, ACTIVE+50, DSELECT+33~, DSELECT+41*, DSELECT+42, DSELECT+45 , DSELECT+46, DSELECT+51, DSELECT+53 |
| NODE | ACTIVE+33~, ACTIVE+34*, ACTIVE+36, DSELECT+33~, DSELECT+34*, DSELECT+36 |
| NUM | ACTIVE+32~, ACTIVE+39*, ACTIVE+41, DSELECT+33~, DSELECT+39*, DSELECT+41 |
| NXTTF | TXFCTR+1~, TXFCTR+3* |
| PROB | ACTIVE+32~, ACTIVE+50*, ACTIVE+51*, ACTIVE+52*, ACTIVE+53*, ACTIVE+54*, ACTIVE+55*, ACTIVE+56, SELECT+7~, SELECT+10* , SELECT+11*, SELECT+12, DSELECT+33~, DSELECT+51*, DSELECT+52*, DSELECT+53*, DSELECT+54*, DSELECT+55*, DSELECT+56*, DSELECT+57* , DSELECT+58 |
| SC | ACTIVE+32~, ACTIVE+53*, ACTIVE+54, DSELECT+33~, DSELECT+55*, DSELECT+56 |
| SCTC | ACTIVE+40~, ACTIVE+48*, ACTIVE+49, ACTIVE+55, DSELECT+40~, DSELECT+49*, DSELECT+50, DSELECT+57 |
| SCTD | ACTIVE+40~, ACTIVE+48*, ACTIVE+55, DSELECT+40~, DSELECT+49*, DSELECT+57 |
| TXFACTOR | TXFCTR+1~, TXFCTR+2*, TXFCTR+3*, TXFCTR+4 |
| U | ACTIVE+36, ACTIVE+43, ACTIVE+45, ACTIVE+48, ACTIVE+51, ACTIVE+52, ACTIVE+53, ACTIVE+54, ACTIVE+55, SELECT+10 , SELECT+11, DSELECT+36, DSELECT+43, DSELECT+46, DSELECT+49, DSELECT+52, DSELECT+53, DSELECT+54, DSELECT+55, DSELECT+56 , DSELECT+57, TXFCTR+3 |
| VHATC | ACTIVE+40~, ACTIVE+48*, ACTIVE+55, DSELECT+40~, DSELECT+49*, DSELECT+57 |
| VHATD | ACTIVE+40~, ACTIVE+48*, ACTIVE+55, DSELECT+40~, DSELECT+49*, DSELECT+57 |
| X | SELECT+7~, SELECT+10 |
| Y | SELECT+7~, SELECT+10 |
| Y(1 | SELECT+11 |