WVUTL1A ;HCIOFO/JR,FT - Continuation of ^WVUTL1 (Utilities) ;07/20/2015 11:12
Source file <WVUTL1A.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 5 | DD^%DT (C,NOW)^%DTC ($$EXTERNAL,$$VFIELD)^DILFD $$GET1^DIQ EN^DIQ1 |
| Registration | 1 | $$GETSTAT^DGMSTAPI |
| Scheduling | 1 | $$OUTPTPR^SDUTL3 |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRIOR() | ;EP
|
|
| PRIOR1() | ;EP
|
|
| NTPROC() | ;EP
|
|
| PROC() | ;EP
|
|
| PROC1() | ;EP
|
|
| PROVI(DFN) | ;
|
|
| SCR(X) | ;
|
|
| QUAD(X) | ;
|
|
| REF | ;
|
|
| FAC | ||
| RAXS(DA) | ;
|
|
| FACIL(DFN,TYP) | ;Gets Treatment Facility, if typ="C" for Cervix, "B" for Breast
|
|
| MST(WVDFN) | ;Gets Military Sexual Trauma
|
|
| SC(WVJ,WVFN) | ;Screen called from File 790.02 to elim. inactive from selectable
|
|
| LOOK(WVJ) | ;Display select fields with lookup on 790, not file#2 Identif.
|
|
| LOOKL(WVJ) | ;
|
|
| RUNDT(WVY) | ;Get and format run date for various reports
; Center when WVY="C" |
|
| LINE | ; Called from the WV LINE FOR MENUS option. That option is merely a
; place holder in the menu and used for visual purposes. This is ; entry point does nothing. |
|
| VET(DFN) | ; Check if patient is a veteran.
|
|
| CST(WVDFN) | ; Return Civilian Sexual Trauma value
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^WV(790 - [#790] | Classic Fileman Calls, GET1^DIQ |
| ^WV(790.404 - [#790.404] | EXTERNAL^DILFD, VFIELD^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PROVI+4 |
| ^WV( | SC+4 |
| ^WV(790 - [#790] | FAC+3, FACIL+4 |
| ^WV(790.07 - [#790.07] | SCR+2, REF+3, REF+7*, REF+8! |
| ^WV(790.1 - [#790.1] | PROC+5, PROC+6, PROC+12, RAXS+3 |
| ^WV(790.2 - [#790.2] | PROC+8, PROC+9, LOOKL+8 |
| ^WV(790.3 - [#790.3] | LOOKL+3, LOOKL+4 |
| ^WV(790.4 - [#790.4] | PRIOR+7, PRIOR+8, NTPROC+5 |
| ^WV(790.404 - [#790.404] | PRIOR1+9, PRIOR1+10, PRIOR1+14 |
| Name | Line Occurrences |
|---|---|
| $$PRIOR1 | PRIOR+10 |
| $$PROC | NTPROC+6, PROC1+5 |
| $$PROVI | FAC+4 |
| $$VET | MST+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | RUNDT+2~, RUNDT+4 |
| B | REF+1~, REF+5*, REF+6 |
| CN | QUAD+2~*, QUAD+4*, QUAD+5*, QUAD+6* |
| CN( | QUAD+4, QUAD+6 |
| CN("LL" | QUAD+3* |
| CN("LR" | QUAD+3* |
| CN("UL" | QUAD+3* |
| CN("UR" | QUAD+3* |
| CNT | QUAD+2~, QUAD+6* |
| DA | PRIOR+6, PRIOR+7, PRIOR+8, NTPROC+5, PROC1+4, REF+2, RAXS~, RAXS+2, RAXS+3, LOOK+2~ , LOOK+3* |
| DFN | PROVI~, PROVI+3, PROVI+4, PROVI+6, FACIL~, FACIL+3, FACIL+4, VET~, VET+2 |
| DIC | LOOK+2~, LOOK+3* |
| DIQ | LOOK+2~, LOOK+3* |
| DIQ(0 | LOOK+3* |
| DR | LOOK+2~, LOOK+4* |
| DT | SC+5, LOOKL+2 |
| L | REF+1~, REF+4*, REF+6 |
| R | PRIOR1+6~, PRIOR1+11*, PRIOR1+12*, PRIOR1+13*, PRIOR1+15, PRIOR1+16, PRIOR1+17 |
| TEST | QUAD+2~, QUAD+3*, QUAD+6*, QUAD+9*, QUAD+10 |
| TYP | FACIL~, FACIL+5 |
| U | PRIOR+8, PRIOR1+10, PRIOR1+14, NTPROC+5, PROC+6, PROC+9, PROC+12, PROVI+4, PROVI+6, SCR+2 , REF+3, FAC+4, RAXS+6, FACIL+5, MST+4, SC+4, LOOKL+4, LOOKL+8 |
| WVACT | REF+7, REF+8, REF+9! |
| WVDFN | FAC+2, FAC+3, FAC+4, MST~, MST+1, MST+3, MST+6, CST~, CST+1 |
| WVDT | LOOKL+1~, LOOKL+4*, LOOKL+5, LOOKL+6*, LOOKL+9 |
| WVDTS | LOOKL+1~, LOOKL+2*, LOOKL+5 |
| WVETERAN | VET+1~, VET+2*, VET+3 |
| WVFN | SC~, SC+4 |
| WVINACT | SC+3~, SC+4*, SC+5 |
| WVJ | SC~, SC+4, LOOK~, LOOK+1, LOOK+3, LOOK+5*, LOOK+7, LOOKL~, LOOKL+3, RUNDT+2~ , RUNDT+7*, RUNDT+8*, RUNDT+9 |
| WVJAR | LOOK+6! |
| WVJAR(790 | LOOK+5 |
| >> WVJBFAC | FAC+1*, FAC+4*, FAC+5* |
| >> WVJCFAC | FAC+1*, FAC+4*, FAC+6* |
| WVJJ0 | RAXS+1~, RAXS+3*, RAXS+4, RAXS+5, RAXS+6 |
| >> WVJOPEN | SC+2 |
| >> WVJPCP | FAC+1*, FAC+4* |
| >> WVJRNOW | RUNDT+3, RUNDT+7*, RUNDT+8* |
| WVJX | SCR+2*, SCR+3, QUAD+2~*, QUAD+4*, QUAD+5*, QUAD+7*, QUAD+8*, QUAD+9 |
| WVMARK | LOOKL+1~, LOOKL+5*, LOOKL+10 |
| WVMST | MST+2~, MST+3*, MST+4*, MST+5*, MST+6*, MST+7 |
| WVP | LOOKL+1~, LOOKL+4*, LOOKL+8*, LOOKL+9 |
| WVX | LOOKL+1~, LOOKL+3*, LOOKL+4 |
| WVY | PROC+3~, PROC+6*, PROC+7, PROC+8, PROC+9, LOOKL+1~, LOOKL+4*, RUNDT~, RUNDT+8 |
| WVYY | PROC+3~*, PROC+5, PROC+7, PROC+8 |
| X | PRIOR+5~, PRIOR+8*, PRIOR+9, PRIOR1+7, PRIOR1+8, PRIOR1+9, PRIOR1+10, PRIOR1+14, NTPROC+4~, NTPROC+5* , PROC+4, PROC+5, PROC+6, PROC+12, PROC1+4~*, PROVI+4~*, PROVI+5*, PROVI+6*, PROVI+7*, PROVI+8 , SCR~, SCR+1, SCR+2, QUAD~, QUAD+1, QUAD+2, QUAD+6, REF+1~, REF+2*, REF+3* , REF+6*, REF+7, REF+8, FAC~, FAC+3*, FAC+4, FACIL+1~, FACIL+4*, FACIL+5, MST+2~ , LOOKL+1~, LOOKL+2 |
| X1 | LOOKL+1~, LOOKL+2* |
| X2 | LOOKL+1~, LOOKL+2* |
| >> XQY0 | SC+1 |
| Y | PRIOR1+6~, PRIOR1+10*, PRIOR1+11, PRIOR1+13, PROC+3~, PROC+12*, PROC+13*, PROC+14, PROC+15, REF+1~ , REF+3*, REF+7, REF+8, FAC~, FACIL+1~, FACIL+2*, FACIL+3, FACIL+5*, FACIL+6*, FACIL+7 , LOOK+2~, LOOKL+1~, LOOKL+6*, RUNDT+2~, RUNDT+4*, RUNDT+5*, RUNDT+6*, RUNDT+7 |
| Z | PRIOR1+6~, PRIOR1+14*, PRIOR1+15, PRIOR1+16, PROC+3~, PROC+9*, PROC+14, PROC+15 |