Routine: PXQMAIN4

Package	Total	Call Graph
PCE Patient Care Encounter	5	$$VISITLST^PXQGVST ($$ASKNUM1,$$ASKPAT,$$RE,READ,SDV)^PXQUTL $$DEC^PXQUTL1 DATE^PXQUTL2 ZIS^PXQZIS
VA Fileman	2	GETS^DIQ ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXQ USER REVIEW PXQUTL2

Entry Points

Name	Comments	DBIA/ICR reference
PAT	;--ASK FOR PATIENT
FORM	;--FORMAT FO THE RPORT
REPT	;--PCE VISIT TRAIL CUSTONIZED REPORT OPTION
REPORT	;--DO REPORT
EXIT	;--CLEAN UP AND QUIT
IEN	;--ASK FOR IEN OF VISIT
ASK	;--ASK BY PATIENT OR BY IEN
OPEN	;--OPEN DEVICE

Name	Field # of Occurrence
^%ZISC	REPORT+43
GETS^DIQ	REPORT+12, REPORT+13
^DIR	ASK+5, FORM+11
$$VISITLST^PXQGVST	PAT+6
$$ASKNUM1^PXQUTL	IEN+3
$$ASKPAT^PXQUTL	PAT+1
$$RE^PXQUTL	REPORT+3, REPORT+4, REPORT+5, REPORT+6, REPORT+7, REPORT+8, REPORT+9, REPORT+18, REPORT+19, REPORT+20 , REPORT+21, REPORT+22, REPORT+27, REPORT+28, REPORT+29, REPORT+30, REPORT+31, REPORT+32, REPORT+33, REPORT+35 , REPORT+36, REPORT+37, REPORT+38
READ^PXQUTL	REPORT+41
SDV^PXQUTL	REPORT+39
$$DEC^PXQUTL1	REPORT+23, REPORT+34
DATE^PXQUTL2	PAT+3
ZIS^PXQZIS	OPEN+2

Name	Line Occurrences
Function Call: WRITE	Prompt: $$RE^PXQUTL("* R E C O R D O F R E L A T E D E N T R I E S *") Line Location: REPORT+3
Function Call: WRITE	Prompt: $$RE^PXQUTL(" ") Line Location: REPORT+4
Function Call: WRITE	Prompt: $$RE^PXQUTL(" The Following is the VISIT file entry and") Line Location: REPORT+5
Function Call: WRITE	Prompt: $$RE^PXQUTL(" ALL records pointing back to this entry.") Line Location: REPORT+6
Function Call: WRITE	Prompt: $$RE^PXQUTL(" ") Line Location: REPORT+7
Function Call: WRITE	Prompt: $$RE^PXQUTL(" VISIT RECORD --- #"_VISIT_"") Line Location: REPORT+8
Function Call: WRITE	Prompt: $$RE^PXQUTL(" ") Line Location: REPORT+9
Function Call: WRITE	Prompt: $$RE^PXQUTL(" ") Line Location: REPORT+35
Function Call: WRITE	Prompt: $$RE^PXQUTL(" The Following is the SCHEDULING VISITS file.") Line Location: REPORT+36
Function Call: WRITE	Prompt: $$RE^PXQUTL(" This is where Scheduling stores the CPT codes.") Line Location: REPORT+37
Function Call: WRITE	Prompt: $$RE^PXQUTL(" ") Line Location: REPORT+38
Routine Call	DIR Line Location: ASK+5 FORM+11

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	OPEN+5
^AUPNVSIT - [#9000010]	REPORT+10
^DISV(	REPT+5, ASK+3, ASK+7, PAT+7, IEN+2, IEN+4, IEN+12, FORM+9, FORM+15
^TMP("PXQDATA"	REPORT+1!, EXIT+2!

Name	Field # of Occurrence
ANS	REPT+1~, IEN+1~
BROKEN	IEN+1~
DFN	REPT+1~, PAT+1, PAT+6, IEN+1~, REPORT+17
DIC	EXIT+1!
DIR	ASK+5!, IEN+3!, FORM+11!, EXIT+1!
DIR("A"	ASK+1, ASK+2, FORM+1, FORM+2, FORM+3, FORM+4, FORM+5, FORM+6, FORM+7, FORM+8
DIR("B"	ASK+3, IEN+2, FORM+9*
DIR(0	ASK+4, FORM+10
DUZ	REPT+5, ASK+3, ASK+7, PAT+7, IEN+2, IEN+4, IEN+12, FORM+9, FORM+15
DX	OPEN+5~*
DY	OPEN+5~*
I	REPT+1~, IEN+1~
IEN	REPT+1~, PAT+6, PAT+7, IEN+1~, IEN+3, IEN+4, IEN+12
OPTION	OPEN+1*, EXIT+1!
>> POP	OPEN+2
PXBCNT	REPT+1~
PXBHIGH	REPT+1~
PXQCLN	REPORT+11~, REPORT+16*, REPORT+20
PXQDT	REPORT+11~, REPORT+14*, REPORT+18
PXQENC	REPORT+24!
PXQENC(	REPORT+26
PXQEND	PAT+4, PAT+6!
>> PXQFORM	FORM+16, FORM+17, FORM+18*, REPORT+23, REPORT+34
PXQII	REPORT+25~, REPORT+26*, REPORT+31, REPORT+34
PXQPAT	REPORT+11~, REPORT+15*, REPORT+19
PXQRECI	REPT+1~, REPT+2*
PXQSTART	PAT+4, PAT+6!
PXQSTUFF	REPORT+11~
PXQSTUFF(9000010	REPORT+14, REPORT+15, REPORT+16, REPORT+17
VAR	REPORT+2~, REPORT+23, REPORT+34
VISIT	REPT+1~, PAT+6, IEN+1~, IEN+3, REPORT+8, REPORT+10, REPORT+12, REPORT+13, REPORT+14, REPORT+15 , REPORT+16, REPORT+17, REPORT+23
>> Y	ASK+6, ASK+7, ASK+8, FORM+12, FORM+13, FORM+14, FORM+15, FORM+16, FORM+17, FORM+18
>> ZTSK	REPORT+44