Routine: VENPCC1N

Information

VENPCC1N ; IHS/OIT/GIS - DISPLAY LAB TEST RESULTS ;

Source Information

Source file <VENPCC1N.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	2	^DIC YN^DICN
IHS VA Utilities	1	^XBFMK
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCC1L

Entry Points

Name	Comments	DBIA/ICR reference
MAXIDT(MAXM)	; EP - GET LIMITING IDT
LAB1(DFN,DATA,LNAME,CPT,TOT,MAXL)	; EP-RETRUN TEST NAME, CPT CODE AND RESULTS ; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1
LAB2(DFN,DATA,EP,LNAME,CPT,TOT)	; EP-SPECIAL DISPLAY CODE ; SPECIAL TESTS WILL ONLY WORK IF TEST NAMES APPEAR IN THE LAB(60) FILE
CX
PASS(LAB,TOT,MAXL)	; EP-FOR THIS PASS, GET LAB TESTS IN ORDER
COPY	; EP-COPY LAB TESTS FROM ONE TEMPLATE TO ANOTHER
LAB(DFN,DEFEF)	; EP-GET LAB INFO
INIT	; EP - INITIALIZE VARIABLES
CPT(LIEN)	; EP-GIVEN A LAB IEN RETURN THE CPT CODE
DEL	; EP-DELETE ALL LAB TESTS FROM A TEMPLATE
DX
ORD	; EP - PUT TEST NAMES IN ORDER
LABX	; EP - GET LAB RESULTS

External References

