Routine: PRCH7B

Information

PRCH7B ;WISC/PLT/CR-PURCHASE CARD PROSTHETICS ORDER INTERFACE ;05/18/1998 @ 10:33

Package	Total	Call Graph
IFCAP	12	EDIT^PRC0B DUZ^PRCFSITE ^PRCFYN C2237^PRCH442A (AMENDNO,DEL,INFO)^PRCHAMU (EN2,EN8)^PRCHAMXB LCK1^PRCHE $$VERIFY^PRCHES5 (CAN1,ENC)^PRCHMA (,PROS)^PRCHNPO Q^PRCHNPO4 ENPO^PRCHUTL
VA FileMan	1	^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Prosthetics	3	RMPR421A RMPR421B RMPR4C21

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;18;Oct 20, 2000
ADD(PRCA)	;add new order
ADDEX
EDITIC(PRCA,PRCB)	;edit order, prca=ri of prostheic order, prcb=ri of file 442
OBL(X,PRCA,PRCB,PRCC)	;obligate order, prca=ri of prosthetic order, prcb=ri of file 442, prcc=total cost
CANIC(PRCA)	;cancel order, prca=ri of prosthetic order, prcb=ri file 442
CAN(X,PRCA,PRCB,PRCC)	;cancel prosthetic order
CANEX

External References

