Routine: RMPR21

Package	Total	Call Graph
Prosthetics	10	(CHKCPT,COT,P24,ZDSP)^RMPR21A FILE^RMPR21B POST^RMPR29U DIS^RMPRAP ^RMPRLI EN2520^RMPRM ^RMPRPAT (BAL,EYE,PRCS)^RMPRPSC LINK^RMPRS GETPAT^RMPRUTIL
VA FileMan	5	^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
IFCAP	1	EN1^PRCS58
Registration	1	(DEM,KVAR)^VADPT

Package	Total	Caller Graph
Prosthetics	7	RMPR21A RMPR21B RMPR22 RMPR29P RMPRL9 RMPROP RMPRPSC

Entry Points

Name	Comments	DBIA/ICR reference
ST
A
EN1
VIEW	;VIEW 10-2319
CON
CHK
ASK	;POST TRANSACTION QUESTION
DEL	;
L
H
CHK1	;CHECK FOR EXISTENCE OF ITEMS ON PURCHASING FORMS
ERROR	;ERROR MESSAGE FOR FAILED POSTING
KILL	;DELETE PURCHASING ENTRY
TMP
EXIT	;EXIT AND KILL VARIABLES. SET UP OBLIGATION NUMBER QUESTION
EXT

External References

Name	Field # of Occurrence
^DIC	L+2
FILE^DICN	EN1+6
YN^DICN	A, ASK+2, DEL+1
^DIE	CON+1, L+9, L+13
^DIK	KILL+2, TMP+3
^DIR	EXIT+1
EN1^PRCS58	RMPR21+5
CHKCPT^RMPR21A	CHK1+6
COT^RMPR21A	VIEW+7
P24^RMPR21A	VIEW+6
ZDSP^RMPR21A	L+1
FILE^RMPR21B	ASK+2
POST^RMPR29U	EXT+4
DIS^RMPRAP	VIEW+3
^RMPRLI	DEL+3
EN2520^RMPRM	VIEW+2
^RMPRPAT	VIEW+1
BAL^RMPRPSC	RMPR21+6
EYE^RMPRPSC	VIEW+8
PRCS^RMPRPSC	EXT+6
LINK^RMPRS	EXIT+2
GETPAT^RMPRUTIL	EN1
DEM^VADPT	EN1+8
KVAR^VADPT	EXIT+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: "Do you wish to Continue" D YN^DICN G Timeout: %=1 Line Location: A+0
Function Call: WRITE	Prompt: !!,$C(7),?5,"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",! Line Location: CHK+1
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Please Try Later!" Line Location: CHK+3
Function Call: WRITE	Prompt: !!,"Are you ready to POST to IFCAP and 10-2319 NOW" Line Location: ASK+1
Function Call: WRITE	Prompt: !,"This will Create a Daily Transaction in the 1358 Module of IFCAP,",!,"and Create an Entry on the Prosthetic 10-2319 Record." Line Location: ASK+3
Function Call: READ	Prompt: ! Variable: "Do you want to Delete this Transaction" D YN^DICN I $D(DTOUT)!(%=1) S Timeout: $D(RMPRA) Line Location: DEL+1
Function Call: WRITE	Prompt: !!,"ENTER YES OR NO!!",$C(7) Line Location: DEL+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: L+0
Function Call: WRITE	Prompt: !!,$C(7),?5,"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",! Line Location: L+12
Function Call: WRITE	Prompt: !,"This will create a transaction, post to IFCAP, and update the 2319 report",! Line Location: H+0
Function Call: WRITE	Prompt: !,MSG,! Line Location: ERROR+1
Function Call: WRITE	Prompt: !,$C(7),?5,"*PLEASE CONTACT YOUR FISCAL SERVICE*",!,Y Line Location: ERROR+2
Function Call: WRITE	Prompt: !,$C(7),?20,"Deleted..." Line Location: KILL+2
Routine Call	DIC Line Location: L+2
Routine Call	DIE Line Location: CON+1 L+9 L+13
Routine Call	DIR Line Location: EXIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RMPR(664 - [#664]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(664 - [#664]	CON+1, CHK+2*, CHK1+2, CHK1+4
^RMPR(664.2 - [#664.2]	KILL+3, TMP+1
^TMP($J	RMPR21+4!, EXT+1!

Label References

Name	Line Occurrences
A	H
ASK	ASK+3, DEL+3, L+1
CHK	L+11
CHK1	CHK
DEL	DEL+2
EN1	A
EXIT	RMPR21+5, A+1
EXT	EN1+1
H	A
KILL	VIEW+1, VIEW+2, VIEW+3, CON+1, CHK+1, ASK+2, DEL+1, L, L+12
L	L+1, L+3, L+13
ST	EXT+6

Naked Globals

Name	Field # of Occurrence
^(	CHK1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	A, ASK+1, ASK+2, ASK+3, DEL+1, DEL+2, EXT!
B1	ST*, EXT!
B2	ST*, EXT!
D1	EXT!
DA	VIEW+4, L+3!, L+4, L+13, CHK1+6, KILL+2, TMP, TMP+1*, EXT!
DA(1	L+4, CHK1+6, TMP+2*
DD	EN1+5!
>> DFN	EN1+8*
DIC	EN1+2!, EN1+4, EN1+6!, L+2, L+4, EXT!
DIC("DR"	EN1+2!, EN1+3*
DIC(0	EN1+4, L+2
DIE	VIEW+4, L+4, L+13*, EXT+2!
DIK	KILL+2, KILL+3!, TMP+2, EXT!
DINUM	EN1+2!
>> DIR("A"	EXIT+1*
>> DIR(0	EXIT+1*
DLAYGO	EN1+4*, EN1+6!
DO	EN1+5!
DR	CON!, CON+1, L+6, L+9, L+13, EXT+2!
DT	EN1+3
DTIME	L
DTOUT	ASK+2, DEL+1, EXIT+2, EXT+2!
DUZ	CHK+2
FL	CHK+1, L+12, CHK1+1, CHK1+2, CHK1+3, CHK1+5, EXT!
FL1	EXT!
HY	EXT!
LINE	EXT+3!
MSG	ERROR+1, EXT+3!
NAME	EXT+3!
PQTY	EXT!
PRC	EXT+7!
PRCS	EXT!, EXT+7!
PRCS("A"	RMPR21+5*
PRCSCPAN	EXT!
PRCSIP	EXT!
R1	ST*, EXT!
RA	EXT+3!
RAC	EXT!
>> RB	CHK1+4*, CHK1+5
RBL	EXT+7!
RD	EXT!
RDA	EXT+7!
RDP	EXT+3!
RI	CHK1+2*, CHK1+4, CHK1+6, EXT+3!
RMCAT	EXT+3!
RMPR660	EXT+2!
RMPRA	EN1+7*, VIEW+4, CON+1, CHK+2, DEL+1, L+2, L+4, L+13, CHK1+2, CHK1+4 , CHK1+6, TMP+1, EXIT+3, EXT+2!
RMPRAMIS	EXT!
RMPRARD	EXT!
RMPRBAC1	VIEW+1*!
RMPRCNT	EXT!
RMPRCONT	EXT!
RMPRCT	ST*, EXT!
RMPRCTK	EXT!
>> RMPRDA	EXIT+3, EXT+5
RMPRDELN	EXT+3!
RMPRDES	EXT+2!
RMPRDFN	EN1+1, EN1+8, EXT+2!
RMPRDIE	VIEW+3, EXT+2!
RMPRDIS	EXT+2!
RMPRDOB	EXT+2!
RMPRDOD	KILL+2!
RMPRDR	VIEW+5*, VIEW+6, VIEW+7, VIEW+8, CON+1, L+9, EXT+2!
RMPRDS	ST*, EXT!
RMPRF	ST+1, VIEW+2, VIEW+3, VIEW+5, EXIT+3, EXT+7!
RMPRFLAG	VIEW+3*, EXT!
RMPRG	EXT!
RMPRGO	EXT!
RMPRI	EXT!
RMPRI1	EXT+3!
RMPRIN	EXT!
RMPRIS	ST*, EXT+2!
RMPRIT	EXT!
RMPRIT1	EXT!
RMPRK	EN1+7, DEL+1, KILL+1, KILL+2, EXT+2!
RMPRKILL	VIEW+1, EXT+7!
RMPRNAM	EXT+2!
RMPRNOB	EXT!
RMPROB	RMPR21+6*, A+1!, KILL+2!, EXT+6, EXT+7!
RMPRPC	EXT!
RMPRPI	EXT+3!
RMPRPSC	EXT!
RMPRQT	ST*, EXT!
RMPRR	ST*, EXT+2!
RMPRS	EXT+2!
>> RMPRSA	EXIT+3*
RMPRSC	EXT+2!
>> RMPRSDA	EXIT+3*
RMPRSER	EXT+3!
>> RMPRSF	EXIT+3*
RMPRSH	EXT!
RMPRSR	EXT+2!, EXT+3!
RMPRSSN	EXT+2!
RMPRSSNE	EXT+3!
RMPRT	EXT+3!
RMPRTN	EXT+3!
RMPRTO	ST*, EXT!
RMPRTRN	EXT+2!
RMPRU	EXT!
RMPRUP	EXT+3!
RMPRV	EXT+3!
>> RMPRWO	KILL+3, TMP+1, TMP+2, EXT+4
RMPRX	DEL+3, EXT+2!
RMSPE	EXT+3!
RMTYP	EXT+3!
RVA	EXT+7!
RX	EXT+7!
SR	EXT!
TYPE	EXT!
U	RMPR21+6, CON+1, CHK+2, CHK1+5
>> X	EN1+3, L, L+1, EXT+6
Y	RMPR21+5, RMPR21+6, EN1+6, EN1+7, L+3!, L+4, ERROR+2, EXT+3!

Customize PDF page

Package: Prosthetics

Routine: RMPR21

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: