Routine: RMPREOS

Information

RMPREOS ;HINES-CIOFO/HNC,RN,ATG/JPN -Suspense Processing ;July 29, 2020@10:00

Package	Total	Call Graph
VA FileMan	6	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK ^DIR
Consult Request Tracking	3	$$VALIDU^GMRCAU ($$DC,$$FR)^GMRCGUIA ($$SFILE,CMT)^GMRCGUIB
Prosthetics	2	$$UP68^RMPRPCE1 (ICDT,SEL60)^RMPRPCEL

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	RMPREO23

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Add Manual Suspense
EX
EN2	;edit MANUAL suspense record
PROC
ENIA	;initial action note
FORW	;forward consult
CLNT	;post closed note
OACT	;other notes - no initial needed 3/12/01
CANCEL	;cancel suspense
LINK60	;link suspense to 2319 records
SCR(SERV,USR)	; SCREEN SERVICES THAT CAN BE FORWARDED TO ,RMPR385

External References

Name	Field # of Occurrence
NOW^%DTC	EN+3, ENIA+4, FORW+3, CLNT+4, OACT+12, CANCEL+11
^DIC	FORW+9, OACT+14
FILE^DICN	EN+6
^DIE	EN+9, PROC+10, ENIA+9, ENIA+10, FORW+16, FORW+19, FORW+20, FORW+32, FORW+35, FORW+38 , CLNT+9, CLNT+11, CLNT+16, CLNT+17, OACT+18, CANCEL+14
^DIK	EN+10, OACT+24
^DIR	CANCEL+10
$$VALIDU^GMRCAU	SCR+4
$$DC^GMRCGUIA	CANCEL+29
$$FR^GMRCGUIA	FORW+52
$$SFILE^GMRCGUIB	CLNT+36
CMT^GMRCGUIB	ENIA+22, OACT+36
$$UP68^RMPRPCE1	LINK60+5
ICDT^RMPRPCEL	CLNT+20
SEL60^RMPRPCEL	ENIA+6, CLNT+6, OACT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " <Another user is editing this entry>" Line Location: EN+8
Function Call: WRITE	Prompt: !,$C(7),?5,"Deleted..." Line Location: EN+10
Function Call: WRITE	Prompt: !!!,"Can Not Edit This Suspense Record!",!! Line Location: EN2+3
Function Call: WRITE	Prompt: " <Another user is editing this entry>" Line Location: PROC+0
Function Call: WRITE	Prompt: " ",Y," ",$E($P(^DPT($P(RO,U,2),0),U,1),1,20) Line Location: PROC+2
Function Call: WRITE	Prompt: " ",RR," ",$S($P(RO,U,5)?7N.N:"CLOSED",1:"OPEN") Line Location: PROC+6
Function Call: WRITE	Prompt: !!!,"Initial Action Note Already Posted!",!! Line Location: ENIA+2
Function Call: WRITE	Prompt: " <Another user is editing this entry>" Line Location: ENIA+3
Function Call: WRITE	Prompt: !!!,"Can Not Forward.",!! Line Location: FORW+1
Function Call: WRITE	Prompt: !!!,"Completion Note Already Posted!",!! Line Location: FORW+2
Function Call: WRITE	Prompt: !!,"Not Forwarded! No Service Selected ." Line Location: FORW+10
Function Call: WRITE	Prompt: " <Another user is editing this entry>" Line Location: FORW+12
Function Call: WRITE	Prompt: !!,"Must Have Note to Forward. Consult Not Forwarded." Line Location: FORW+22
Function Call: WRITE	Prompt: !!,"ERROR, DID NOT FORWARD!" Line Location: FORW+53
Function Call: WRITE	Prompt: !!,"Consult Forwarded." Line Location: FORW+54
Function Call: WRITE	Prompt: !!!,"Completion Note Already Posted!",!! Line Location: CLNT+2
Function Call: WRITE	Prompt: " <Another user is editing this entry>" Line Location: CLNT+3
Function Call: WRITE	Prompt: !!,$P(BDC,U,2) Line Location: CLNT+37
Function Call: WRITE	Prompt: !!!,"No Initial Action Taken... ",!! Line Location: OACT+3
Function Call: WRITE	Prompt: " <Another user is editing this entry>" Line Location: OACT+5
Function Call: WRITE	Prompt: !!!,"This has already been completed, cannot cancel!",!! Line Location: CANCEL+4
Function Call: WRITE	Prompt: " <Another user is editing this entry>" Line Location: CANCEL+5
Function Call: WRITE	Prompt: !!!,"This will CANCEL/DELETE this Suspense Request." Line Location: CANCEL+8
Function Call: WRITE	Prompt: !!,"Suspense Not Cancelled!" Line Location: CANCEL+10
Function Call: WRITE	Prompt: !!,?5,"DELETED/CANCELLED!" Line Location: CANCEL+15
Routine Call	DIC Line Location: FORW+9 OACT+14
Routine Call	DIE Line Location: EN+9 PROC+10 ENIA+9 ENIA+10 FORW+16 FORW+19 FORW+20 FORW+32 FORW+35 FORW+38 CLNT+9 CLNT+11 CLNT+16 CLNT+17 OACT+18 CANCEL+14
Routine Call	DIR Line Location: CANCEL+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123.5 - [#123.5]	Classic Fileman Calls
^RMPR(668 - [#668]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PROC+1
^DD(668	OACT+11
^DPT - [#2]	PROC+2
^GMR(123.5 - [#123.5]	SCR+2
^RMPR(668 - [#668]	EN+8, EN+9, EN+10, EN2+3, PROC, PROC+1, PROC+11, ENIA+2, ENIA+3, ENIA+10 , ENIA+11, ENIA+13, ENIA+15, ENIA+18, ENIA+19, FORW+1, FORW+2, FORW+12, FORW+17, FORW+20 , FORW+22*, FORW+28, FORW+40, FORW+42, FORW+46, FORW+47, CLNT+2, CLNT+3, CLNT+10, CLNT+11 , CLNT+13, CLNT+22, CLNT+24, CLNT+28, CLNT+29, OACT+5, OACT+20, OACT+27, OACT+31, OACT+32 , OACT+34, CANCEL+4, CANCEL+5, CANCEL+16, CANCEL+18, CANCEL+21, CANCEL+22, CANCEL+28
^TMP($J	ENIA+6, CLNT+6, OACT+7, LINK60+2, LINK60+3, LINK60+7

Label References

Name	Line Occurrences
EX	EN+6, EN+8

Naked Globals

Name	Field # of Occurrence
^(0	PROC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+3, ENIA+4, FORW+3, CLNT+4, OACT+12, CANCEL+11
>> BDC	FORW+52, FORW+53, CLNT+36, CLNT+37
D0	EN+6!
DA	EN+6, EN+10, EN2+3, PROC, PROC+1, PROC+11, ENIA+2, ENIA+3, ENIA+6, ENIA+10 , ENIA+11, ENIA+13, ENIA+15, ENIA+18, ENIA+19, FORW+1, FORW+2, FORW+12, FORW+17, FORW+20 , FORW+22, FORW+28, FORW+40, FORW+42, FORW+46, FORW+47, CLNT+2, CLNT+3, CLNT+6, CLNT+10 , CLNT+11, CLNT+13, CLNT+20, CLNT+22, CLNT+24, CLNT+28, CLNT+29, OACT+5, OACT+7, OACT+8 , OACT+15!, OACT+17, OACT+23, OACT+25!, OACT+38!, CANCEL+4, CANCEL+5, CANCEL+16, CANCEL+18, CANCEL+21 , CANCEL+22, CANCEL+28, LINK60+5, LINK60+7
DA(1	OACT+8*, OACT+9
DD	EN+6!
DIA	OACT+25!
DIC	EN+4, EX!, FORW+7, FORW+10!, OACT+9*, OACT+15!, OACT+16!
DIC("A"	FORW+8*
DIC("DR"	EN+5*
DIC("P"	OACT+11*
DIC("S"	FORW+6*
DIC(0	EN+4, FORW+7, OACT+10*
DIE	EN+7, EX!, PROC+7, ENIA+7, FORW+13, FORW+29, CLNT+7, CLNT+14, OACT+16, OACT+19! , CANCEL+12*
DIK	EN+10, OACT+22, OACT+38!
DINUM	EN+6!
>> DIR("A"	CANCEL+9*
>> DIR("B"	CANCEL+7*
>> DIR(0	CANCEL+7*
DLAYGO	EN+4, EN+6!, OACT+13
DO	EN+6!
DR	EN+7, EX!, PROC+9, ENIA+8, ENIA+10, FORW+15, FORW+18, FORW+20, FORW+31, FORW+35* , FORW+38, CLNT+8, CLNT+11, CLNT+15, CLNT+17, OACT+18, OACT+19!, CANCEL+13*
>> DTOUT	FORW+10, CANCEL+10
>> DUOUT	FORW+10, CANCEL+10
DUZ	ENIA+22, FORW+49, CLNT+35, OACT+36, CANCEL+29
GMRCA	CLNT+32*, CLNT+36, CLNT+38!
GMRCACTM	CANCEL+26*, CANCEL+29, CANCEL+30!
GMRCAD	FORW+3, FORW+52, FORW+55!, CLNT+4, CLNT+36, CLNT+38!
GMRCALF	CLNT+33*, CLNT+36, CLNT+38!
GMRCATO	CLNT+34*, CLNT+36, CLNT+38!
GMRCATTN	FORW+51*, FORW+52, FORW+55!
GMRCDUZ	CLNT+35*, CLNT+36, CLNT+38!
GMRCMT	ENIA+17, ENIA+22, ENIA+23!, CANCEL+23, CANCEL+29, CANCEL+30!
GMRCMT(	ENIA+19, CANCEL+22
GMRCMT(1	ENIA+20*
GMRCO	ENIA+15, ENIA+22, ENIA+23!, FORW+42, FORW+43, FORW+52, FORW+55!, CLNT+24, CLNT+25, CLNT+36 , CLNT+38!, OACT+27, OACT+28, OACT+36, OACT+38!, CANCEL+18*, CANCEL+29
GMRCOM	FORW+48, FORW+52, FORW+55!, CLNT+30, CLNT+36, CLNT+38!, OACT+36, OACT+38!
GMRCOM(	FORW+47, CLNT+29, OACT+32*
GMRCORNP	FORW+49, FORW+52, FORW+55!, CLNT+35, CLNT+36, CLNT+38!
GMRCSF	CLNT+31*, CLNT+36, CLNT+38!
GMRCSS	FORW+11*, FORW+52, FORW+55!
GMRCURGI	FORW+50*, FORW+52, FORW+55!
GMRCWHN	OACT+12*, OACT+25!, OACT+36, OACT+38!
>> RDA	EN+6*, EN+8, EN+9, EN+10
RMGMRCO	ENIA+23!, CANCEL+29*
RMPRCMT	ENIA+17, ENIA+18, ENIA+19, ENIA+23!, CANCEL+20, CANCEL+21, CANCEL+22, CANCEL+30!
RMPRCOM	FORW+45, FORW+46, FORW+47, CLNT+27, CLNT+28, CLNT+29, OACT+30, OACT+31, OACT+32, OACT+38!
RMPRDA1	OACT+8*, OACT+20, OACT+25!, OACT+27, OACT+31, OACT+32, OACT+34, OACT+38!
RMPRDA2	OACT+17*, OACT+20, OACT+23, OACT+25!, OACT+31, OACT+32, OACT+38!
RMPREODT	ENIA+4, ENIA+22, ENIA+23!, FORW+3, FORW+41!, CLNT+4, CLNT+23!, CANCEL+11, CANCEL+29, CANCEL+30!
>> RMSAMIS	LINK60+3*, LINK60+5
>> RMSERR	LINK60+1, LINK60+5, LINK60+6
>> RMSI	LINK60+2*, LINK60+3, LINK60+5
>> RO	PROC+1*, PROC+2, PROC+6
>> RR	PROC+6
>> RZ	PROC+4*, PROC+5
SERV	SCR~, SCR+2, SCR+4
U	EN+10, EN2+3, PROC+1, PROC+2, PROC+6, ENIA+15, FORW+1, FORW+17, FORW+22, FORW+28 , FORW+42, CLNT+2, CLNT+13, CLNT+24, CLNT+37, OACT+11, OACT+27, CANCEL+4, CANCEL+18, CANCEL+28 , SCR+2
USAGE	SCR+1~, SCR+2*, SCR+3, SCR+4
USR	SCR~, SCR+4
X	EN+3, EX!, OACT+12
Y	EN+6, EX!, PROC+1*, PROC+2, FORW+10, FORW+11, OACT+15, OACT+17, OACT+19!, CANCEL+6! , CANCEL+10

Customize PDF page

Package: Prosthetics