Routine: BDGPCCEL

Information

BDGPCCEL ; IHS/ANMC/LJF - CODE PCC VISIT LISTING ; [ 08/12/2002 10:14 AM ]

Source Information

Source file <BDGPCCEL.m>

Call Graph

Call Graph Total: 24

Package	Total	Call Graph
IHS Changes To ADT	5	PAT^BDGCRB ($$CONF,$$READ,MSG,PAUSE,SETPT)^BDGF $$HRCN^BDGF2 ^BDGPCCE1 EN^BDGPCCE2
Patient Care Component	5	^APCDEA3 ^APCDEIN EN1^APCDPL ^APCDVCHK ^APCDVD
Registration	5	ASK^DGPMEX ENEX^DGPMV20 EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
VA Fileman	3	^DIC ^DIE $$GET1^DIQ
IHS Patient	2	KILL^AUPNPAT MOD^AUPNVSIT
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To Scheduling	1	$$DIV^BSDU
IHS VA Utilities	1	EN^XBVK

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGPCCE

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;EP; return from protocol & rebuild list
ALL	;EP; Called by Display All Data protocol (BDG IC PCC DISPLAY ALL) ; Also called by BDG VIEW PCC protocol
EN	; -- main entry point for BDG IC CODE ; Assumes DFN and BDGV are set
HDR	; -- header code
EDIT	; update date last edited
SP(N)	; -- SUBRTN to pad N number of spaces
ENDADD
LIST	;EP; Called by List I Visits protocol
ADMIT	;EP; called by Admission Data protocol
MNE	;;
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
INIT	; -- init variables and list array
EXIT	; -- exit code
CHECK(DATE)	;EP; run inpatient edit check ; DATE=1 if check to be run only if updated today ; DATE=0 run check anyway
ASK	;
FASH	;EP; Called by Final A Sheet protocol
ADD	;EP; called by Add/Modify PCC Data protocol
PROB	;EP; Called by Problem List Update protocol
EXPND	; -- expand code
HELP	; -- help code

External References

