Routine: VAFCLAU

Information

VAFCLAU ;BHAM/DRI-LIST MANAGER ROUTINE FOR MPI/PD VAFC EXCPT LOCAL AUDIT IN PDR ;3/14/02

Source file <VAFCLAU.m>

Package	Total	Call Graph
Registration	4	EN^VAFCRAU (CHKSTAT,GETTFL,SELTF,SEND)^VAFCRAUD EN^VALM ($$SETSTR,FULL,PAUSE)^VALM1
Kernel	1	DISP^XQORM1

Package	Total	Caller Graph
Registration	1	VAFCMGA1

Name	Comments	DBIA/ICR reference
HELP	;
EN	;main entry point for VAFC EXCPT AUDIT LOCAL
QRD
HDR	; header code
RCHK	;Check remote AUDIT Query
RSEND	;Send remote AUDIT Query
INIT	;
EXIT	;
ADDTMP	;
RDISP	;Display remote AUDIT Query

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Display data returned from remote patient audit queries." Line Location: RDISP+3
Function Call: WRITE	Prompt: !!,"No remote query sent for this patient. " Line Location: RDISP+5
Function Call: WRITE	Prompt: !!,"-> For Patient ",$P($G(^DPT(DFN,0)),"^",1),! Line Location: RDISP+7
Function Call: WRITE	Prompt: !,"No remote query sent for this patient." Line Location: RDISP+11
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	RDISP+7
^TMP("VAFCLAU"	ADDTMP+1, ADDTMP+2, EXIT+2!
^TMP("VAFCRAUD"	INIT+3, INIT+5, INIT+6
^XTMP("VAFCRAUD"	RDISP+5, RDISP+9

Name	Field # of Occurrence
>> DFN	INIT+2, RDISP+7
>> ICN	RSEND+3, RCHK+3, RDISP+5, RDISP+6, RDISP+9, RDISP+14
L	RDISP+4*, EXIT+2!
LIN	INIT+4, INIT+10, ADDTMP+1, ADDTMP+2, ADDTMP+3, EXIT+2!
STATUS	RDISP+4*, EXIT+2!
STR	INIT+4, INIT+8, ADDTMP+1, ADDTMP+3*, EXIT+2!
TFARR	RDISP+11, EXIT+2!
TFL	RDISP+4*, RDISP+6, EXIT+2!
TFL(	RDISP+9!
TFL(0	RDISP+8
TXT	INIT+4, INIT+6, INIT+7, INIT+8, EXIT+2!
>> VAFCBDT	RSEND+3
>> VAFCEDT	RSEND+3
>> VALMAR	INIT+1
>> VALMBCK	RSEND+1, RSEND+6, RCHK+1, RCHK+6, RDISP+1, QRD+2, EXIT+1, EXIT+3
>> VALMCNT	INIT+10*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
X	INIT+4, INIT+5, INIT+6, RDISP+9, HELP+1, EXIT+2!
Y	RDISP+4*, RDISP+12, EXIT+2!