Routine: PRCSCK

Information

PRCSCK ;SF-ISC/KSS/TKW/SC-CP INPUT TEMPLATE CHECK RTN ;7/9/13 16:00

Package	Total	Call Graph
IFCAP	3	($$ITDES,$$ITDESALL)^PRCHJUTL (,SCP0)^PRCSCK1 ($$GETBOCNT,$$GETCCCNT,$$VALIDBOC,$$VALIDCC)^PRCSECP
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
VA FileMan	2	EN^DDIOL ^DIE
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
IFCAP	54	PRCE 1358 ADJUSTMENT PRCE NEW 1358 PRCE NEW 1358S PRCOSS6 PRCPAGPR PRCSAPP2 PRCSCPY PRCSEA PRCSEB PRCSEB0 PRCSECP PRCSED PRCSEDS PRCSEN1358 PRCSEN1358A PRCSEN1358S PRCSEN2237B PRCSEN2237S PRCSENA PRCSENA 1358 PRCSENC PRCSENCOD PRCSENCODS PRCSENCT PRCSENE PRCSENIB PRCSENIBS PRCSENOD PRCSENPR PRCSENPRS PRCSENR&NR PRCSENR&NRS PRCSRIG1 PRCST11 PRCST13 PRCST17 PRCST18 PRCST19 PRCST21 PRCST22 PRCST26 PRCST27 PRCST32 PRCST34 PRCST36 PRCST37 PRCST38 PRCST41 PRCST42 PRCST43 PRCST44 PRCST45 PRCST46 PRCSUT2

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;81,174;Oct 20, 2000;Build 23
EX
1
2	;ENTRY POINT WITHIN SUB-FIELD - (DA & DA(1)) DEFINED, OR	ICR #1526 Status: Pending Usage: Private
3
4
5
6
7
8
9
RB
RB1
RB3
RB4
EX1
EXIT
QRB		ICR #1526 Status: Pending Usage: Private
QRB1
QRB2
ISSUPFCP(STA,FCP)	;RETURN 1 IF THIS IS A SUPPLY FUND FCP, 0 IF IT ISN'T
SUPPLYCC()	;RETURN DEFAULT CC FOR SUPPLY FUND FCPS
SUPPLBOC()	;RETURN DEFAULT BOC FOR SUPPLY FUND FCPS
SETY	;SETS BRANCHING LOGIC FOR INPUT TEMPLATE 'PRCPIB' AND 'PRCSENIB' (INPUT TEMPLATES FOR ISSUE BOOK REQUESTS)
CHGCCBOC(CXLTXN,RPLTXN,OFCP,MUSTCHG)	;
OKCCBOC(TRANSXN)	;TRANSXN = transaction# of transaction to check
GETTXNCP(TRANSID,OUTIEN,OUTSTA)	;GET IEN AND CONTROL POINT # FOR TRANSACTION
CHKITDES(PRCDA)	;2237 input template - check all line items for a description

External References