Name	Field # of Occurrence
^APCDEA3	ASK+18, ASK+29
^APCDEIN	ADD+8
EN1^APCDPL	PROB+2
^APCDVCHK	CHECK+21
^APCDVD	ALL+4
KILL^AUPNPAT	EXIT+12
MOD^AUPNVSIT	EDIT+1
PAT^BDGCRB	FASH+6
$$CONF^BDGF	HDR+2
$$READ^BDGF	ASK+7, ASK+14, ASK+16, ASK+26, FASH+4
MSG^BDGF	INIT+3, ADMIT+4, ADMIT+5, ADMIT+10, ADMIT+11, ADMIT+16, ADMIT+17, ADMIT+23, ADMIT+24, CHECK+14
PAUSE^BDGF	ADMIT+6, ADMIT+12, ADMIT+17, ADMIT+24, FASH+7, CHECK+21
SETPT^BDGF	ADMIT+38
$$HRCN^BDGF2	HDR+4
^BDGPCCE1	INIT+4
EN^BDGPCCE2	LIST+1
$$DIV^BSDU	FASH+4
ASK^DGPMEX	ADMIT+37
ENEX^DGPMV20	ADMIT+37
^DIC	ASK+20
^DIE	ADMIT+18, ADMIT+25, EXIT+8, EXIT+9
$$GET1^DIQ	HDR+4, HDR+8, HDR+11, ADD+5, ADD+6, FASH+4, CHECK+3, CHECK+8, CHECK+12, CHECK+13 , CHECK+19, CHECK+20, EXIT+7, EXIT+9
EN^VALM	EN+3
TERM^VALM0	EN+2, RESET+1
CLEAR^VALM1	EN+2, EN+4
FULL^VALM1	ADMIT+1, ADD+8, FASH+2, CHECK+7
EN^XBVK	ALL+5
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3
Routine Call	DIE Line Location: ADMIT+18 ADMIT+25 EXIT+8 EXIT+9
Routine Call	DIC Line Location: ASK+20

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	ADD+4, CHECK+17
^AUPNVINP - [#9000010.02]	ADMIT+15, ADMIT+19
^AUPNVINP("AD"	HDR+7, ADMIT+9, CHECK+6, EXIT+6
^AUPNVSIT - [#9000010]	ADMIT+22, ADMIT+26
^BDGIC("AV"	EXIT+5
^DGPM - [#405]	ADMIT+31
^DGPM("AVISIT"	ADMIT+3, ADMIT+30, FASH+3
^DISV(	ADMIT+32*
^TMP("BDGPCCE"	INIT+1!, EXIT+12!

Label References

Name	Line Occurrences
$$PAD	HDR+11, CHECK+13, SP+1
$$SP	HDR+2, HDR+4, HDR+5
ASK	ASK+12, ASK+21, ASK+29
CHECK	EXIT+1
EDIT	ADMIT+18, ADMIT+25, ADMIT+37, ENDADD
ENDADD	ASK+8
HDR	RESET+1
INIT	RESET+1
RESET	ADMIT+40, ENDADD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDCAT	ADD+1~, ADD+3*
APCDDATE	ADD+5, CHECK+16~, CHECK+19
APCDLOC	ADD+1~, ADD+6*
APCDLVST	CHECK+16~, CHECK+18*
APCDMNE	ADD+2~, ASK+2!, ASK+15, ASK+22
APCDMNE("NAME"	ASK+15, ASK+22
APCDMODE	ADD+1~, ASK+16, ASK+23, ASK+25, ASK+26, ASK+27
APCDPARM	ADD+1~, ADD+4, CHECK+16~, CHECK+17
APCDPAT	ADD+1~, ADD+3, ALL+2~, ALL+3, CHECK+18*
APCDTYPE	ADD+1~, ADD+6, CHECK+16~, CHECK+20
APCDVLDT	ADD+2~, ADD+5, CHECK+19
APCDVLK	ADD+2~, ADD+3*
APCDVSIT	ADD+1~, ADD+3, ALL+2~, ALL+3, CHECK+16~, CHECK+18*
>> AUPNPAT	ADMIT+38*
AUPNVSIT	EDIT+1~*
BDGA	ADD+2~, ASK+2!, ASK+7
BDGA(1	ASK+3*
BDGA(2	ASK+4*
BDGA(3	ASK+5*
BDGA(4	ASK+6*
BDGBL	ADD+2~, ASK+23*, ASK+25
BDGCODE	ADMIT+35~*
BDGDFN	ADMIT+29~, ADMIT+31*, ADMIT+38
BDGFIN	FASH+1~, FASH+4*, FASH+5, FASH+6
BDGMN	ADD+2~, ASK+7*, ASK+8, ASK+12, ASK+23
BDGV	HDR+7, HDR+11, ADMIT+3, ADMIT+9, ADMIT+22, ADMIT+25, ADMIT+26, ADMIT+30, ADD+3, ADD+5 , ADD+6, ASK+25, ALL+3, FASH+3, EDIT+1, CHECK+3, CHECK+6, CHECK+12, CHECK+13, CHECK+18 , CHECK+19, CHECK+20, EXIT+5, EXIT+6, EXIT+12!
BDGVH	ADMIT+8~, ADMIT+9, ADMIT+15, ADMIT+18, ADMIT+19, CHECK+5~, CHECK+6, CHECK+8
D	PAD~, PAD+2
DA	ADMIT+18!, ADMIT+25!, EXIT+8*
DATE	CHECK~, CHECK+3
DFN	HDR+4, ADMIT+31, ADMIT+32, ADMIT+38*, ADD+3, ALL+3, FASH+6, CHECK+18, EXIT+12!
DGPMAN	ADMIT+29~, ADMIT+31*
DGPMCA	ADMIT+29~, ADMIT+30, ADMIT+31, ADMIT+32, FASH+1~, FASH+3, FASH+6
DGPMEX	ADMIT+29~, ADMIT+30*
DIC	ADD+2~, ASK+20*
DIC(0	ASK+20*
DIE	ADMIT+18!, ADMIT+25!, EXIT+8*
DR	ADMIT+18!, ADMIT+25!, EXIT+8, EXIT+9
DT	CHECK+3, EXIT+8
DUZ	ADMIT+32, EXIT+9
DUZ(2	HDR+4, ADD+4, ADD+6, CHECK+17
ICN	EXIT+4~, EXIT+5*, EXIT+7, EXIT+8, EXIT+9
L	PAD~, PAD+2
N	SP~, SP+1
U	ASK+15, ASK+22, ASK+27
>> VALMBCK	LIST+1, PROB+3, ALL+5, FASH+5, FASH+7, RESET+1, CHECK+22*
VALMCNT	EN+2~, INIT+2*, PROB+1~
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+5*
>> VALMHDR(3	HDR+11*
VH	HDR+1~, HDR+7, HDR+8, EXIT+4~, EXIT+6, EXIT+7
X	HDR+1~, HDR+4, HDR+5, HDR+8, HDR+9, ASK+20, CHECK+5~, CHECK+8, CHECK+9, CHECK+12* , CHECK+13, HELP+1*
Y	HDR+1~, HDR+9, HDR+11, ADD+2~, ASK+14, ASK+15, ASK+21, ASK+22, ASK+25, CHECK+5~ , CHECK+9, CHECK+13*, CHECK+14

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGPCCEL

Call Graph Total: 24

Caller Graph Total: 1