Routine: PXQPPUTIL

Package	Total	Call Graph
VA FileMan	5	BROWSE^DDBR $$FIND1^DIC (FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	4	(ENDR,KILL)^%ZISS $$NOW^XLFDT $$GET^XUA4A72 KILL^XUSCLEAN
PCE Patient Care Encounter	2	EN^PXCEAE REPORT^PXQPPUTILR

Name	Comments	DBIA/ICR reference
ASKCONTINUE()	;Ask the user if they want to continue.
DISCLAIMER	;Display the disclaimer.
DISPIMPTEXT(VISITIEN)	;
FINDEXAM(VISITIEN)	;Try to link the Visit to the Radiology Exam.
GETDATE(DEFAULT,PROMPT,MINDATE)	;Ask the user for a date.
OPENENCOUNTER(VISITIEN)	;Open the encounter in List Manger so the primary
PPREPAIR	;Find and repair encounters that do not have a primary provider.
LAB(VISITIEN,NPRIM,PRIMARY,PROVIDERLIST,CONTINUE)	;Handle Lab
RAD(VISITIEN,NPRIM,PRIMARY,PROVIDERLIST,RADPROXY,CONTINUE)	;Handle Radiology
RADPRIM(VISITIEN,PROVIDERLIST,PRIMARY)	;Set a primary provider for
RADPROXYPP(VISITIEN,CONTINUE)	;Radiology encounter has the proxy as the primary
SETONEPRIME(PROVIDERLIST)	;There is only one provider for the encounter

Name	Field # of Occurrence
ENDR^%ZISS	DISPIMPTEXT+40
KILL^%ZISS	DISPIMPTEXT+43
BROWSE^DDBR	DISPIMPTEXT+41
$$FIND1^DIC	PPREPAIR+6, PPREPAIR+7, PPREPAIR+8, PPREPAIR+9, PPREPAIR+10
FILE^DIE	FINDEXAM+28, LAB+18, RADPRIM+14, RADPRIM+23, SETONEPRIME+6
UPDATE^DIE	RADPRIM+41, RADPRIM+54
$$GET1^DIQ	DISPIMPTEXT+20, DISPIMPTEXT+22, DISPIMPTEXT+31, DISPIMPTEXT+35, FINDEXAM+11, FINDEXAM+22
^DIR	ASKCONTINUE+5, GETDATE+6
EN^PXCEAE	OPENENCOUNTER+9
REPORT^PXQPPUTILR	PPREPAIR+48
$$NOW^XLFDT	PPREPAIR+11
$$GET^XUA4A72	RADPRIM+35, RADPRIM+48
KILL^XUSCLEAN	PPREPAIR+50

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"=============== NOTE ===============" Line Location: DISCLAIMER+1
Function Call: WRITE	Prompt: !,"This utility searches for Lab and Radiology Encounters in the specified" Line Location: DISCLAIMER+2
Function Call: WRITE	Prompt: !,"date range. Those that do not have a primary provider will be processed." Line Location: DISCLAIMER+3
Function Call: WRITE	Prompt: !,"====================================" Line Location: DISCLAIMER+4
Function Call: WRITE	Prompt: ! Line Location: DISCLAIMER+5
Function Call: WRITE	Prompt: !,"No Radiology exam can be found for Visit IEN ",VISITIEN,"." Line Location: DISPIMPTEXT+6
Function Call: WRITE	Prompt: !,"Therefore, no Impresion Text can be displayed." Line Location: DISPIMPTEXT+7
Function Call: WRITE	Prompt: !,"No Radiology Reports were found for this encounter, cannot display the Impression Text." Line Location: DISPIMPTEXT+24
Function Call: WRITE	Prompt: IORESET Line Location: DISPIMPTEXT+42
Function Call: WRITE	Prompt: !,"Set the date range for searching for encounters." Line Location: PPREPAIR+13
Routine Call	DIC Line Location: PPREPAIR+6 PPREPAIR+7 PPREPAIR+8 PPREPAIR+9 PPREPAIR+10
Routine Call	DIE Line Location: FINDEXAM+28 LAB+18 RADPRIM+14 RADPRIM+23 SETONEPRIME+6
Routine Call	DIE Line Location: RADPRIM+41 RADPRIM+54
Routine Call	DIR Line Location: ASKCONTINUE+5 GETDATE+6

FileNo	Call Tags
^VA(200 - [#200]	FIND1^DIC
70.02	GET1^DIQ
70.03	GET1^DIQ
^RARPT - [#74]	GET1^DIQ
^PX(839.7 - [#839.7]	FIND1^DIC
^DIC(9.4 - [#9.4]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	DISPIMPTEXT+12, FINDEXAM+16, LAB+7, RADPRIM+6, RADPRIM+7, RADPRIM+24, RADPRIM+32, RADPRIM+33, RADPRIM+37, RADPRIM+38 , RADPRIM+39, RADPRIM+40, RADPRIM+45, RADPRIM+46, RADPRIM+50, RADPRIM+51, RADPRIM+52, RADPRIM+53
^AUPNVCPT("AD"	DISPIMPTEXT+11, FINDEXAM+15, LAB+6, RADPRIM+4
^AUPNVPRV - [#9000010.06]	PPREPAIR+35
^AUPNVPRV("AD"	PPREPAIR+33
^AUPNVSIT - [#9000010]	DISPIMPTEXT+14, FINDEXAM+3, OPENENCOUNTER+4, PPREPAIR+26, PPREPAIR+40, RADPRIM+25
^AUPNVSIT("B"	PPREPAIR+23, PPREPAIR+25
^RADPT - [#70]	FINDEXAM+20
^RADPT("AR"	FINDEXAM+7
^RADPT("AVSIT"	DISPIMPTEXT+4, DISPIMPTEXT+15, DISPIMPTEXT+18, RAD+6
^TMP("PXQPPR"	DISPIMPTEXT+5, FINDEXAM+29, PPREPAIR+4!, PPREPAIR+11, PPREPAIR+19, PPREPAIR+20, PPREPAIR+51!, LAB+20, LAB+25, RADPRIM+16 , RADPROXYPP+7, SETONEPRIME+8

Name	Line Occurrences
$$ASKCONTINUE	LAB+27, RADPROXYPP+9
$$GETDATE	PPREPAIR+14, PPREPAIR+16
DISCLAIMER	PPREPAIR+12
DISPIMPTEXT	RADPROXYPP+4
FINDEXAM	RAD+6
LAB	PPREPAIR+44
OPENENCOUNTER	LAB+24, RADPROXYPP+6
RAD	PPREPAIR+46
RADPRIM	RAD+4
RADPROXYPP	RAD+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CASENUM	DISPIMPTEXT+1~, DISPIMPTEXT+31*, DISPIMPTEXT+32
CONTINUE	PPREPAIR+1~, PPREPAIR+22, PPREPAIR+23, PPREPAIR+44, PPREPAIR+46, LAB~, LAB+27, RAD~, RAD+9, RADPROXYPP~ , RADPROXYPP+9*
CPT	DISPIMPTEXT+1~, DISPIMPTEXT+12, DISPIMPTEXT+13, FINDEXAM+1~, FINDEXAM+16, FINDEXAM+17
CPTLIST	DISPIMPTEXT+1~, FINDEXAM+1~
CPTLIST(	DISPIMPTEXT+13, DISPIMPTEXT+21, FINDEXAM+17, FINDEXAM+24
DATASOURCE	PPREPAIR+1~, PPREPAIR+42*, PPREPAIR+43, PPREPAIR+45
DEFAULT	GETDATE~, GETDATE+5
DFN	DISPIMPTEXT+1~, DISPIMPTEXT+14, DISPIMPTEXT+15, DISPIMPTEXT+16, DISPIMPTEXT+18, FINDEXAM+1~, FINDEXAM+5, FINDEXAM+7, FINDEXAM+10, FINDEXAM+20
DIR	ASKCONTINUE+1~, GETDATE+1~
DIR("A"	ASKCONTINUE+3, GETDATE+4
DIR("B"	ASKCONTINUE+4, GETDATE+5
DIR(0	ASKCONTINUE+2, GETDATE+2, GETDATE+3*
DIRUT	ASKCONTINUE+1~, ASKCONTINUE+6, GETDATE+1~, GETDATE+7
ENCDT	RADPRIM+2~, RADPRIM+24, RADPRIM+25, RADPRIM+35, RADPRIM+48
ENCPROV	LAB+3~, LAB+10, LAB+12, RADPRIM+2~, RADPRIM+6, RADPRIM+10, RADPRIM+11, RADPRIM+12, RADPRIM+16, RADPRIM+27 , RADPRIM+31, RADPRIM+35, RADPRIM+55
>> ENCPROVLIST(	LAB+12*
ENDDATE	PPREPAIR+1~, PPREPAIR+16, PPREPAIR+17, PPREPAIR+18, PPREPAIR+20, PPREPAIR+23
>> FAILED	LAB+19, RADPRIM+15
FDA	FINDEXAM+1~, FINDEXAM+25!, LAB+3~, RADPRIM+2~, RADPRIM+21!, RADPRIM+28!, RADPRIM+43!, SETONEPRIME+2~
FDA(	FINDEXAM+27, LAB+17, RADPRIM+13, RADPRIM+22, RADPRIM+31, RADPRIM+32, RADPRIM+33, RADPRIM+34, RADPRIM+36, RADPRIM+37 , RADPRIM+38, RADPRIM+39, RADPRIM+40, RADPRIM+44, RADPRIM+45, RADPRIM+46, RADPRIM+47, RADPRIM+49, RADPRIM+50, RADPRIM+51 , RADPRIM+52, RADPRIM+53, SETONEPRIME+5*
HLOC	FINDEXAM+1~, FINDEXAM+8*, FINDEXAM+12
IENS	DISPIMPTEXT+1~, DISPIMPTEXT+19, DISPIMPTEXT+20, DISPIMPTEXT+22, DISPIMPTEXT+29, DISPIMPTEXT+31, DISPIMPTEXT+35, FINDEXAM+1~, FINDEXAM+21, FINDEXAM+22 , FINDEXAM+27, FINDEXAM+29, LAB+3~, LAB+16, LAB+17, RADPRIM+2~, RADPRIM+12, RADPRIM+13, RADPRIM+20, RADPRIM+22 , SETONEPRIME+2~, SETONEPRIME+4*, SETONEPRIME+5, SETONEPRIME+8
IENT	DISPIMPTEXT+1~, DISPIMPTEXT+16, DISPIMPTEXT+19, FINDEXAM+1~, FINDEXAM+10, FINDEXAM+11, FINDEXAM+21
IMLOC	FINDEXAM+1~, FINDEXAM+11*, FINDEXAM+12
IMPTEXT	DISPIMPTEXT+1~, DISPIMPTEXT+28!
IMPTEXT(	DISPIMPTEXT+38
IND	DISPIMPTEXT+1~, DISPIMPTEXT+17, DISPIMPTEXT+18, DISPIMPTEXT+19, DISPIMPTEXT+20, DISPIMPTEXT+21, DISPIMPTEXT+22, DISPIMPTEXT+26, DISPIMPTEXT+27, DISPIMPTEXT+29 , DISPIMPTEXT+33, FINDEXAM+1~, FINDEXAM+19, FINDEXAM+20, FINDEXAM+21
INVDT	DISPIMPTEXT+1~, DISPIMPTEXT+15, DISPIMPTEXT+16, DISPIMPTEXT+18, FINDEXAM+1~, FINDEXAM+9, FINDEXAM+10, FINDEXAM+20
>> IORESET	DISPIMPTEXT+42
JND	DISPIMPTEXT+1~, DISPIMPTEXT+37, DISPIMPTEXT+38
LABDS	PPREPAIR+1~, PPREPAIR+7*, PPREPAIR+43
LABPKG	PPREPAIR+1~, PPREPAIR+6*, PPREPAIR+43
MINDATE	GETDATE~, GETDATE+3
MSG	DISPIMPTEXT+1~, FINDEXAM+1~, FINDEXAM+29, LAB+3~, LAB+19, RADPRIM+2~, RADPRIM+15, RADPRIM+21!, RADPRIM+28!, RADPRIM+43! , SETONEPRIME+2~, SETONEPRIME+7
NENCPROV	LAB+3~, LAB+4, LAB+12
NL	DISPIMPTEXT+1~, DISPIMPTEXT+26, DISPIMPTEXT+30, DISPIMPTEXT+32, DISPIMPTEXT+33, DISPIMPTEXT+34, DISPIMPTEXT+38
NORDPROV	LAB+3~, LAB+4, LAB+11, LAB+14, LAB+23
NPRIM	PPREPAIR+1~, PPREPAIR+29, PPREPAIR+39, PPREPAIR+44, PPREPAIR+46, LAB~, LAB+2, RAD~, RAD+4
NPROV	PPREPAIR+1~, PPREPAIR+32, PPREPAIR+34
ORDPROV	LAB+3~, LAB+9, LAB+11, LAB+15, LAB+16, LAB+20, RADPRIM+2~, RADPRIM+7*, RADPRIM+18, RADPRIM+19 , RADPRIM+20, RADPRIM+42, RADPRIM+44, RADPRIM+48
>> ORDPROVLIST(	LAB+11*
>> ORDPROVLIST(""	LAB+15
PACKAGE	PPREPAIR+2~, PPREPAIR+41*, PPREPAIR+43, PPREPAIR+45
PERSONCLASS	RADPRIM+2~, RADPRIM+35, RADPRIM+36, RADPRIM+48, RADPRIM+49
PORS	PPREPAIR+2~, PPREPAIR+37*, PPREPAIR+38, PPREPAIR+39
PRIMARY	PPREPAIR+2~, PPREPAIR+39, PPREPAIR+44, PPREPAIR+46, LAB~, RAD~, RAD+4, RAD+9, RADPRIM~, RADPRIM+55
PROMPT	GETDATE~, GETDATE+4
PROVIDER	PPREPAIR+2~, PPREPAIR+36, PPREPAIR+38, PPREPAIR+39, SETONEPRIME+2~, SETONEPRIME+3, SETONEPRIME+4, SETONEPRIME+8
PROVIDERLIST	PPREPAIR+2~, PPREPAIR+31!, PPREPAIR+44, PPREPAIR+46, LAB~, RAD~, RAD+4, RADPRIM~, SETONEPRIME~
PROVIDERLIST(	PPREPAIR+38*, LAB+16, RADPRIM+10, RADPRIM+11, RADPRIM+12, RADPRIM+18, RADPRIM+19, RADPRIM+20, RADPRIM+27, RADPRIM+42 , SETONEPRIME+4
PROVIDERLIST(""	SETONEPRIME+3
PXCEEXIT	OPENENCOUNTER+2~
PXCEKEYS	OPENENCOUNTER+2~, OPENENCOUNTER+6*
PXCEPKG	OPENENCOUNTER+2~, OPENENCOUNTER+5*
PXCESOR	OPENENCOUNTER+2~, OPENENCOUNTER+5*
PXCEVIEN	OPENENCOUNTER+2~, OPENENCOUNTER+7*
PXCEVIEW	OPENENCOUNTER+2~, OPENENCOUNTER+8*
RADCPT	DISPIMPTEXT+2~, FINDEXAM+1~, FINDEXAM+22*, FINDEXAM+23, FINDEXAM+24
RADCPT(	DISPIMPTEXT+20*, DISPIMPTEXT+21, DISPIMPTEXT+33
RADDS	PPREPAIR+2~, PPREPAIR+9*, PPREPAIR+45
RADPKG	PPREPAIR+2~, PPREPAIR+8*, PPREPAIR+45
RADPROXY	PPREPAIR+2~, PPREPAIR+10*, PPREPAIR+46, RAD~, RAD+9
REPORT	DISPIMPTEXT+2~, DISPIMPTEXT+23
REPORT(	DISPIMPTEXT+22*, DISPIMPTEXT+27, DISPIMPTEXT+29
RESULT	DISPIMPTEXT+2~, DISPIMPTEXT+35, DISPIMPTEXT+36, LAB+3~, LAB+19, LAB+20, RADPRIM+2~, RADPRIM+15, RADPRIM+16, SETONEPRIME+2~ , SETONEPRIME+7, SETONEPRIME+8
SC	PPREPAIR+3~, PPREPAIR+26*, PPREPAIR+28
SPE	OPENENCOUNTER+3~
STARTDATE	PPREPAIR+3~, PPREPAIR+14*, PPREPAIR+15, PPREPAIR+16, PPREPAIR+19, PPREPAIR+21
TEMP	FINDEXAM+2~, FINDEXAM+3, FINDEXAM+4, FINDEXAM+5, FINDEXAM+8, OPENENCOUNTER+3~, OPENENCOUNTER+4, OPENENCOUNTER+5, PPREPAIR+3~, PPREPAIR+35* , PPREPAIR+36, PPREPAIR+37, PPREPAIR+40, PPREPAIR+41, PPREPAIR+42, LAB+3~, LAB+7, LAB+8, LAB+9, LAB+10
TEXT	DISPIMPTEXT+2~
TEXT(	DISPIMPTEXT+30, DISPIMPTEXT+32, DISPIMPTEXT+33, DISPIMPTEXT+34, DISPIMPTEXT+38*
U	DISPIMPTEXT+12, DISPIMPTEXT+14, FINDEXAM+4, FINDEXAM+5, FINDEXAM+8, FINDEXAM+16, GETDATE+3, OPENENCOUNTER+5, PPREPAIR+26, PPREPAIR+36 , PPREPAIR+37, PPREPAIR+38, PPREPAIR+41, PPREPAIR+42, LAB+9, LAB+10, LAB+16, RADPRIM+6, RADPRIM+7, RADPRIM+11 , RADPRIM+12, RADPRIM+19, RADPRIM+20, RADPRIM+24, RADPRIM+25, RADPRIM+32, RADPRIM+33, RADPRIM+35, RADPRIM+37, RADPRIM+39 , RADPRIM+40, RADPRIM+45, RADPRIM+46, RADPRIM+48, RADPRIM+50, RADPRIM+52, RADPRIM+53, SETONEPRIME+4
VCPTIEN	DISPIMPTEXT+2~, DISPIMPTEXT+10, DISPIMPTEXT+11, DISPIMPTEXT+12, FINDEXAM+2~, FINDEXAM+14, FINDEXAM+15, FINDEXAM+16, LAB+3~, LAB+5* , LAB+6, LAB+7, RADPRIM+2~, RADPRIM+4, RADPRIM+5, RADPRIM+6, RADPRIM+7, RADPRIM+24, RADPRIM+32, RADPRIM+33 , RADPRIM+37, RADPRIM+38, RADPRIM+39, RADPRIM+40, RADPRIM+45, RADPRIM+46, RADPRIM+50, RADPRIM+51, RADPRIM+52, RADPRIM+53
VISITDT	FINDEXAM+2~, FINDEXAM+4, FINDEXAM+7, FINDEXAM+9, PPREPAIR+3~, PPREPAIR+21, PPREPAIR+23*, PPREPAIR+25
VISITIEN	DISPIMPTEXT~, DISPIMPTEXT+4, DISPIMPTEXT+5, DISPIMPTEXT+6, DISPIMPTEXT+11, DISPIMPTEXT+14, DISPIMPTEXT+15, DISPIMPTEXT+18, FINDEXAM~, FINDEXAM+3 , FINDEXAM+15, FINDEXAM+27, FINDEXAM+29, OPENENCOUNTER~, OPENENCOUNTER+4, OPENENCOUNTER+7, PPREPAIR+3~, PPREPAIR+24, PPREPAIR+25, PPREPAIR+26 , PPREPAIR+33, PPREPAIR+40, PPREPAIR+44, PPREPAIR+46, LAB~, LAB+6, LAB+20, LAB+24, LAB+25, RAD~ , RAD+4, RAD+6, RAD+9, RADPRIM~, RADPRIM+4, RADPRIM+16, RADPRIM+25, RADPROXYPP~, RADPROXYPP+4, RADPROXYPP+6 , RADPROXYPP+7
VPRVIEN	PPREPAIR+3~, PPREPAIR+32, PPREPAIR+33, PPREPAIR+35, PPREPAIR+38
X	ASKCONTINUE+1~, DISPIMPTEXT+2~, DISPIMPTEXT+39*, GETDATE+1~
Y	ASKCONTINUE+1~, ASKCONTINUE+7, GETDATE+1~, GETDATE+7*, GETDATE+8

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXQPPUTIL

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: