Routine: PRCUTL

Information

PRCUTL ;WISC/RWS/DL-IFCAP UTILITY ROUTINE ; 1/28/98 1430

Source file <PRCUTL.m>

Package	Total	Call Graph
VA FileMan	3	^%DT ^DIC ^DIWP
IFCAP	1	(MSG,NOW)^PRCFQ

Package	Total	Caller Graph
IFCAP	57	PRCBBUL PRCE58P0 PRCE58P2 PRCEFIS1 PRCEOB1 PRCFAC0J PRCFARR PRCFARR2 PRCFARR3 PRCFDSUS PRCFFUA1 PRCHDAM PRCHDP1 PRCHDP2 PRCHDP3 PRCHDR PRCHDSP PRCHDSP1 PRCHDSP2 PRCHDSP3 PRCHFPNT PRCHFPT1 PRCHFPT2 PRCHFPT3 PRCHHI9 PRCHMSE PRCHNPO6 PRCHP181 PRCHPAM PRCHPAM1 PRCHPAM8 PRCHPAM9 PRCHPNT PRCHPNT1 PRCHPNT2 PRCHQ4 PRCHQ4A PRCHQM3 PRCHREC2 PRCHRP1 PRCOE2 PRCSD11 PRCSD121 PRCSD122 PRCSD123 PRCSP11 PRCSP121 PRCSP122 PRCSP124 PRCSP131 PRCSP132 PRCSP133 PRCSP2 PRCSP21 PRCSP21N PRCSP2N PRCSUT4

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
JDN	;CREATE 7 DIGIT JULIAN DATE FROM FM INTERNAL DATE
DLN	;GET NEXT SEQUENCE NUMBER FOR JULIAN DATE
NEXT
MSG
X
DIS
DIWP(DA)	;call DIWP^PRCUTL($G(DA)) to save DA value	ICR #6553 Status: Active Usage: Private

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P($T(DIS+I),";",3,99) Line Location: DIS+0
Routine Call	DIC Line Location: NEXT+1

Name	Line Occurrences (* Changed, ! Killed)
^PRCF(421.7 - [#421.7]	NEXT, NEXT+2

Name	Field # of Occurrence
^(0	NEXT+2*

Name	Field # of Occurrence
%	V+5, V+6!, DLN+4, NEXT+1*
>> %A	DIS+1*
>> %B	DIS+1*
>> %DT	X*
%X	V+6!
%Y	V+8!
DA	V+8!, DIWP~
DAY	JDN+2~, JDN+4*, JDN+7
DAYS	JDN+2~, JDN+3, JDN+5, JDN+6
DIC	NEXT+1*!
DIC(0	NEXT+1*
DLAYGO	NEXT+1*!
DT	V+6*, NEXT+2
I	JDN+2~, JDN+6, DIS~
K	NEXT~*
MO	JDN+2~, JDN+4*, JDN+6
>> PRC("SITE"	V+5, V+7, V+8, DIS+1
>> PRCFDLN	V+7, V+8
PRCFX	NEXT~, MSG*
PRCFX("X"	V+6*, V+7
X	V+5, V+6!, V+7, JDN+4, NEXT, NEXT+2!, MSG, X
Y	V+6!, V+7, V+8!, JDN+3, JDN+7, DLN+3, DLN+4, NEXT, NEXT+1, NEXT+2* , X
Y(0	NEXT+2*!
Y1	NEXT+2*!
YR	JDN+2~, JDN+4*, JDN+5, JDN+7
Z	JDN+2~, JDN+6*, JDN+7

Name	Field # of Occurrence
$T(DIS+I	DIS