BDGPCCE2 ; IHS/ANMC/LJF - PULL UP ALL I VISITS ;
Source file <BDGPCCE2.m>
Package | Total | Call Graph |
---|---|---|
Registration | 4 | EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2 |
Kernel | 3 | $$FMADD^XLFDT $$REPEAT^XLFSTR DISP^XQORM1 |
Patient Care Component | 3 | ^APCDEKL EN^APCDEL ^APCDVD |
IHS Changes To ADT | 2 | ($$CONF,MSG)^BDGF $$HRCN^BDGF2 |
VA Fileman | 2 | ^DIE $$GET1^DIQ |
IHS Patient | 1 | MOD^AUPNVSIT |
IHS VA Utilities | 1 | EN^XBVK |
Name | Comments | DBIA/ICR reference |
---|---|---|
RESET | ;EP; return from protocol & rebuild list
|
|
VIEWVST | ;EP; called by View Visit protocol
|
|
EN | ;EP -- main entry point for BDG IC I VISITS ;IHS/OIT/LJF 04/14/2006 PATCH 1005
; Assumes DFN and BDGV are set |
|
HDR | ; -- header code
|
|
VFILES(V,ARRAY) | ; find linked v files and counts
|
|
SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
EXPND | ; -- expand code
|
|
EDITCAT | ;EP; called by Edit Service Category protocol
|
|
PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
INIT | ; -- init variables and list array
|
|
EXIT | ; -- exit code
|
|
SET(DATA,NUM,CNT,IEN) | ; put display line into array
|
|
EDITVST | ;EP; called by Edit Visit protocol
|
|
GETVST | ; select visit from list
; returns BDGN |
|
HELP | ; -- help code
|
Name | Field # of Occurrence |
---|---|
^APCDEKL | EDITVST+4 |
EN^APCDEL | EDITVST+4 |
^APCDVD | VIEWVST+4 |
MOD^AUPNVSIT | EDITCAT+4 |
$$CONF^BDGF | HDR+2 |
MSG^BDGF | EN+2 |
$$HRCN^BDGF2 | HDR+4 |
^DIE | EDITCAT+3 |
$$GET1^DIQ | HDR+4, HDR+7, INIT+4, INIT+6, INIT+12, INIT+13, INIT+14, INIT+19, INIT+20 |
EN^VALM | EN+4 |
TERM^VALM0 | EN+3, RESET+1 |
CLEAR^VALM1 | EN+3, EN+5 |
FULL^VALM1 | GETVST+3 |
EN^VALM2 | GETVST+4 |
EN^XBVK | VIEWVST+5 |
$$FMADD^XLFDT | INIT+5 |
$$REPEAT^XLFSTR | PAD+2 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^AUPNVSIT - [#9000010] | Classic Fileman Calls, GET1^DIQ |
^AUPNVINP - [#9000010.02] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVINP("AD" | INIT+6 |
^AUPNVSIT("AA" | INIT+10, INIT+11 |
^DIC - [#1] | VFILES+3, VFILES+4, VFILES+6 |
^TMP("BDGPCCE2" | INIT+1!, INIT+33, SET+2*, SET+3*, EXIT+1!, GETVST+7, GETVST+8, GETVST+9, GETVST+10 |
Name | Line Occurrences |
---|---|
$$PAD | INIT+20, INIT+25, INIT+28, SP+1 |
$$SP | HDR+2, HDR+4, HDR+5, HDR+8, INIT+28, INIT+30 |
GETVST | EDITCAT+2, EDITVST+2, VIEWVST+2 |
HDR | RESET+1 |
INIT | RESET+1 |
RESET | EDITCAT+5, EDITVST+4 |
SET | INIT+25, INIT+30, INIT+31, INIT+33 |
VFILES | INIT+23 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADM | INIT+3~, INIT+4*, INIT+5 |
APCDPAT | EDITVST+1~, EDITVST+3*, VIEWVST+1~, VIEWVST+3* |
APCDVSIT | EDITVST+1~, EDITVST+3*, VIEWVST+1~, VIEWVST+3* |
ARRAY | VFILES~ |
ARRAY( | VFILES+9* |
AUPNVSIT | EDITCAT+1~, EDITCAT+4* |
BDGA | INIT+23!, INIT+24 |
BDGA( | INIT+27, INIT+29 |
BDGN | EDITCAT+1~, EDITCAT+2, EDITCAT+3, EDITCAT+4, EDITVST+1~, EDITVST+2, EDITVST+3, VIEWVST+1~, VIEWVST+2, VIEWVST+3 , GETVST+3*, GETVST+10* |
>> BDGV | HDR+7, INIT+4, INIT+6 |
BEG | INIT+3~, INIT+5*, INIT+8*, INIT+10 |
CNT | SET~, SET+3 |
COUNT | INIT+3~, INIT+16*, INIT+19, INIT+25, INIT+30, INIT+31 |
D | PAD~, PAD+2 |
DA | EDITCAT+1~, EDITCAT+3* |
DATA | SET~, SET+2 |
DATE | INIT+3~, INIT+8*, INIT+10*, INIT+11 |
>> DFN | HDR+4, INIT+10, INIT+11, EDITVST+3, VIEWVST+3 |
DIE | EDITCAT+1~, EDITCAT+3* |
DR | EDITCAT+1~, EDITCAT+3* |
DSC | INIT+3~, INIT+6*, INIT+7*, INIT+8 |
DT | INIT+7 |
DUZ(2 | HDR+4, INIT+14 |
FILE | VFILES+1~, VFILES+2*, VFILES+3*, VFILES+4, VFILES+6 |
>> FIRST | INIT+27*, INIT+28 |
GLOBAL | VFILES+1~, VFILES+4*, VFILES+5*, VFILES+8 |
IEN | VFILES+1~, VFILES+8*, SET~, SET+3 |
L | PAD~, PAD+2 |
LINE | INIT+3~, INIT+19*, INIT+20*, INIT+25, INIT+28*, INIT+29*, INIT+30* |
N | SP~, SP+1 |
NAME | INIT+27*, INIT+29, VFILES+1~, VFILES+6*, VFILES+9 |
NUM | SET~, SET+1*, SET+2, SET+3 |
U | VFILES+6 |
V | VFILES~, VFILES+8 |
>> VALMBCK | EDITCAT+2*, EDITVST+2*, VIEWVST+2*, VIEWVST+5*, RESET+1* |
VALMCNT | EN+3~, INIT+2*, INIT+25, INIT+30, INIT+31, INIT+33 |
>> VALMHDR(1 | HDR+2* |
>> VALMHDR(2 | HDR+5* |
>> VALMHDR(3 | HDR+8* |
>> VALMY | GETVST+5 |
>> VALMY( | GETVST+6 |
VH | HDR+1~ |
VST | INIT+3~, INIT+11*, INIT+12, INIT+13, INIT+14, INIT+19, INIT+20, INIT+23, INIT+25, INIT+30 , INIT+31 |
X | HDR+1~, HDR+4*, HDR+5, HDR+7*, HDR+8, HELP+1*, GETVST+2~, GETVST+6*, GETVST+10 |
>> XQORNOD(0 | GETVST+4 |
Y | HDR+1~, GETVST+2~, GETVST+7*, GETVST+8, GETVST+9, GETVST+10 |
Z | GETVST+2~, GETVST+8*, GETVST+9, GETVST+10 |