DG10 ;ALB/MRL,DAK,AEG,PHH,TMK,ASMR/JD-LOAD/EDIT PATIENT DATA ; 09/30/15 @ 08:34
Source file <DG10.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 13 | $$ADD^DGADDUTL EN^DGMTCOR EDT^DGMTCOU THRESH^DGMTCOU1 EN^DGMTR EN^DGMTSC ($$LST,$$MTS,EDT)^DGMTU ($$PRFQRY,DISPPRF)^DGPFAPI $$EN^DGPFMPI (EN1,NEW)^DGRP ^DGRPC EN^DGRPD LO^DGUTL |
| VA FileMan | 4 | ^DIC YN^DICN GETS^DIQ ^DIR |
| Enterprise Health Management Platform | 1 | DG^HMPEVNT |
| Income Verification Match | 1 | REG^IVMCQ |
| Master Patient Index VistA | 1 | MPIQ^MPIFAPI |
| 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 |
|---|---|---|
| Registration | 5 | DG LOAD PATIENT DATA DGPREP1 DGREG DGRPTU VAFCMGA |
| Clinical Information Resource Network | 1 | RGEX03 |
| Scheduling | 1 | SCENIA1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;
|
|
| A | ;W !! K VET,DIE,DIC,CARD S DIC=2,DLAYGO=2,DIC(0)="ALEQM" K DIC("S") D ^DIC G Q:Y<0 S (DFN,DA)=+Y,DGNEW=$P(Y,"^",3) K DLAYGO
; DG*5.3*1040 - NEW variable DGTMOT and initialize to 0 to track timeout in address and DGADDRE to track the return value of $$ADD^DGADDUTL |
|
| SKIP | ;
|
|
| HINQ | ;
|
|
| A1 |
|
|
| H | ||
| CK | ||
| EMBOS | ;W ! D EMBOS^DGQEMA G A
|
|
| Q | ||
| MT(DFN) | ; Check if user requires a means test. Ask user if they want to proceedif
; one is required |
|
| WARNING | ;
|
|
| PAUSE | ;
|
|
| OKTOCONT(Y) | ;
|
|
| OKQ | ||
| CP | ;If not (autoexempt or MTested) & no CP test this year then
|
|
| QTCP | ||
| T | ;
|
|
| T59(A,B) | ;Get all the demographics that are supposed to trigger an unsolicited update
|
|
| T60(A,B,C) | ;Compare the before and after arrays to see if any of the considerd demographics
|
|
| RPOUT | ; Entry point if user timeout out
|
| Name | Field # of Occurrence |
|---|---|
| $$ADD^DGADDUTL | A1+4 |
| EN^DGMTCOR | CP+5 |
| EDT^DGMTCOU | CP+7 |
| THRESH^DGMTCOU1 | CP+7 |
| EN^DGMTR | MT+4 |
| EN^DGMTSC | MT+13 |
| $$LST^DGMTU | MT+9 |
| $$MTS^DGMTU | MT+5 |
| EDT^DGMTU | MT+5 |
| $$PRFQRY^DGPFAPI | A+20 |
| DISPPRF^DGPFAPI | A+20 |
| $$EN^DGPFMPI | A+21 |
| EN1^DGRP | A1 |
| NEW^DGRP | A+6 |
| ^DGRPC | CK |
| EN^DGRPD | START+4, SKIP+2 |
| LO^DGUTL | START+1 |
| ^DIC | A+3 |
| YN^DICN | A1+2 |
| GETS^DIQ | T59+9 |
| ^DIR | CK+2, PAUSE+2, OKTOCONT+15 |
| DG^HMPEVNT | T+8 |
| REG^IVMCQ | START+6, SKIP+3 |
| MPIQ^MPIFAPI | A+12 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | A+10, HINQ+1 |
| ^DD("DD" | HINQ+7, HINQ+8, OKTOCONT+4 |
| ^DG(43 - [#43] | HINQ+1, CP+3 |
| ^DGMT(408.31 - [#408.31] | MT+11 |
| ^DPT - [#2] | A+6, HINQ+6 |
| ^XUSEC("SCENI MEANS TEST EDIT" | OKTOCONT+7 |
| Name | Line Occurrences |
|---|---|
| $$OKTOCONT | MT+12 |
| $$T60 | T+8 |
| @( | HINQ+9 |
| A | SKIP+2, EMBOS+3, RPOUT+2 |
| A1 | START+2, SKIP+3, H+1 |
| CK | A1 |
| CP | A1, CK |
| EMBOS | A1 |
| H | A1 |
| HINQ | START+7, SKIP+3 |
| MT | A1, CK |
| OKQ | OKTOCONT+7 |
| PAUSE | A+6, WARNING+6, OKTOCONT+9 |
| Q | START+2, A+3, A1, CK+1 |
| QTCP | CP+3 |
| RPOUT | A1, CK |
| SKIP | A+10 |
| T | SKIP+2, EMBOS+2 |
| T59 | A+5, T+7 |
| WARNING | MT+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | A1, A1+2* |
| A | T59~, T59+9, T60~, T60+12, T60+14, T60+16, T60+17 |
| B | T59~, T59+9, T60~, T60+17 |
| C | T60~, T60+11*, T60+17* |
| CARD | A+3! |
| >> DA | A+3*, A+6*, A1 |
| DFN | START+6, A+3*, A+5, A+6, A+12, A+20, A+21, SKIP+3, HINQ+4, HINQ+6 , A1, A1+4, CK, MT~, MT+5, MT+9, CP+7, T+7, T+8 |
| >> DFN1 | CP+4 |
| DGADDRE | A+2~*, A1, A1+4* |
| DGDA | T+6~, T+8* |
| >> DGEDCN | CK* |
| DGELVER | SKIP+2*, Q! |
| >> DGER | CK+2 |
| DGFIELD | T+6~, T+8 |
| DGFILE | T+6~, T+8* |
| DGIB | CP+2~ |
| DGIBDT | CP+2~, CP+4*, CP+7 |
| >> DGMT0 | MT+11* |
| >> DGMTACT | MT+13* |
| >> DGMTCOR | CP+6*, CP+7 |
| >> DGMTDT | MT+11*, MT+12 |
| DGMTI | MT+8~, MT+9*, MT+10, MT+11, MT+13* |
| >> DGMTROU | MT+13* |
| >> DGMTYPT | MT+13* |
| DGNEW | A+3*, A+5, A+6, A+17, A1+1, A1+3, Q!, T+5 |
| DGNOCOPF | CP+6, CP+8! |
| DGNOIVMUPD | A+15~, A+16* |
| >> DGPLOC | START+2 |
| >> DGPRFLG | START+2, A1, CK+1 |
| DGREQF | MT+3~, MT+5 |
| DGROUT | HINQ+2~, HINQ+3*, HINQ+9 |
| DGRP | HINQ+5~ |
| DGRP( | HINQ+6*, HINQ+7, HINQ+8 |
| DGRPOUT | START+2, START+5, SKIP+2!, A1, CK, RPOUT+1* |
| DGRPV | A1*, Q! |
| DGTMOT | A+2~*, Q! |
| DGX | CP+2~ |
| DIC | A+3!*, Q! |
| DIC("S" | A+3! |
| DIC(0 | A+3* |
| DIE | A+3! |
| DIR | CK+2!, PAUSE+1~, OKTOCONT+2~ |
| DIR("A" | CK+2*, PAUSE+2*, OKTOCONT+12* |
| DIR("B" | OKTOCONT+13* |
| DIR(0 | CK+2*, PAUSE+2*, OKTOCONT+14* |
| DIRUT | CP+2~ |
| DIV | MT+3~, CP+2~ |
| DLAYGO | A+3! |
| DT | MT+5, CP+4, CP+7 |
| DTOUT | CP+2~ |
| DUZ | OKTOCONT+7 |
| F | T60+10~, T60+11*, T60+12, T60+14, T60+16, T60+17*, T60+18 |
| FLDS | T59+4~, T59+5*, T59+6*, T59+7*, T59+8*, T59+9 |
| INS | T59+4~ |
| MPIFRTN | A+11!, A+13! |
| >> SCINF("ENCOUNTER" | MT+9 |
| >> SDIEMM | A1, CK+1, MT+2, MT+7, OKTOCONT+7 |
| U | HINQ+1, MT+5, MT+10, CP+3 |
| VET | A+3!, A+6*, Q! |
| X | A+10~*, HINQ+1*, HINQ+3, HINQ+5~, HINQ+6*, Q!, CP+2~, T60+10~, T60+15*, T60+16* , T60+17 |
| Y | A+3, A+6~, HINQ+1*, HINQ+5~, HINQ+7*, HINQ+8*, HINQ+9!, Q!, OKTOCONT~, OKTOCONT+5 , OKTOCONT+10*, OKQ, T60+10~, T60+13*, T60+14*, T60+16, T60+17 |
| Z | Q!, T60+10~, T60+11*, T60+12*, T60+14, T60+16, T60+17 |
| Name | Field # of Occurrence |
|---|---|
| $T(DG^HMPEVNT | T+8 |
