Routine: VENPCCQ

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
IHS VA Utilities	1	^XBFMK
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
PCC New Encounter Form	1	$$NDT^VENPCCQ

Package	Total	Caller Graph
PCC New Encounter Form	3	VENPCCQ VENPCCQ1 VENPCCQ2

Entry Points

Name	Comments	DBIA/ICR reference
DOBAGE(DFN,DATE)	; EP - GIVEN A DFN, RETURN THE DOB AGE IN MONTHS
NAME(X)	; EP - FROM TRIGGER IN VEN EHP KB ASQ FILE ; CONVERT # MOS TO ASQ FILE NAME
ASQAGE(DFN,DATE)	; EP - GIVEN A DFN AND REFERENCE DATE (DEFAULTS TO TODAY), RETURN THE ASQ AGE IN MM.DD FORMAT; E.G., "30.15"
ASQNOW	; EP -GET TODAYS ASQ MONTH AND CUTOFF SCORES
INT(OUT,IN)	; EP - RPC: VEN ASQ INTERVENTION FORM ; GIVEN A DFN, RETURNT THE NAME OF THE APPROPRIATE ASQ INTERVENTION FORM
ASQ	; EP - GET ASQ SCORES IN u40-u52 ; WCM UPGRADE
AD1	; DEAD CODE FROM ASQ VER 2.0
ASQDTR(DFN)	; EP - GIVEN A DFN RETURN THE DATE RANGE FOR THE NEXT ASQ
A1
INIT
A2
ASQIEN(M)	; EP - GIVEN THE ASQ AGE IN MONTHS, RETURN THE CURRENT ASQ FORM IEN^IEN OF THE NEXT FORM ; REVISED FOR ASQ3
ITEMS
NDT(DOB,AGE)	; ADD MM.DD TO AN FM DOB
UGA(OUT,IN)	; EP - RPC: VEN ASQ UPDATE GESTATIONAL AGE ; GIVEN ASQ DFN AND GA VALUE (DFN\|VAL), UPDATE THE TX FILE AND RPMS
HOLD(OUT,IN)	; EP - POPULATE THE ASQ HOLDING FILE ; IN=PATIENT DFN, OUT="IEN1~IEN2" ; DEAD CODE
AIEN
PATIENT(OUT,IN)	; EP - RPC: VEN ASQ GET PATIENT ID ; GIEN A CHART #, RETURN PATIENT IDENTIFIERS
DATA(OUT,IN)	; EP - RPC: VEN ASQ GET DATA ; IN = DFN
M(DOB)
ASQDOB(DFN)	; EP - GIVEN A DFN, RETURN THE ADJUSTED (ASQ) DOB
ASQX	; EP - MEASUREMENT VALIDATION - VALIDATE ASQ SCORE
PLK	; EP - FOR ALT PROCESSING OF HRN
PAGE
GA(DFN,GA)	; EP - FILE THE GA

External References

Name	Field # of Occurrence
^DIC	GA+3, PLK+1
^DIE	GA+5
$$NDT^VENPCCQ	VENPCCQ+5
^XBFMK	GA+6, PLK+9
$$FMADD^XLFDT	ASQDOB+6, NDT+11
$$FMDIFF^XLFDT	A1+13
$$FMTE^XLFDT	ASQ+9, ITEMS+6, ITEMS+7, ITEMS+8, PAGE, PLK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$NDT^VENPCCQ(3050101,30.15) Line Location: VENPCCQ+5
Function Call: WRITE	Prompt: !,$$ASQIEN(M) Line Location: VENPCCQ+6
Routine Call	DIE Line Location: GA+5
Routine Call	DIC Line Location: GA+3 PLK+1

Used in RPC