Name	Field # of Occurrence
^DIC	COPY+5, COPY+11, DEL+5
YN^DICN	COPY+15, DEL+10
^XBFMK	CX, DX
$$FMADD^XLFDT	MAXIDT+4
$$FMTE^XLFDT	LAB1+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"*** COPY LAB TEST LIST FROM ONE TEMPLATE TO ANOTHER ***",!! Line Location: COPY+2
Function Call: WRITE	Prompt: !,"There are ",TOT," tests associated with this template..." Line Location: COPY+8
Function Call: WRITE	Prompt: !,"Request terminated..." Line Location: COPY+9
Function Call: WRITE	Prompt: !,"Template ",$P(Y,U,2)," already has ",TOT," lab tests.",!,"These will be overwritten!" Line Location: COPY+13
Function Call: WRITE	Prompt: !!,"Sure you want to copy ",TOT," lab tests to ",$P(Y,U,2) Line Location: COPY+14
Function Call: WRITE	Prompt: !,"All lab tests have been successfully copied!" Line Location: COPY+17
Function Call: WRITE	Prompt: !,?10,"*** REMOVE ALL LAB TESTS FROM A TEMPLATE ***",!! Line Location: DEL+2
Function Call: WRITE	Prompt: !,"There are ",TOT," tests associated with this template..." Line Location: DEL+7
Function Call: WRITE	Prompt: !,"Request terminated..." Line Location: DEL+8
Function Call: WRITE	Prompt: !!,"Sure you want to remove all lab tests from ",$P(Y,U,2) Line Location: DEL+9
Function Call: WRITE	Prompt: !,"All lab tests have been successfully removed from the template!" Line Location: DEL+12
Routine Call	DIC Line Location: COPY+5 COPY+11 DEL+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.41 - [#19707.41]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVLAB - [#9000010.09]	LAB1+13
^AUPNVLAB("AA"	LAB1+8, LAB1+11
^BLRCPT - [#9009021]	CPT+5, CPT+6, CPT+7
^BLRCPT("C"	CPT+3, CPT+4
^DPT - [#2]	LAB+2
^ICPT - [#81]	CPT+8
^LAB(60 - [#60]	ORD+7, CPT+2
^TMP("VEN LAB ORDER"	INIT+3
^TMP("VEN PRNT"	INIT+2
^VEN(7.41 - [#19707.41]	LAB+3, INIT+1, INIT+5, ORD+2, ORD+3, ORD+4, ORD+6, ORD+12, PASS+4, PASS+12 , COPY+7, COPY+12, COPY+16!*, DEL+6, DEL+11!

Label References

Name	Line Occurrences
$$CPT	PASS+6
$$MAXIDT	LAB1+6
CX	COPY+5, COPY+9, COPY+11, COPY+15
DX	DEL+5, DEL+8, DEL+10
LAB1	PASS+13
LAB2	PASS+14
PASS	LABX+2, LABX+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LAB+1~, INIT+5, PASS+1~, LAB1+2~, LAB1+12, MAXIDT+1~, MAXIDT+3, MAXIDT+4, LAB2+2~, CPT+1~ , CPT+6, CPT+7, COPY+15, DEL+10
AFLAG	LAB+1~, INIT+1*, ORD+10, ORD+11
CIEN	CPT+1~, CPT+7*, CPT+8
CNT	LAB1+2~, LAB1+7, LAB1+16
CODE	LAB2+2~, LAB2+5*, LAB2+6
CPT	PASS+1~, PASS+6, PASS+10, PASS+13, PASS+14, LAB1~, LAB1+18, LAB2~, CPT+1~, CPT+8 , CPT+9
CPTIEN	CPT+1~, CPT+4*, CPT+5, CPT+6, CPT+7
DATA	PASS+1~, LAB1~, LAB1+3, LAB1+4, LAB1+5, LAB2~
DATE	LAB1+2~, LAB1+12, LAB1+14, MAXIDT+1~, MAXIDT+4, MAXIDT+5
DEFEF	LAB~, LAB+3, INIT+1, INIT+5, ORD+2, ORD+3, ORD+4, ORD+6, ORD+12, PASS+4 , PASS+12
DFN	LAB~, LAB+2, PASS+13, PASS+14, LAB1~, LAB1+8, LAB1+11, LAB2~
DIC	COPY+1~, COPY+4, DEL+1~, DEL+4
DIC("A"	COPY+3, COPY+10, DEL+3*
DIC(0	COPY+4, DEL+4
DISPLAY	PASS+1~
DT	MAXIDT+2, MAXIDT+4
EP	PASS+1~, PASS+12*, PASS+13, PASS+14, LAB2~, LAB2+3, LAB2+4, LAB2+5
FROM	COPY+1~, COPY+6*, COPY+16
GBL	LAB+1~, INIT+3*, ORD+10, ORD+11, ORD+14, ORD+15, LABX+2, LABX+3, LABX+7, LABX+8
IDT	LAB1+2~, LAB1+7, LAB1+8, LAB1+9, LAB1+11, LAB1+12, MAXIDT+1~
LAB	PASS~, PASS+2, PASS+3
LIEN	LAB+1~, ORD+6, ORD+7, PASS+1~, PASS+5, PASS+6, LAB1+8, LAB1+11, CPT~, CPT+2 , CPT+4
LNAME	LAB+1~, ORD+4, ORD+5, ORD+7, ORD+9, ORD+10, ORD+11, ORD+14, ORD+15, PASS+1~ , PASS+3*, PASS+9, PASS+13, PASS+14, LAB1~, LAB1+14, LAB2~
MAX	LAB+1~, LAB1+2~, LAB1+4*, LAB1+16
MAXIDT	LAB1+2~, LAB1+6, LAB1+9, MAXIDT+1~, MAXIDT+5, MAXIDT+6
MAXL	LAB+1~, INIT+4, INIT+5, LABX+2, LABX+4, LABX+7, PASS~, PASS+13, LAB1~, LAB1+15
MAXM	LAB1+2~, LAB1+5*, LAB1+6, MAXIDT~, MAXIDT+2, MAXIDT+3
NAME	LAB+1~, LAB1+2~
ORD	LAB+1~, ORD+12, ORD+13, ORD+14, ORD+15, LABX+2, LABX+7
POC	LAB+1~, ORD+3*, ORD+10, ORD+14
POCFLAG	LAB+1~
RES	LAB1+2~, LAB1+14*, LAB1+17
SFIEN	LAB+1~, ORD+1, ORD+2, ORD+3, ORD+4, ORD+6, ORD+10, ORD+11, ORD+12, ORD+13 , ORD+14, ORD+15, PASS+1~, PASS+2*, PASS+4, PASS+12
STG	LAB+1~, PASS+1~, PASS+4*, PASS+5, PASS+6, PASS+7, PASS+13, PASS+14
STOP	LAB1+2~, LAB1+7, LAB1+8, LAB1+9, LAB1+11, LAB1+15, LAB1+16
TMP	LAB+1~, INIT+2*, LABX+6, PASS+9, PASS+10, LAB1+17, LAB1+18
TO	COPY+1~, COPY+12*, COPY+16
TOT	LAB+1~, LABX+1, LABX+2, LABX+4, LABX+5, LABX+6, LABX+7, PASS~, PASS+8, PASS+9 , PASS+10, PASS+13, PASS+14, LAB1~, LAB1+15, LAB1+17, LAB1+18, LAB2~, COPY+1~, COPY+7* , COPY+8, COPY+9, COPY+12, COPY+13, COPY+14, DEL+1~, DEL+6, DEL+7, DEL+8
TXT	LAB2+2~
U	INIT+1, INIT+5, ORD+3, ORD+4, ORD+7, ORD+10, ORD+11, ORD+12, ORD+14, ORD+15 , PASS+3, PASS+6, PASS+7, LAB1+4, LAB1+5, LAB1+13, CPT+5, CPT+7, CPT+8, COPY+7 , COPY+12, COPY+13, COPY+14, DEL+6, DEL+9
VAL	LAB1+2~, LAB1+13*, LAB1+14
VLIEN	LAB1+2~, LAB1+10, LAB1+11, LAB1+13
X	COPY+1~, DEL+1~
Y	COPY+1~, COPY+5, COPY+6, COPY+7, COPY+11, COPY+12, COPY+13, COPY+14, DEL+1~, DEL+5 , DEL+6, DEL+9, DEL+11

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCC1N

Call Graph Total: 4

Caller Graph Total: 1