Name	Field # of Occurrence
^DIE	OBL+8, OBL+15
EDIT^PRC0B	CANIC+3
DUZ^PRCFSITE	ADD+3, EDITIC+4, OBL+3, CAN+7
^PRCFYN	CAN+31, CAN+36
C2237^PRCH442A	CANIC+4
AMENDNO^PRCHAMU	CAN+38
DEL^PRCHAMU	CAN+34
INFO^PRCHAMU	CAN+39
EN2^PRCHAMXB	CAN+40
EN8^PRCHAMXB	CAN+41, CAN+43
LCK1^PRCHE	ADD+7, EDITIC+6
$$VERIFY^PRCHES5	CAN+12
CAN1^PRCHMA	CAN+43
ENC^PRCHMA	CAN+43
^PRCHNPO	ADD+7, EDITIC+6
PROS^PRCHNPO	OBL+17
Q^PRCHNPO4	ADDEX+3
ENPO^PRCHUTL	ADD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"This purchase order has been tampered with.",!,?5,"Please notify IFCAP APPLICATION COORDINATOR.",! Line Location: CAN+12
Function Call: WRITE	Prompt: !,$C(7),?5,"A PAYMENT HAS BEEN MADE FOR THIS PURCHASE CARD ORDER, CANNOT CANCEL!" Line Location: CAN+19
Function Call: WRITE	Prompt: !,"Someone else is editing this entry, try later." Line Location: CAN+23
Function Call: WRITE	Prompt: @IOF,"* You already have one pending amendment for this order. *",!,$C(7) Line Location: CAN+28
Function Call: WRITE	Prompt: !," If you proceed, your previous amendment will be DELETED." Line Location: CAN+29
Function Call: WRITE	Prompt: ! Line Location: CAN+30
Function Call: WRITE	Prompt: ! Line Location: CAN+31
Function Call: WRITE	Prompt: !," ...DELETING previous amendment..." Line Location: CAN+33
Function Call: WRITE	Prompt: "...DONE!" Line Location: CAN+34
Function Call: WRITE	Prompt: ! Line Location: CAN+34
Function Call: WRITE	Prompt: !," ...Preparing to cancel the order..." Line Location: CAN+35
Function Call: WRITE	Prompt: ! Line Location: CAN+35
Routine Call	DIE Line Location: OBL+8 OBL+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRC(442 - [#442]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(442	OBL+10
^PRC(411 - [#411]	ADD+5, EDITIC+5
^PRC(440.5 - [#440.5]	OBL+7
^PRC(442 - [#442]	ADD+7, ADDEX, EDITIC+4, EDITIC+6, OBL+7, OBL+9, OBL+10*, CAN+11, CAN+15, CAN+16 , CAN+23
^PRC(443.6 - [#443.6]	CAN+27, CAN+40, CAN+42
^PRCD(442.3 - [#442.3]	CAN+17, CAN+18

Label References

Name	Line Occurrences
ADDEX	ADD+7
CANEX	CAN+12, CAN+23, CAN+27, CAN+38, CAN+39, CAN+43
CANIC	ADDEX+1, OBL+18

Naked Globals

Name	Field # of Occurrence
^(0	CAN+42
^(23	ADDEX

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CANIC+4!, CAN+5~, CAN+27, CAN+31, CAN+32, CAN+36
%A	CANIC+4!, CAN+5~, CAN+31, CAN+36
%B	CANIC+4!, CAN+5~, CAN+31, CAN+36
A	ADD+2~, ADDEX, EDITIC+1~, OBL+1~, OBL+7, CANIC+1~, CAN+4~, CAN+11*
B	ADD+2~, EDITIC+1~, OBL+1~, CANIC+1~, CAN+4~
CAN	CAN+3~, CAN+8, CAN+42, CAN+43
D0	CAN+5~
D1	CAN+5~
DA	ADD+2~, ADD+7, ADDEX, ADDEX+1, EDITIC+1~, EDITIC+6, OBL+8, OBL+11, CANIC+4!, CAN+41* , CAN+43*
DA(1	OBL+11, CAN+41, CAN+43*
DEL	CAN+44!
DELIVER	CAN+4~
DIC	CAN+6~
DIE	OBL+1~, OBL+8, OBL+11
DR	OBL+8!, OBL+12
DR(1	OBL+13, OBL+14
ER	CAN+4~, CAN+39, CAN+43
FIS	CAN+4~, CAN+44!
FL	CAN+4~, CAN+39*
FLG1	EDITIC+2~*
I	CAN+6~
IOF	CAN+28
J	CAN+5~
LCNT	CAN+4~
NOCAN	CAN+3~, CAN+43
OUT	CAN+3~
PRC	CAN+1~
PRC("PARAM"	ADD+5, EDITIC+5
PRC("SITE"	ADD+4, ADD+5, EDITIC+4, EDITIC+5, CAN+11*
PRCA	ADD~, ADD+4, ADDEX, ADDEX+1, ADDEX+3~, EDITIC~, OBL~, CANIC~, CANIC+3, CANIC+4 , CAN~
PRCB	EDITIC~, EDITIC+4, EDITIC+6, OBL~, OBL+5, CAN~, CAN+10
PRCC	OBL~, OBL+6, CAN~
>> PRCENTRY	CAN+22*
PRCF	CAN+3~
PRCHAM	CAN+3~, CAN+38, CAN+41, CAN+42, CAN+43
PRCHAMDA	CAN+4~, CAN+41, CAN+43
PRCHAMT	CAN+6~, CAN+39*
PRCHAREC	CAN+6~
PRCHAU	CAN+3~
PRCHAUTH	CAN+1~, CAN+9*
PRCHAV	CAN+4~, CAN+39
PRCHBOC1	OBL+2~, OBL+7*
PRCHBOCC	OBL+2~
PRCHEDI	CAN+6~
PRCHER	CAN+3~
PRCHIMP	CAN+5~
PRCHL1	CAN+4~
PRCHL2	CAN+6~
PRCHLN	CAN+4~
PRCHN	OBL+2~, CAN+6~
PRCHN("SFC"	OBL+9*
PRCHNEW	CAN+3~, CAN+8*, CAN+41
PRCHNORE	CAN+5~, CAN+8*
PRCHNRQ	CAN+5~
PRCHO	CAN+6~
PRCHON	CAN+3~
PRCHP	CAN+5~
PRCHPC	ADD+1~, ADD+6, EDITIC+1~, EDITIC+3, OBL+1~, OBL+4, CANIC+1~, CANIC+2
PRCHPO	ADD+7, EDITIC+6, OBL+2~, OBL+6, OBL+8, OBL+10, OBL+11, CAN+3~, CAN+5~, CAN+10* , CAN+12, CAN+15, CAN+16, CAN+22, CAN+23, CAN+27, CAN+34, CAN+40, CAN+41, CAN+42 , CAN+43
PRCHRET	CAN+4~
>> PRCHSTOP	CAN+8, CAN+16, CAN+17, CAN+18
PRCHTOT	OBL+2~, OBL+6*, OBL+8
PRCHX	CAN+5~, CAN+41, CAN+43
PRCPROST	ADD+1~, ADD+6, ADDEX, EDITIC+1~, EDITIC+3, OBL+1~, OBL+4, OBL+18, CANIC+1~, CANIC+2 , CAN+1~, CAN+9*, CANEX
PRCRI	ADD+1~, EDITIC+1~, OBL+1~, CAN+1~
PRCRI(420	ADD+4*
PRCRI(440	ADD+4*
PRCRI(442	EDITIC+6, OBL+5, OBL+6, OBL+7, OBL+9, OBL+18, CAN+10*, CAN+11
REPO	CAN+5~, CAN+44!
RETURN	CAN+3~
>> RMPRPRCH	CAN+8, CAN+15, CAN+17, CAN+18*, CAN+19
ROU	CAN+6~
SFUND	CAN+6~
U	OBL+7, OBL+9, OBL+10, CAN+16, CAN+40, CAN+42
X	ADD+2~, ADD+5, EDITIC+1~, OBL~, OBL+18, CANIC+1~, CANIC+3, CAN~, CAN+19, CAN+40 , CAN+41, CAN+43, CANEX*
Y	ADD+2~, EDITIC+1~, OBL+1~, OBL+17, CANIC+1~, CAN+2~, CAN+34*

Customize PDF page

Package: IFCAP