Name	Field # of Occurrence
EN^DDIOL	OKCCBOC+14, OKCCBOC+28, OKCCBOC+40
^DIE	CHGCCBOC+20
$$ITDES^PRCHJUTL	2+8
$$ITDESALL^PRCHJUTL	CHKITDES+21
^PRCSCK1	V+8
SCP0^PRCSCK1	V+10
$$GETBOCNT^PRCSECP	CHGCCBOC+24, OKCCBOC+18
$$GETCCCNT^PRCSECP	CHGCCBOC+15
$$VALIDBOC^PRCSECP	CHGCCBOC+41, CHGCCBOC+47, OKCCBOC+22, OKCCBOC+36
$$VALIDCC^PRCSECP	OKCCBOC+9
$$FMTE^XLFDT	QRB+7
$$UP^XLFSTR	CHKITDES+24
$$GET^XPAR	QRB+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,$C(7),"ITEM # "_$P(^PRCS(410,PRCSJ,"IT",PRCSI,0),U,1)_" "_PRCSL_" MISSING!" Line Location: 2+11
Function Call: WRITE	Prompt: !,?50,"TRANSACTION BEG BAL: ",$S(PRCST:$J(PRCST,0,2),1:"0.00") Line Location: RB+1
Function Call: WRITE	Prompt: $C(7),!,"This is $ ",$J(PRCS(3),0,2)," more than the total available.",!,"Please re-edit your entries!" Line Location: RB1+2
Function Call: WRITE	Prompt: ?29,"RUNNING TOTAL: ",$S(PRCS(2):$J(PRCS(2),0,2),1:"0.00"),?64,"BAL: ",$S(PRCST(1)-PRCS(2):$J(PRCST(1)-PRCS(2),0,2),1:"0.00") Line Location: RB4+0
Function Call: WRITE	Prompt: !?50,"QTY BEG BAL: ",PRCSQT Line Location: QRB+1
Function Call: WRITE	Prompt: !?37,"DynaMed's DATE NEEDED BY: "_PRCVDN Line Location: QRB+7
Function Call: WRITE	Prompt: ?55,"QTY RUN BAL: ",PRCS(1) Line Location: QRB2+1
Function Call: WRITE	Prompt: !!,"Cost Center updated to ",RPLCC,! Line Location: CHGCCBOC+16
Function Call: WRITE	Prompt: !!,"BOC updated to ",RPLBOC," for the new document.",!! Line Location: CHGCCBOC+26
Function Call: WRITE	Prompt: !!," This document refers to the following BOC(s):",! Line Location: CHGCCBOC+37
Function Call: WRITE	Prompt: " [NONE]",!! Line Location: CHGCCBOC+38
Function Call: WRITE	Prompt: " BOC: ",I,":" Line Location: CHGCCBOC+40
Function Call: WRITE	Prompt: " INVALID " Line Location: CHGCCBOC+41
Function Call: WRITE	Prompt: !," BOC ",+I," ITEM(S): ",$E(RPLBOC(I),1,$L(RPLBOC(I))-1) Line Location: CHGCCBOC+42
Function Call: WRITE	Prompt: !! Line Location: CHGCCBOC+43
Function Call: WRITE	Prompt: !!,"This document uses BOC ",RPLBOC Line Location: CHGCCBOC+46
Function Call: WRITE	Prompt: " INVALID " Line Location: CHGCCBOC+47
Function Call: WRITE	Prompt: !,"You must edit this document to correct the BOC entries now.",! Line Location: CHGCCBOC+48
Function Call: WRITE	Prompt: !?3,$$UP^XLFSTR($G(PRCWARN(PRCIDX))) Line Location: CHKITDES+24
Routine Call	DIE Line Location: CHGCCBOC+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(411 - [#411]	6
^PRC(420 - [#420]	2+3, 4, ISSUPFCP+1
^PRCS(410 - [#410]	V+8, 1, 2+5, 2+11, 4+1, 7, 8, RB, RB1, RB3 , QRB, QRB+7, QRB2, CHGCCBOC+13, CHGCCBOC+16, CHGCCBOC+21, CHGCCBOC+28, CHGCCBOC+29, CHGCCBOC+30, CHGCCBOC+33 , CHGCCBOC+34, CHGCCBOC+45, OKCCBOC+7, OKCCBOC+8, OKCCBOC+21, OKCCBOC+34, OKCCBOC+35, OKCCBOC+39, GETTXNCP+1, GETTXNCP+2 , GETTXNCP+3, CHKITDES+16
^PRCS(410.6 - [#410.6]	QRB2

Label References

Name	Line Occurrences
$$GETTXNCP	CHGCCBOC+9, CHGCCBOC+10, OKCCBOC+5
1	V+8
2	V+8
3	7+1, 9
4	7, 7+1, 8, 9
5	7
6	7+2, 8, 9
@(	2+9
EX	V+9
EXIT	RB+1, RB1+4, QRB+8
QRB2	1
RB3	RB1+1
RB4	RB1+3

Naked Globals

Name	Field # of Occurrence
^(	RB1, QRB2
^(0	1, 2+5, 6, QRB, QRB2
^(2	7, 8
^(3	7, 8
^(4	RB, RB3, QRB+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	OKCCBOC+3~, OKCCBOC+14, OKCCBOC+28, OKCCBOC+40
A(	OKCCBOC+37, OKCCBOC+38, OKCCBOC+40*
A(1	OKCCBOC+11, OKCCBOC+23
A(2	OKCCBOC+12, OKCCBOC+24, OKCCBOC+25, OKCCBOC+26
A(3	OKCCBOC+13, OKCCBOC+27
BOC	OKCCBOC+4~, OKCCBOC+21, OKCCBOC+22, OKCCBOC+23, OKCCBOC+35, OKCCBOC+36, OKCCBOC+37
BOCC	OKCCBOC+4~, OKCCBOC+18*, OKCCBOC+24, OKCCBOC+25, OKCCBOC+39, OKCCBOC+40
CC	OKCCBOC+3~, OKCCBOC+8*, OKCCBOC+9, OKCCBOC+11, OKCCBOC+18, OKCCBOC+22, OKCCBOC+36
CCCNT	CHGCCBOC+7~, CHGCCBOC+15*, CHGCCBOC+16, OKCCBOC+3~
CXLCC	CHGCCBOC+7~
CXLDA	CHGCCBOC+7~, CHGCCBOC+9
CXLFCP	CHGCCBOC+7~, CHGCCBOC+9, CHGCCBOC+11, CHGCCBOC+12
CXLSTA	CHGCCBOC+7~, CHGCCBOC+9
CXLTXN	CHGCCBOC~, CHGCCBOC+9
DA	V+8, 1, 2+2, 2+4, RB, QRB, QRB+7, QRB1, CHGCCBOC+8~, CHGCCBOC+18* , OKCCBOC+3~, OKCCBOC+5, OKCCBOC+6, OKCCBOC+7, OKCCBOC+8, OKCCBOC+21, OKCCBOC+24, OKCCBOC+34, OKCCBOC+35, OKCCBOC+39
DA(1	2+2, 2+4, RB1, RB3, QRB, QRB+7, QRB1
DA(2	QRB1
>> DIC("S"	CHGCCBOC+19*
DIE	CHGCCBOC+8~, CHGCCBOC+18*, OKCCBOC+4~
DONE	CHGCCBOC+7~, CHGCCBOC+25*, CHGCCBOC+31, OKCCBOC+3~
DR	CHGCCBOC+8~, CHGCCBOC+18*, OKCCBOC+4~
FCP	ISSUPFCP~, ISSUPFCP+1, OKCCBOC+3~, OKCCBOC+5*, OKCCBOC+9, OKCCBOC+18, OKCCBOC+22, OKCCBOC+36
FTYPE	OKCCBOC+4~, OKCCBOC+7*, OKCCBOC+20
GOODCC	OKCCBOC+3~, OKCCBOC+9*, OKCCBOC+10
I	CHGCCBOC+8~, CHGCCBOC+28, CHGCCBOC+29, CHGCCBOC+33, CHGCCBOC+34, CHGCCBOC+35, CHGCCBOC+36, CHGCCBOC+39, CHGCCBOC+40, CHGCCBOC+41 , CHGCCBOC+42, OKCCBOC+4~, OKCCBOC+33, OKCCBOC+34, OKCCBOC+35, OKCCBOC+37, OKCCBOC+39
J	CHGCCBOC+8~, OKCCBOC+4~, OKCCBOC+33, OKCCBOC+37, OKCCBOC+38, OKCCBOC+40*
MUSTCHG	CHGCCBOC~, CHGCCBOC+48
>> NEWBOC	CHGCCBOC+24*, CHGCCBOC+25
OFCP	CHGCCBOC~, CHGCCBOC+11
OUTIEN	GETTXNCP~, GETTXNCP+1*, GETTXNCP+2, GETTXNCP+3
OUTSTA	GETTXNCP~, GETTXNCP+2*
>> PRC("CP"	2+3, 4
>> PRC("SITE"	2+3, 4, 6
PRCDA	CHKITDES~, CHKITDES+14*, CHKITDES+15, CHKITDES+16, CHKITDES+21
PRCHJFT	CHKITDES+16~*, CHKITDES+18
PRCIDX	CHKITDES+22~, CHKITDES+23, CHKITDES+24
PRCS	EX!, RB1, EXIT!, QRB2
PRCS(1	RB1, RB3, QRB2, QRB2+1, QRB2+2
PRCS(2	RB1+2, RB3, RB4, QRB2
PRCS(3	RB1+2*
PRCS(410	OKCCBOC+24*
PRCSBOC	2+3~
>> PRCSCST	QRB*
PRCSDA	EX!, EX1!, QRB1*
PRCSDA1	EX!, 1, EX1!, QRB1, QRB2
PRCSDA2	EX!, 1, EX1!, QRB1, QRB2
>> PRCSDR	2+7, 2+9, 7+2, 8, 9
>> PRCSERR	V+8, V+9, 2+4, 2+8, 2+9, 2+10, 2+11, 3, 4, 5 , 6, 7, 7+1, 7+2, 8, 9, QRB2+2*, SETY+1, SETY+2
PRCSF	V+8*, EX!, 1, 2+2, 2+4, 2+12, QRB2+1, QRB2+2
PRCSI	V+8, EX!, 1, 2+4, 2+5, 2+8, 2+11, 2+12!, 4+1
PRCSIDA	2+3~, 4+1*
PRCSII	RB1*, EXIT!
PRCSJ	2+4*, 2+5, 2+8, 2+11, 2+12!, 4+1, 7, 8
PRCSJJ	EXIT!, QRB2*
PRCSL	2+10*, 2+11, 2+12!
PRCSQT	EX!, 1, EX1!, QRB, QRB+1, QRB2
PRCST	RB, RB+1, RB3, EXIT!
PRCST(1	RB1+2, RB3*, RB4
PRCSVAR	2+5*, 2+8, 2+12!, 3, 4, 5, 6, 7, 8
PRCVDN	QRB+6~, QRB+7*
PRCVDT	QRB+6~, QRB+7*
PRCWARN	CHKITDES+20~, CHKITDES+21, CHKITDES+27
PRCWARN(	CHKITDES+23, CHKITDES+24
RPLBOC	CHGCCBOC+8~, CHGCCBOC+25, CHGCCBOC+26, CHGCCBOC+29, CHGCCBOC+30, CHGCCBOC+34, CHGCCBOC+35, CHGCCBOC+45*, CHGCCBOC+46, CHGCCBOC+47
RPLBOC(	CHGCCBOC+35*, CHGCCBOC+39, CHGCCBOC+42
RPLBOC(""	CHGCCBOC+38
RPLCC	CHGCCBOC+7~, CHGCCBOC+16, CHGCCBOC+21, CHGCCBOC+24, CHGCCBOC+41, CHGCCBOC+47
RPLDA	CHGCCBOC+7~, CHGCCBOC+10, CHGCCBOC+13, CHGCCBOC+16, CHGCCBOC+18, CHGCCBOC+21, CHGCCBOC+28, CHGCCBOC+29, CHGCCBOC+30, CHGCCBOC+33 , CHGCCBOC+34, CHGCCBOC+45
RPLFCP	CHGCCBOC+7~, CHGCCBOC+10*, CHGCCBOC+12, CHGCCBOC+15, CHGCCBOC+24, CHGCCBOC+41, CHGCCBOC+47
RPLFTYPE	CHGCCBOC+8~, CHGCCBOC+13*, CHGCCBOC+27, CHGCCBOC+30, CHGCCBOC+32, CHGCCBOC+44
RPLSTA	CHGCCBOC+7~, CHGCCBOC+10, CHGCCBOC+15, CHGCCBOC+24, CHGCCBOC+41, CHGCCBOC+47
RPLTXN	CHGCCBOC~, CHGCCBOC+10
RV	CHGCCBOC+7~, CHGCCBOC+24, CHGCCBOC+25, CHGCCBOC+41, CHGCCBOC+47, CHGCCBOC+48, CHGCCBOC+49, OKCCBOC+3~, OKCCBOC+19, OKCCBOC+20 , OKCCBOC+29, OKCCBOC+40*, OKCCBOC+41
SPEC	2+3~*
STA	ISSUPFCP~, ISSUPFCP+1, OKCCBOC+3~, OKCCBOC+5, OKCCBOC+6, OKCCBOC+9, OKCCBOC+18, OKCCBOC+22, OKCCBOC+36
TRANSID	GETTXNCP~, GETTXNCP+1
TRANSXN	OKCCBOC~, OKCCBOC+5
U	1, 2+11, 3, 4, 5, 6, 7, 8, RB, RB1 , RB3, QRB, QRB2, CHGCCBOC+13, CHGCCBOC+16, CHGCCBOC+21, CHGCCBOC+25, CHGCCBOC+29, CHGCCBOC+30, CHGCCBOC+34 , CHGCCBOC+45, OKCCBOC+7, OKCCBOC+8, OKCCBOC+21, OKCCBOC+24, OKCCBOC+35, OKCCBOC+39, OKCCBOC+40, GETTXNCP+2, GETTXNCP+3
>> Y	2+11, RB1+2, QRB2+2, SETY+2, CHKITDES+27*

Customize PDF page

Package: IFCAP

Routine: PRCSCK

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 54

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: