Routine: BVPRP

Information

BVPRP ; IHS/ITSC/LJF - RESULTS & PROFILES SUBMENU ;

Source file <BVPRP.m>

Package	Total	Call Graph
Lab Service	6	R^LRAPCUM (OERR,SET)^LRAPS3 DEV^LRBLPBR END^LRDPA V^LRU DT^LRX
Registration	4	PID^VADPT EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
Radiology Nuclear Medicine	3	ENDIS^RAORD2 OERR^RAORDQ ^RAPTLU
VA Fileman	3	IX^DIC EN1^DIP $$GET1^DIQ
IHS View Patient Record	2	SETPT^BVPMAIN ($$CONFID,$$HRCN,$$STATUS,$$USER,MSG,PAUSE)^BVPU
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	1	EN^BDGPI
IHS Patient Registration	1	D^AGCHLB
IHS VA Utilities	1	ENP^XBDIQ1

Name	Comments	DBIA/ICR reference
RESET	;EP -- update display array
SURG	;EP; called by Surgical Pathology Report protocol
EN	;EP -- main entry point for list template BVP OERR
HDR	;EP -- header code
CYTO	;EP; called by Cytology Report protocol
ERINQ	;EP called by ER Visit Summary protocol
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	;EP -- expand code
RAREQ	;EP; called by Radiology Request Details protocol
LABEL	;EP; called by Chart Labels protocol
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
INIT	;EP -- init variables and list array
EXIT	;EP -- exit code
BBANK	;EP; called by Blood Back Report protocol
RAPROF	;EP; called by Radiology Profile protocol
PATINQ	;EP; called by Patient Inquiry protocol
HELP	;EP -- help code

Name	Field # of Occurrence
D^AGCHLB	LABEL+4
EN^BDGPI	PATINQ+2
SETPT^BVPMAIN	RESET+2, LABEL+1, ERINQ+1, PATINQ+1, BBANK+4
$$CONFID^BVPU	INIT+3
$$HRCN^BVPU	INIT+6
$$STATUS^BVPU	INIT+10
$$USER^BVPU	INIT+3
MSG^BVPU	HELP+1
PAUSE^BVPU	LABEL+4, ERINQ+3, ERINQ+7, SURG+7, CYTO+7, BBANK+6, BBANK+8, RAREQ+3, RAREQ+4, RAPROF+4 , RAPROF+5
IX^DIC	ERINQ+5
EN1^DIP	ERINQ+7
$$GET1^DIQ	SURG+4, CYTO+4, BBANK+3
R^LRAPCUM	SURG+7, CYTO+7
OERR^LRAPS3	SURG+3, CYTO+3
SET^LRAPS3	SURG+2, CYTO+2
DEV^LRBLPBR	BBANK+8
END^LRDPA	SURG+5, CYTO+5, BBANK+5
V^LRU	SURG+2, SURG+7, CYTO+2, CYTO+7, BBANK+2, BBANK+8
DT^LRX	SURG+5, CYTO+5, BBANK+5
ENDIS^RAORD2	RAREQ+4
OERR^RAORDQ	RAPROF+5
^RAPTLU	RAPROF+3
PID^VADPT	BBANK+4
EN^VALM	EN+2
TERM^VALM0	EN+1, RESET+3
CLEAR^VALM1	EN+1, EN+3
FULL^VALM1	ERINQ+2, SURG+2, CYTO+2, BBANK+2
ENP^XBDIQ1	INIT+5
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Emergency Room visits on file for patient" Line Location: ERINQ+3
Function Call: WRITE	Prompt: !! Line Location: ERINQ+4
Function Call: WRITE	Prompt: $C(7),!?3,"No blood bank data for ",PNM Line Location: BBANK+6
Function Call: WRITE	Prompt: !?3,"No Radiology Requests on file" Line Location: RAREQ+3
Routine Call	VALM Line Location: EN+2
Routine Call	DIC Line Location: ERINQ+5

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AMERVSIT - [#9009080]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AGCHLB(	LABEL+2!, LABEL+3*
^AMERVSIT("AC"	ERINQ+3
^LR - [#63]	BBANK+6
^LRO(68 - [#68]	SURG+6, CYTO+6
^RAO(75.1 - [#75.1]	RAREQ+3
^TMP("BVPRP"	INIT+2!, INIT+4, INIT+7, INIT+9, INIT+11, INIT+12*, EXIT+1!
^TMP("BVPRP1"	INIT+2!, EXIT+1!

Name	Field # of Occurrence
AGTOT	LABEL+2!, LABEL+3*
BVPN	SURG+1~, CYTO+1~, BBANK+1~
>> BVPSAV	RESET+2, LABEL+1, ERINQ+1, PATINQ+1, SURG+3, CYTO+3, BBANK+3
BVPX	INIT+1~
BVPX(	INIT+6, INIT+8
>> BY	ERINQ+6*
D	ERINQ+4*, PAD~, PAD+2
>> DFN	INIT+5, INIT+6, INIT+10, RESET+2, LABEL+1, LABEL+3, ERINQ+1, ERINQ+3, ERINQ+4, PATINQ+1 , SURG+3, SURG+4, CYTO+3, CYTO+4, BBANK+3*, BBANK+4, RAREQ+2, RAPROF+2
DIC	ERINQ+4, ERINQ+5!, ERINQ+6, SURG+5!, CYTO+5!, BBANK+5!
DIC(0	ERINQ+4*
DUZ	LABEL+2, LABEL+3
>> FLDS	ERINQ+6*
>> FR	ERINQ+6*
HRCN	BBANK+1~
L	PAD~, PAD+2
LINE	INIT+1~, INIT+3, INIT+4, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11
>> LR("S"	BBANK+7*
>> LRAA	SURG+6, CYTO+6
>> LRAA(1	SURG+6, CYTO+6
>> LRDFN	SURG+5, CYTO+5, BBANK+5, BBANK+6
>> LRDPF	SURG+5, CYTO+5, BBANK+5*
>> LRLLOC	BBANK+7*
>> LRSAV	BBANK+7*
>> LRSS	SURG+6, CYTO+6
LRTP	SURG+5!, CYTO+5!, BBANK+5!*
N	SP~, SP+1
ORPK	RAREQ+1~, RAREQ+2*, RAREQ+3
ORVP	SURG+1~, SURG+3, SURG+5, CYTO+1~, CYTO+3, CYTO+5, BBANK+1~, BBANK+3, BBANK+5, RAPROF+1~ , RAPROF+2
>> PNM	SURG+4, CYTO+4, BBANK+3*, BBANK+6
>> RADFN	RAPROF+2*
>> RADUP	RAPROF+4
RAF1	RAPROF+2*, RAPROF+6!
>> RAHEAD	RAPROF+2*
RAREPORT	RAPROF+2*, RAPROF+6!
>> TO	ERINQ+6*
>> VALMBCK	RESET+1, RESET+3
VALMCNT	EN+1~, INIT+13*
>> VALMQUIT	RESET+1
>> X	HELP+1, ERINQ+4, SURG+6, CYTO+6, RAPROF+4
>> Y	ERINQ+6