Routine: BDGPCCE2

Information

BDGPCCE2 ; IHS/ANMC/LJF - PULL UP ALL I VISITS ;

Source Information

Source file <BDGPCCE2.m>

Call Graph

Call Graph Total: 16

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGPCCEL

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+4
Routine Call	DIE Line Location: EDITCAT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNVSIT - [#9000010]	Classic Fileman Calls, GET1^DIQ
^AUPNVINP - [#9000010.02]	GET1^DIQ

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGPCCE2

Call Graph Total: 16

Caller Graph Total: 1