RPC Name	Call Tags
VEN ASQ GET PATIENT ID	PATIENT
VEN ASQ GET DATA	DATA
VEN ASQ GET INTERVENTION FORM	INT
VEN ASQ UPDATE GESTATIONAL AGE	UGA

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNBMSR - [#9000024]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNBMSR - [#9000024]	ASQDOB+5, PAGE+8, HOLD+4, GA+5, PLK+7
^AUPNPAT - [#9000001]	PAGE+1
^AUPNVSIT - [#9000010]	ASQ+8
^AUPNVWC - [#9000010.46]	ASQ+5, ASQ+7
^AUPNVWC("AA"	ASQ+2, ASQ+4
^DIC(5 - [#5]	PAGE+6
^DPT - [#2]	INT+3, DOBAGE+4, ASQDOB+2, INIT, PAGE+2, PAGE+3, PAGE+4, PAGE+5, PAGE+6, PAGE+7 , HOLD+3, HOLD+4, PLK+4, PLK+6, UGA+6
^VEN(7.14 - [#19707.14]	ASQ+15, ASQNOW+3, ASQIEN+6, ASQIEN+7, ASQIEN+8, ASQIEN+9, AIEN+8, AIEN+9, AIEN+10, AIEN+11 , AIEN+12, AIEN+13, AIEN+14, AIEN+15, ASQDTR+6, AD1+1, ITEMS+12, ITEMS+14

Label References

Name	Line Occurrences
$$ASQAGE	ASQNOW+1, INT+5, ASQDTR+3, ITEMS+10
$$ASQDOB	ASQAGE+3, ASQDTR+2, ITEMS+4
$$ASQDTR	PAGE
$$ASQIEN	VENPCCQ+6, ASQNOW+2, ASQDTR+4, ITEMS+11
$$DOBAGE	ASQDOB+4
$$M	VENPCCQ+6
$$NDT	ASQDTR+8
A1	M
A2	ASQDOB+4
AD1	AD1+2, AD1+13
GA	UGA+8
PAGE	ITEMS+10, ITEMS+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASQ+5, ASQ+6, ASQ+12, ASQNOW+3, ASQNOW+4, ASQNOW+5, ASQNOW+6, ASQNOW+7, ASQNOW+8, ASQNOW+9 , INT+4~, INT+5, INT+6, ASQDOB+1~, ASQDOB+6, ASQIEN+2~, ASQIEN+9, ASQDTR+1~, ASQDTR+4, ASQDTR+5 , ASQDTR+6, ASQDTR+7, NDT+3~, DATA+3~, ITEMS+2, ITEMS+3, GA+1~, PATIENT+3~, UGA+5~, ASQX+1~ , ASQX+2, ASQX+3, ASQX+4, ASQX+5
AGE	ASQIEN+2~, ASQIEN+5, ASQIEN+6, ASQIEN+7, ASQIEN+9, NDT~, NDT+1, NDT+4, NDT+5
>> AGE1	ASQDTR+7*, ASQDTR+8
>> AGE2	ASQDTR+7*, ASQDTR+8
ASQ	DATA+3~, ITEMS+9, ITEMS+12, ITEMS+13, PAGE+9
ASQM	ASQDTR+1~, AD1+1*, AD1+2, AD1+4
AUPNDAYS	PATIENT+3~
AUPNDOB	PATIENT+3~, PLK+5
AUPNDOD	PATIENT+3~, PLK+2
AUPNPAT	PATIENT+3~, PLK+3, PLK+4, PLK+6, PLK+7, PLK+8
AUPNSEX	PATIENT+3~, PLK+8
B	DATA+3~, INIT+2, PAGE+9, PATIENT+3~, PATIENT+4, PLK+8
BDT	ASQAGE+1~, A1+12*, A1+13
CDOB	DATA+3~, ITEMS+4, ITEMS+5, ITEMS+7*, PAGE+9
CHART	DATA+3~, INIT+1, PAGE+1, PAGE+9
CITY	DATA+3~, INIT+1, PAGE+5, PAGE+9
D	ASQDTR+1~, NDT+3~, NDT+5, NDT+11, AD1+3, AD1+12
D1	M~, ASQAGE+1~, A1, A1+5, A1+11, A1+12, DOBAGE+3~, DOBAGE+5*, DOBAGE+10
D2	M~, ASQAGE+1~, A1+2, A1+5, DOBAGE+3~, DOBAGE+7, DOBAGE+10
DA	GA+1~, GA+4*, GA+5
DATE	ASQAGE~, ASQAGE+2, A1+1, A1+2, A1+13, DOBAGE~, DOBAGE+6, DOBAGE+7, ASQDTR+1~
DDT	ASQAGE+1~, A1+13, A1+14, A1+15
DFN	ASQ+2, ASQ+4, ASQNOW+1, INT+4~, INT+5, ASQAGE~, ASQAGE+3, DOBAGE~, DOBAGE+1, DOBAGE+4 , ASQDOB~, ASQDOB+2, ASQDOB+4, ASQDOB+5, ASQDTR~, ASQDTR+2, ASQDTR+3, DATA+3~, INIT+2, ITEMS+4 , ITEMS+10, PAGE, PAGE+1, PAGE+2, PAGE+3, PAGE+4, PAGE+5, PAGE+6, PAGE+7, PAGE+8 , HOLD+3, HOLD+4, GA~, GA+2, UGA+5~, UGA+6, UGA+8
DIC	GA+1~, GA+2, GA+4, PATIENT+5
DIC(0	GA+2, PATIENT+5
DIE	GA+1~, GA+4*
>> DLAYGO	GA+2*
DOB	VENPCCQ+6~, M~, ASQAGE+1~, ASQAGE+3, A1, DOBAGE+3~, DOBAGE+4, DOBAGE+5, ASQDOB+1~, ASQDOB+2 , ASQDOB+3, ASQDOB+6, A2, A2+1, ASQDTR+1~, ASQDTR+2, ASQDTR+8, NDT~, NDT+1, NDT+6 , NDT+7, NDT+10, AD1+3, DATA+3~, ITEMS+1, ITEMS+5, ITEMS+6, PAGE+9, HOLD+4, PATIENT+3~ , PLK+5, PLK+8
DR	GA+1~, GA+4*
DT	ASQAGE+2, A1+1, DOBAGE+1, DOBAGE+6, A2, AD1+13, ITEMS+8
DT1	NDT+3~, NDT+10*, NDT+11
DUZ(2	PAGE+1
FIN	ASQDTR+1~, ASQDTR+8, ASQDTR+9, AD1+12, AD1+14
>> FMDT	ASQ+8*, ASQ+9
GA	ASQDOB+1~, ASQDOB+5, ASQDOB+6, DATA+3~, INIT+2, PAGE+8, PAGE+9, HOLD+4, HOLD+5, GA~ , PATIENT+3~, PLK+7, PLK+8, UGA+5~, UGA+7, UGA+8
HRN	PATIENT+3~, PATIENT+4*, PATIENT+5
>> IDT	ASQ+1, ASQ+2, ASQ+4
IEN	ASQIEN+2~, ASQIEN+7, ASQIEN+8, ASQIEN+12, AIEN+1, AIEN+3, AIEN+8, AIEN+9, AIEN+10, AIEN+11 , AIEN+12, AIEN+13, AIEN+14, AIEN+15, ASQDTR+1~, ASQDTR+5, ASQDTR+6, AD1+1, AD1+2, AD1+13*
IEN2	ASQIEN+2~, AIEN+2, AIEN+3, AIEN+7, AIEN+9, AIEN+11, AIEN+13, AIEN+15
IN	INT~, INT+3, INT+5, DATA~, INIT, INIT+2, HOLD~, HOLD+3, PATIENT~, PATIENT+2 , PATIENT+4, UGA~, UGA+3, UGA+6, UGA+7
ISTG	ASQIEN+2~, ASQIEN+5, ASQIEN+12, AIEN+1, AIEN+2
ISTG2	ASQIEN+2~
M	VENPCCQ+6~, M~, ASQNOW+1, ASQNOW+2, ASQAGE+1~, A1+6, A1+7, A1+8, A1+15, DOBAGE+3~ , DOBAGE+11, DOBAGE+12, ASQIEN~, ASQIEN+3, ASQIEN+4, AIEN, AIEN+6, AIEN+8, AIEN+9, AIEN+10 , AIEN+12, AIEN+14, AIEN+15, ASQDTR+1~, ASQDTR+3, ASQDTR+4, NDT+3~, NDT+4, NDT+6, NDT+7 , AD1+2, AD1+3, AD1+4, AD1+5, AD1+6, AD1+9, DATA+3~, ITEMS+10*, ITEMS+11
M1	M~, ASQAGE+1~, A1, A1+3, A1+4, A1+8, DOBAGE+3~, DOBAGE+5, DOBAGE+8, DOBAGE+9
M2	M~, ASQAGE+1~, A1+2, A1+3, A1+4, DOBAGE+3~, DOBAGE+7, DOBAGE+8, DOBAGE+9
MD	M~, ASQAGE+1~, A1+4, A1+5, A1+6, DOBAGE+3~, DOBAGE+9, DOBAGE+10, DOBAGE+11
MDT	ASQAGE+1~, A1+8, A1+9, A1+10*, A1+12
MF	ASQDTR+1~, AD1+9, AD1+10, AD1+11*, AD1+12
>> MN	ASQ+13*, ASQ+14, ASQ+16
MOM	DATA+3~, INIT+1, PAGE+2, PAGE+9, PATIENT+3~, PLK+6*, PLK+8
>> MONTH	ITEMS+9, ITEMS+13, PAGE+9
MS	ASQDTR+1~, AD1+6, AD1+7, AD1+8*, AD1+12
NAME	INT+4~, DATA+3~, ITEMS, PAGE+9, PATIENT+3~, PLK+4, PLK+8
NDT	NDT+3~, NDT+11*, NDT+12
NEXT	DATA+3~, INIT+1, PAGE, PAGE+9
NM	NDT+3~, NDT+7, NDT+8, NDT+9*, NDT+10
NY	NDT+3~, NDT+6, NDT+8, NDT+10
OUT	INT~, INT+2, INT+10, DATA~, DATA+2, PAGE+9, HOLD~, HOLD+3, PATIENT~, PATIENT+4 , PLK+8, UGA~, UGA+2, UGA+9*
PAGE	DATA+3~, ITEMS+9, ITEMS+14, PAGE+9
PCE	ASQ+11, ASQ+12, ASQ+15, ASQIEN+2~, ASQIEN+5, ASQIEN+10, ASQIEN+11, ASQIEN+12, AIEN, AIEN+1 , AIEN+2
PHONE	DATA+3~, INIT+1, PAGE+3, PAGE+9
>> QIEN	ASQNOW+2*, ASQNOW+3
REF	UGA+5~
REL	DATA+3~, INIT+1, PAGE+2, PAGE+9
SEX	DATA+3~, ITEMS+3*, PAGE+9
START	ASQDTR+1~, ASQDTR+8, ASQDTR+9, AD1+12, AD1+13, AD1+14
STATE	DATA+3~, INIT+1, PAGE+6, PAGE+9
STG	ASQIEN+2~, ASQIEN+5, ASQIEN+11, AIEN, DATA+3~, INIT*, ITEMS, ITEMS+1, ITEMS+2
STOP	ASQ+1, ASQ+2, ASQ+4, ASQ+10, ASQIEN+2~, ASQIEN+8*, ASQIEN+11
STREET	DATA+3~, INIT+1, PAGE+4, PAGE+9
>> TMP	ASQ+10, ASQ+14, ASQ+16, ASQNOW+4, ASQNOW+5, ASQNOW+6, ASQNOW+7, ASQNOW+8, ASQNOW+9
TODAY	DATA+3~, ITEMS+8*
U	ASQ+7, ASQ+12, ASQ+15, ASQNOW+4, ASQNOW+5, ASQNOW+6, ASQNOW+7, ASQNOW+8, ASQNOW+9, DOBAGE+4 , ASQDOB+2, ASQDOB+5, ASQIEN+8, ASQIEN+11, ASQIEN+12, AIEN, AIEN+1, AIEN+2, AIEN+3, AIEN+9 , AIEN+11, AIEN+13, AIEN+15, ASQDTR+5, ASQDTR+7, ASQDTR+9, AD1+14, ITEMS, ITEMS+1, ITEMS+2 , ITEMS+14, PAGE, PAGE+2, PAGE+3, PAGE+4, PAGE+5, PAGE+6, PAGE+7, PAGE+8, HOLD+4 , PLK+4, PLK+6, PLK+7
>> VDT	ASQ+9*, ASQ+10
>> VIEN	ASQ+7*, ASQ+8
>> WCIEN	ASQ+3, ASQ+4, ASQ+5, ASQ+7
X	ASQ+12, ASQ+15, ASQ+16, NAME~, NAME+2, NAME+3, NAME+4, NAME+5, INT+4~, INT+6* , INT+7, INT+8, INT+10, ASQIEN+2~, AIEN+10, AIEN+11, AIEN+12, AIEN+13, AIEN+14, NDT+3~ , DATA+3~, ITEMS+11, ITEMS+12, ITEMS+14, PAGE, PAGE+1, PAGE+2, PAGE+3, PAGE+4, PAGE+5* , PAGE+6, PAGE+7, PAGE+8, GA+1~, GA+2, PATIENT+3~, PATIENT+5*, UGA+5~, ASQX+2, ASQX+3! , ASQX+4, ASQX+5!
>> XGA	HOLD+5*
Y	INT+4~, INT+7, INT+9, INT+10, ASQIEN+2~, AIEN+9, AIEN+11, AIEN+13, AIEN+15, ASQDTR+1~ , NDT+3~, AD1+3, AD1+4, AD1+5*, AD1+6, AD1+9, DATA+3~, GA+1~, GA+3, GA+4 , PATIENT+3~, PLK+1, UGA+5~, ASQX+1~
Y1	M~, ASQAGE+1~, A1, A1+4, A1+7, DOBAGE+3~, DOBAGE+5, DOBAGE+9
Y2	M~, ASQAGE+1~, A1+2, A1+3, A1+4, DOBAGE+3~, DOBAGE+7, DOBAGE+8, DOBAGE+9
YD	M~, ASQAGE+1~, A1+4, A1+6, DOBAGE+3~, DOBAGE+9, DOBAGE+11
YDT	ASQAGE+1~, A1+7, A1+9, A1+12
YF	ASQDTR+1~, AD1+9, AD1+10, AD1+12
YS	ASQDTR+1~, AD1+6, AD1+7, AD1+12
Z	ASQ+10, ASQ+13, INT+4~, ASQIEN+2~, AIEN*, NDT+3~, DATA+3~, UGA+5~, ASQX+1~
ZIP	DATA+3~, INIT+1, PAGE+7, PAGE+9

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCQ

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: