GMPLENFM ; SLC/MKB/KER/TC -- Problem List Enc Form utilities ;06/12/13 09:08
Source file <GMPLENFM.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | ($$CODECS,$$CSI,$$SAB)^ICDEX ($$ICDDATA,$$STATCHK)^ICDXCODE |
| Lexicon Utility | 2 | CONFIG^LEXSET $$STATCHK^LEXSRC2 |
| Problem List | 2 | GETPLIST^GMPLMGR1 ($$EXTDT,$$PROBTEXT)^GMPLX |
| Kernel | 1 | $$DT^XLFDT |
| VA FileMan | 1 | ^DIC |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | ORWPCE ORWPCE1 |
| VistA Integration Adapter | 2 | VIABRPC VIABRPC7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACTIVE | ; List of Active Problems for DFN
; Input variables: ; DFN Patient ID (Required) ; [GMPINDT] 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 |
|
| 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) |
|
| DSELECT | ; List of Active Problems for DFN
; Input variables: ; DFN Patient ID (Required) ; [GMPINDT] 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
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | SELECT+10 |
| GETPLIST^GMPLMGR1 | ACTIVE+39, DSELECT+39 |
| $$EXTDT^GMPLX | ACTIVE+59, DSELECT+60 |
| $$PROBTEXT^GMPLX | ACTIVE+56, DSELECT+56 |
| $$CODECS^ICDEX | ACTIVE+51, DSELECT+51 |
| $$CSI^ICDEX | ACTIVE+44, DSELECT+44 |
| $$SAB^ICDEX | ACTIVE+45, DSELECT+45 |
| $$ICDDATA^ICDXCODE | ACTIVE+46, DSELECT+46 |
| $$STATCHK^ICDXCODE | ACTIVE+47, ACTIVE+53, DSELECT+47, DSELECT+53 |
| CONFIG^LEXSET | SELECT+7 |
| $$STATCHK^LEXSRC2 | ACTIVE+55, DSELECT+55 |
| $$DT^XLFDT | ACTIVE+36, DSELECT+36 |
| FileNo | Call Tags |
|---|---|
| ^LEX(757.01 - [#757.01] | Classic Fileman Calls |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | ACTIVE+33~, ACTIVE+35*, ACTIVE+56*, ACTIVE+62, ACTIVE+63, DSELECT+34~, DSELECT+35*, DSELECT+56*, DSELECT+63, DSELECT+64 |
| CODESTAT | ACTIVE+41~, ACTIVE+43*, ACTIVE+47*, ACTIVE+53*, ACTIVE+55*, ACTIVE+61, DSELECT+41~, DSELECT+43*, DSELECT+47*, DSELECT+53* , DSELECT+55*, DSELECT+62 |
| >> DFN | ACTIVE+35, ACTIVE+62, ACTIVE+63, DSELECT+35 |
| DIC | SELECT+7~, SELECT+9* |
| DIC("A" | SELECT+9* |
| DIC(0 | SELECT+9* |
| GMPARAM | ACTIVE+33~, DSELECT+34~ |
| GMPARAM("QUIET" | ACTIVE+37*, DSELECT+37* |
| GMPARAM("REV" | ACTIVE+37*, DSELECT+37* |
| GMPARAM("VER" | ACTIVE+37*, ACTIVE+57, DSELECT+37*, DSELECT+57 |
| GMPCSYS | ACTIVE+41~, ACTIVE+45*, ACTIVE+46, ACTIVE+61, DSELECT+41~, DSELECT+45*, DSELECT+46, DSELECT+62 |
| GMPDFN | ACTIVE+34~, ACTIVE+35*, DSELECT+34~, DSELECT+35* |
| GMPDT | ACTIVE+41~, ACTIVE+44*, ACTIVE+45, ACTIVE+46, DSELECT+41~, DSELECT+44*, DSELECT+45, DSELECT+46 |
| >> GMPINDT | ACTIVE+36*, ACTIVE+47, ACTIVE+53, ACTIVE+55, DSELECT+36*, DSELECT+47, DSELECT+53, DSELECT+55 |
| GMPL0 | ACTIVE+41~, ACTIVE+43*, ACTIVE+44, ACTIVE+46, ACTIVE+59, DSELECT+41~, DSELECT+43*, DSELECT+44, DSELECT+46, DSELECT+60 |
| GMPL1 | ACTIVE+41~, ACTIVE+43*, ACTIVE+57, ACTIVE+59, ACTIVE+61, DSELECT+41~, DSELECT+43*, DSELECT+57, DSELECT+60, DSELECT+62 , TXFCTR~, TXFCTR+3 |
| GMPL800 | ACTIVE+41~, ACTIVE+43*, ACTIVE+54, DSELECT+41~, DSELECT+43*, DSELECT+54 |
| GMPL802 | ACTIVE+41~, ACTIVE+43*, ACTIVE+44, ACTIVE+45, DSELECT+41~, DSELECT+43*, DSELECT+44, DSELECT+45 |
| GMPLCPTR | ACTIVE+41~, ACTIVE+44*, ACTIVE+45, ACTIVE+47, DSELECT+41~, DSELECT+44*, DSELECT+45, DSELECT+47 |
| GMPLIST | ACTIVE+33~, ACTIVE+39, DSELECT+34~, DSELECT+39 |
| GMPLIST( | ACTIVE+40, ACTIVE+42, DSELECT+40, DSELECT+42 |
| GMPLVIEW | ACTIVE+33~, ACTIVE+39, DSELECT+34~, DSELECT+39 |
| GMPLVIEW("ACT" | ACTIVE+38*, DSELECT+38* |
| GMPLVIEW("PROV" | ACTIVE+38*, DSELECT+38* |
| GMPLVIEW("VIEW" | ACTIVE+38*, DSELECT+38* |
| GMPTOTAL | ACTIVE+33~, ACTIVE+39, DSELECT+34~, DSELECT+39 |
| ICDC | ACTIVE+41~, ACTIVE+46*, ACTIVE+47, ACTIVE+52*, ACTIVE+58, DSELECT+41~, DSELECT+46*, DSELECT+47, DSELECT+52*, DSELECT+59 |
| ICDCSPTR | ACTIVE+49~, ACTIVE+51*, ACTIVE+53, DSELECT+49~, DSELECT+51*, DSELECT+53 |
| ICDI | ACTIVE+41~, ACTIVE+48*, ACTIVE+50, DSELECT+41~, DSELECT+48*, DSELECT+50 |
| ICDM0 | ACTIVE+49~, ACTIVE+50*, ACTIVE+51, DSELECT+49~, DSELECT+50*, DSELECT+51 |
| ICDMC | ACTIVE+49~, ACTIVE+50*, ACTIVE+51, ACTIVE+52, ACTIVE+53, DSELECT+49~, DSELECT+50*, DSELECT+51, DSELECT+52, DSELECT+53 |
| ICDMCSYS | ACTIVE+49~, ACTIVE+51*, DSELECT+49~, DSELECT+51* |
| ICDMDT | ACTIVE+49~, ACTIVE+51*, DSELECT+49~, DSELECT+51* |
| IFN | ACTIVE+33~, ACTIVE+42*, ACTIVE+43, ACTIVE+48, ACTIVE+50, ACTIVE+56, DSELECT+34~, DSELECT+42*, DSELECT+43, DSELECT+48 , DSELECT+50, DSELECT+56, DSELECT+58 |
| NODE | ACTIVE+34~, ACTIVE+35*, ACTIVE+37, DSELECT+34~, DSELECT+35*, DSELECT+37 |
| NUM | ACTIVE+33~, ACTIVE+40*, ACTIVE+42, DSELECT+34~, DSELECT+40*, DSELECT+42 |
| NXTTF | TXFCTR+1~, TXFCTR+3* |
| PROB | ACTIVE+33~, ACTIVE+56*, ACTIVE+57*, ACTIVE+58*, ACTIVE+59*, ACTIVE+60*, ACTIVE+61*, ACTIVE+62, SELECT+7~, SELECT+10* , SELECT+11*, SELECT+12, DSELECT+34~, DSELECT+56*, DSELECT+57*, DSELECT+58*, DSELECT+59*, DSELECT+60*, DSELECT+61*, DSELECT+62* , DSELECT+63 |
| SC | ACTIVE+33~, ACTIVE+59*, ACTIVE+60, DSELECT+34~, DSELECT+60*, DSELECT+61 |
| SCTC | ACTIVE+41~, ACTIVE+54*, ACTIVE+55, ACTIVE+61, DSELECT+41~, DSELECT+54*, DSELECT+55, DSELECT+62 |
| SCTD | ACTIVE+41~, ACTIVE+54*, ACTIVE+61, DSELECT+41~, DSELECT+54*, DSELECT+62 |
| TXFACTOR | TXFCTR+1~, TXFCTR+2*, TXFCTR+3*, TXFCTR+4 |
| U | ACTIVE+37, ACTIVE+44, ACTIVE+45, ACTIVE+46, ACTIVE+50, ACTIVE+51, ACTIVE+54, ACTIVE+57, ACTIVE+58, ACTIVE+59 , ACTIVE+60, ACTIVE+61, SELECT+10, SELECT+11, DSELECT+37, DSELECT+44, DSELECT+45, DSELECT+46, DSELECT+50, DSELECT+51 , DSELECT+54, DSELECT+57, DSELECT+58, DSELECT+59, DSELECT+60, DSELECT+61, DSELECT+62, TXFCTR+3 |
| VHATC | ACTIVE+41~, ACTIVE+54*, ACTIVE+61, DSELECT+41~, DSELECT+54*, DSELECT+62 |
| VHATD | ACTIVE+41~, ACTIVE+54*, ACTIVE+61, DSELECT+41~, DSELECT+54*, DSELECT+62 |
| X | SELECT+7~, SELECT+10 |
| Y | SELECT+7~, SELECT+10 |
| Y(1 | SELECT+11 |