Routine: RMPR4C2

Information

RMPR4C2 ;;HINES-OI/HNC - PURCHASE CARD VERIFY PC# FOR RECONCILIATION;10/29/2001

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA FileMan	5	(,DD)^%DT C^%DTC ^DIE GETS^DIQ ^DIR
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD KILL^XUSCLEAN
Prosthetics	4	$$DEC^RMPR4LI DIV4^RMPRSIT $$STA^RMPRUTIL $$DAT1^RMPRUTL1

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: 1

Package	Total	Caller Graph
Prosthetics	1	RMPR VERIFY/REPAIR PC NUMBER

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry Point
PCRD	;ask purchase card number
PCRDN
PRINT
CK	;set tmp of list to compare with 440.6
COMP	;Enter RETURN to continue or '^' to exit:
ST	;continue if user didn't want out, or time out
HDR	;header
EXIT	;Common Exit

External References

Name	Field # of Occurrence
^%DT	EN+7, EN+9
DD^%DT	EN+13
C^%DTC	PRINT
^%ZIS	PCRDN+8
HOME^%ZIS	EN+5
^%ZISC	EXIT+2
^%ZTLOAD	PCRDN+15
^DIE	ST+48
GETS^DIQ	ST+23
^DIR	PCRD+3, PCRDN+2, ST+37, EXIT+1
$$DEC^RMPR4LI	CK+13
DIV4^RMPRSIT	EN+4
$$STA^RMPRUTIL	HDR+3
$$DAT1^RMPRUTL1	ST+13
KILL^XUSCLEAN	EXIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"Verify and Repair Purchase Card Number Associated with the" Line Location: EN+1
Function Call: WRITE	Prompt: !,?5,"ORACLE Document for Reconciliation" Line Location: EN+2
Function Call: WRITE	Prompt: !,?5,"You Must Be the Card Holder of both OLD and NEW Cards!",!! Line Location: EN+3
Function Call: WRITE	Prompt: !,$C(7),"Invalid Date Range Selection!!" Line Location: EN+11
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Try Later!" Line Location: PCRD+4
Function Call: WRITE	Prompt: !,"Must be 16-Digit Number." Line Location: PCRD+5
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Try Later!" Line Location: PCRDN+3
Function Call: WRITE	Prompt: !,"Must be 16-Digit Number." Line Location: PCRDN+4
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"* NO DATA TO PRINT *",!! Line Location: ST+2
Function Call: WRITE	Prompt: ?63,"\|" Line Location: ST+7
Function Call: WRITE	Prompt: ?65,"Okay" Line Location: ST+36
Function Call: WRITE	Prompt: ?65,"Diff Card #" Line Location: ST+41
Function Call: WRITE	Prompt: !,"Record in use by another user. Try Later!" Line Location: ST+47
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,RMPRX_"-",RMPRY," Verify PC# "_RMPRPCRD_" STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,! Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Order Date",?14,"Order Number",?28,"\|",?30,"ORACLE PC #",?50,"VISA II",?63,"\|",?65,"Record Status",!,RMPR("L") Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Routine Call	DIE Line Location: ST+48
Routine Call	DIR Line Location: PCRD+3 PCRDN+2 ST+37 EXIT+1
Routine Call	%ZIS Line Location: PCRDN+8
Routine Call	%ZIS Line Location: EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCH(440.6 - [#440.6]	Classic Fileman Calls, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	ST+5
^PRCH(440.6 - [#440.6]	ST+17, ST+19, ST+21, ST+47, ST+49
^RMPR(664 - [#664]	PRINT+3, CK+1, CK+6, CK+7, CK+9, CK+12, CK+13, CK+15, ST+13, ST+43*
^TMP($J	EN+4!, CK+17*, ST+2, ST+4, ST+10, ST+12, EXIT+1, EXIT+3!

Label References

Name	Line Occurrences
CK	PRINT+3
EN	EN+11
EXIT	EN+4, EN+8, EN+9, PCRD+4, PCRDN+3, PCRDN+8, PCRDN+15, PRINT+6
HDR	PRINT+5, ST+37, ST+38
PCRD	PCRD+5
PCRDN	PCRDN+4
PRINT	PCRDN+9
ST	PRINT+5

Naked Globals

Name	Field # of Occurrence
^(0	CK+6, CK+7
^(4	CK+6, ST+43*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	EN+7, EN+9
>> %DT("A"	EN+7, EN+9
>> %ZIS	PCRDN+8*
>> BDT	ST+16, ST+17, ST+19
DA	ST+46*, ST+47, ST+49, ST+50!
DIE	ST+46*, ST+47!, ST+50!
DIR	PCRD+1!, PCRD+3!, PCRDN!, PCRDN+2!
DIR("?"	PCRD+2, PCRDN+1
DIR("A"	PCRD+1, PCRDN
DIR(0	PCRD+1, PCRDN, ST+37, EXIT+1
DR	ST+46*, ST+50!
DT	ST+43
>> DTOUT	PCRD+4, PCRDN+3, ST+37
>> DUOUT	PCRD+4, PCRDN+3
DUZ	ST+21
>> IFST	ST+24*
IO	PCRDN+9
IO("Q"	PCRDN+9, PCRDN+10!
IOF	PRINT+1, HDR+2
ION	PCRDN+14
IOP	PCRDN+8!
IOSL	COMP+3, ST+37, ST+38
IOST	PRINT+1, ST+37, ST+38, EXIT+1
>> ORDATE	ST+13*, ST+14
>> PAGE	PRINT, HDR+2, HDR+3, HDR+4
>> PC	ST+24*, ST+33, ST+36, ST+39, ST+41, ST+43
>> PO	ST+3, ST+4, ST+5, ST+10, ST+12
>> POE	ST+5*, ST+6, ST+15, ST+28
>> POP	PCRDN+8
>> PSASV2	ST+28*, ST+30
>> PSPC	ST+9, ST+10, ST+12, ST+36, ST+39
>> RCNT	ST+18, ST+31, ST+32
>> RD	ST+11, ST+12, ST+13, ST+43
>> REC440	ST+18, ST+19, ST+21, ST+22, ST+43, ST+46
>> RECIEN40	ST+22*, ST+23, ST+24
RM440	ST+22!*
RM440(	ST+24
RMPR	EXIT+2~
RMPR("L"	HDR+5
RMPR("STA"	CK+7
>> RMPRBDT	EN+8*, EN+11, EN+13, PRINT, PRINT+2, ST+16
>> RMPRCOUN	EN+6*
>> RMPREDT	EN+10*, EN+11, EN+13, PRINT+3
>> RMPREND	PRINT, PRINT+4, ST+4, ST+10, ST+12, ST+19, ST+37, ST+47, HDR+1, EXIT+1
>> RMPRFLG	PRINT, PRINT+4, COMP+2, COMP+3
>> RMPROBL	CK+13*, CK+14, CK+17
>> RMPRODR	CK+15*, CK+16, CK+17
>> RMPRPCNW	PCRDN+5*, ST+41
>> RMPRPCRD	PCRD+6*, CK+14, HDR+3
RMPRSITE	EXIT+2~
>> RMPRX	EN+13*, HDR+3
>> RMPRY	EN+13*, HDR+3
>> RO	PRINT+2, PRINT+3
>> ROBL	CK+12*
>> RP	PRINT+3*, CK+1, CK+6, CK+7, CK+9, CK+12, CK+13, CK+15, CK+17
U	CK+6, CK+7, CK+9, CK+12, CK+13, CK+15, ST+5, ST+13, ST+21, ST+43
>> VISA2	ST+11, ST+24, ST+26*, ST+30, ST+34
>> X	EN+4, PCRD+5, PCRDN+4
>> X1	PRINT*
>> X2	PRINT*
>> Y	EN+8, EN+9, EN+10, EN+13*, PCRD+6, PCRDN+5, ST+37
>> ZTDESC	PCRDN+11*
>> ZTIO	PCRDN+14*
>> ZTRTN	PCRDN+11*
>> ZTSAVE("RMPR("	PCRDN+13*
>> ZTSAVE("RMPRBDT"	PCRDN+12*
>> ZTSAVE("RMPREDT"	PCRDN+12*
>> ZTSAVE("RMPRPCNW"	PCRDN+14*
>> ZTSAVE("RMPRPCRD"	PCRDN+13*
>> ZTSAVE("RMPRX"	PCRDN+14*
>> ZTSAVE("RMPRY"	PCRDN+13*
>> ZTSK	PCRDN+15

Customize PDF page

Package: Prosthetics