Routine: PXRMDEDT

Information

PXRMDEDT ;SLC/PJH - Edit PXRM reminder dialog. ;Jan 31, 2023@08:13:33

Package	Total	Call Graph
Clinical Reminders	8	SETSTART^PXRMCOPY ASK^PXRMDCPY (COMP,DELETE)^PXRMDEDX $$HASPRMPT^PXRMDLG6 WRITE^PXRMDLRP USE^PXRMDLST $$FILE^PXRMEXCS ($$VEDIT,AWRITE,SEHIST)^PXRMUTIL
VA FileMan	5	^DIC (,UPDATE)^DIE ^DIK ^DIR ^DIWP

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

Package	Total	Caller Graph
Clinical Reminders	7	PXRM DIALOG EDIT PXRMDBLD PXRMDEDI PXRMDLG4 PXRMDLG6 PXRMDLGZ PXRMGEDT
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
ADD
EDITD(ROOT,IENN)	;
EDIT(TYP,DA,OIEN)	;
ESEL(PXRMDIEN,SEL)	;
EADD(SEL,NSUB,PXRMDIEN)	;
NTYP(TYP)	;
PURGE(DIEN)	;
VGROUP(DA,IEN)	;Check dialog index to see if group will point to itself
VGROUP1(DA,DIEN)	;Examine all parent dialogs
HELP(CALL)	;General help text routine
LOCK(DA)	;Lock the record
PROMPT(IEN)	;
EX	;
UNLOCK(DA)	;Unlock the record

External References

Name	Field # of Occurrence
^DIC	ADD+10, ESEL+12
^DIE	ADD+22, EDITD+7, EDITD+16, EDIT+56, EX+1
UPDATE^DIE	EADD+5
^DIK	EDIT+64
^DIR	NTYP+8
^DIWP	HELP+27
SETSTART^PXRMCOPY	ADD+6, ESEL+6
ASK^PXRMDCPY	EDITD+13
COMP^PXRMDEDX	EDIT+54
DELETE^PXRMDEDX	EDIT+71
$$HASPRMPT^PXRMDLG6	LOCK+13
WRITE^PXRMDLRP	EDIT+76
USE^PXRMDLST	EDIT+43, EDIT+45, EDIT+47, EDIT+49, EDIT+51
$$FILE^PXRMEXCS	EDIT+6, EDIT+79
$$VEDIT^PXRMUTIL	LOCK+3
AWRITE^PXRMUTIL	EADD+6
SEHIST^PXRMUTIL	EDIT+81

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IORESET Line Location: ADD+2
Function Call: WRITE	Prompt: !,"This dialog name already exists" Line Location: ADD+14
Function Call: WRITE	Prompt: IORESET Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"Not used by any other dialog",! Line Location: EDIT+33
Function Call: WRITE	Prompt: !,"Used by: Only used in this dialog",! Line Location: EDIT+40
Function Call: WRITE	Prompt: !,"Used by:" Line Location: EDIT+43
Function Call: WRITE	Prompt: ! Line Location: ESEL+11
Function Call: WRITE	Prompt: ! Line Location: HELP+28
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",0,IC,0) Line Location: HELP+31
Function Call: WRITE	Prompt: ! Line Location: HELP+33
Function Call: WRITE	Prompt: !!,?5,"Another user is editing this entry, try later." Line Location: LOCK+19
Routine Call	DIC Line Location: ADD+10 ESEL+12
Routine Call	DIE Line Location: ADD+22 EDITD+7 EDITD+16 EDIT+56 EX+1
Routine Call	DIE Line Location: EADD+5
Routine Call	DIR Line Location: NTYP+8

FileNo	Call Tags
^PXRMD(801.41 - [#801.41]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PXD(811.9 - [#811.9]	PURGE+4, PURGE+5!
^PXMRD(801.41	EDIT+27
^PXRMD(801.41 - [#801.41]	ADD+17, EDITD+2, EDITD+5, EDIT+9, EDIT+26, EDIT+33, EDIT+38, EDIT+42, EDIT+46, EDIT+50 , EDIT+61, EDIT+86, EDIT+90, ESEL+23, VGROUP+5, VGROUP1+6, VGROUP1+13, VGROUP1+15, LOCK+5, LOCK+7 , LOCK+18, PROMPT+4, UNLOCK+1
^PXRMD(801.42 - [#801.42]	PROMPT+5
^UTILITY($J	HELP+23!, HELP+30, HELP+31, HELP+32!

Label References

Name	Line Occurrences
$$LOCK	EDIT+1
$$VGROUP	ESEL+19
EADD	ESEL+21
EDIT	ADD+25, EDITD+19, ESEL+26
EX	PROMPT+4
PROMPT	EDIT+58
PURGE	EDIT+69
UNLOCK	EDIT+56, EDIT+58
VGROUP1	VGROUP+13, VGROUP1+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	EDITD+11~, EDITD+13
CALL	HELP~, HELP+5, HELP+10, HELP+13, HELP+17
COMP	EDIT+54~, EDIT+71
CS1	EDIT+3~, EDIT+6*, EDIT+79
CS2	EDIT+3~, EDIT+79*
D1	EDIT+3~, EDIT+60, EDIT+61, EDIT+62
DA	ADD~, ADD+15, ADD+17, ADD+25, EDITD+1~, EDITD+7, EDITD+15, EDIT~, EDIT+1, EDIT+6 , EDIT+9, EDIT+10, EDIT+26, EDIT+27, EDIT+33, EDIT+38, EDIT+40, EDIT+42, EDIT+43, EDIT+45 , EDIT+46, EDIT+47, EDIT+49, EDIT+50, EDIT+51, EDIT+54, EDIT+56, EDIT+58, EDIT+61, EDIT+62 , EDIT+67, EDIT+74, EDIT+79, EDIT+81, EDIT+86, EDIT+90, ESEL+1~, ESEL+16, ESEL+19, ESEL+21 , ESEL+23, ESEL+26, VGROUP~, VGROUP+5, VGROUP+8, VGROUP+13, VGROUP1~, VGROUP1+6, VGROUP1+17, LOCK~ , LOCK+3, LOCK+5, LOCK+7, LOCK+9, LOCK+18, PROMPT+2, UNLOCK~, UNLOCK+1
DA(1	EDIT+62*, EDIT+63
DIC	ADD~, ADD+4, ADD+6, ADD+13!, EDIT+3~, EDIT+80, EDIT+81, ESEL+1~, ESEL+3*, ESEL+6 , ESEL+15!
DIC("A"	ADD+8, ESEL+8
DIC("DR"	ADD+9, ESEL+10
DIC("S"	ESEL+9*
DIC(0	ADD+7, ESEL+7
DIDEL	EDIT+3~, EDIT+10*
DIE	ADD+20~, ADD+21, EDITD+1~, EDITD+7, EDITD+15, EDIT+3~, EDIT+10, PROMPT+1~, PROMPT+2*
DIEN	PURGE~, PURGE+4, PURGE+5, VGROUP1~, VGROUP1+6, VGROUP1+13
DIK	EDIT+3~, EDIT+63*
>> DILOCKTM	LOCK+18
DINUSE	EDIT+3~, EDIT+10, EDIT+29, EDIT+30, EDIT+34, EDIT+38, EDIT+39*, EDIT+40, EDIT+41
DIR	NTYP+1~, NTYP+8!
DIR("?"	NTYP+6*
DIR("??"	NTYP+7*
DIR("A"	NTYP+4*
DIR("B"	NTYP+5*
DIR(0	NTYP+2, NTYP+3
DIROUT	NTYP+1!, NTYP+9
DIRUT	NTYP+1!
DIWF	HELP+2~, HELP+3*
DIWL	HELP+2~, HELP+3*
DIWR	HELP+2~, HELP+3*
DLAYGO	ADD~, ADD+7, ESEL+1~, ESEL+4
DNEW	ESEL+1~, ESEL+17*, ESEL+19, ESEL+26
DR	ADD+20~, ADD+21, EDITD+1~, EDITD+7, EDITD+15, EDIT+3~, EDIT+12, EDIT+14, EDIT+18, EDIT+20* , EDIT+22, EDIT+24, EDIT+29, EDIT+30, PROMPT+1~, PROMPT+3, PROMPT+5
DTOUT	ADD~, ADD+3, ADD+11, ADD+12, ADD+13, EDITD+13, EDIT+3~, ESEL+1~, ESEL+13, ESEL+14 , ESEL+15, NTYP+1!, NTYP+9*, NTYP+10
DTYP	ADD~, ADD+17, ADD+19, ADD+25, ESEL+1~, ESEL+23, ESEL+26, LOCK+4~, LOCK+5*, LOCK+7 , LOCK+9, LOCK+10, LOCK+12, LOCK+13
DUOUT	ADD~, ADD+11, ADD+12, EDITD+13, EDIT+3~, EDIT+66, ESEL+1~, ESEL+13, ESEL+14, NTYP+1! , NTYP+10
DUZ(0	EDIT+28
ERRMSG	EADD+1~, EADD+6
FDA	EADD+1~
FDA(	EADD+3, EADD+4
FDAIEN	EADD+1~
FOUND	VGROUP+1~, VGROUP+2, VGROUP+5, VGROUP+8, VGROUP+9, VGROUP+14, VGROUP1+3, VGROUP1+7*, VGROUP1+13
HED	ADD~, ADD+1*
HTEXT	HELP+1~
HTEXT(	HELP+25, HELP+26
HTEXT(1	HELP+6, HELP+11, HELP+14, HELP+18
HTEXT(2	HELP+7, HELP+12, HELP+15, HELP+19
HTEXT(3	HELP+8, HELP+16, HELP+20*
HTEXT(4	HELP+9, HELP+21
HTEXT(5	HELP+22*
IC	HELP+2~, HELP+24, HELP+25, HELP+26, HELP+29, HELP+30, HELP+31
IEN	VGROUP~, VGROUP+8, VGROUP+13, PROMPT~, PROMPT+2, PROMPT+4*, PROMPT+5
IENN	EDITD~, EDITD+2, EDITD+7, EDITD+9, EDITD+15, EDITD+19
>> IENO	EDITD+5
IENS	EADD+1~, EADD+2*, EADD+3, EADD+4
>> IORESET	ADD+2, EDIT+2
NSUB	EADD~, EADD+4
ODA	EDIT+3~, EDIT+10*, EDIT+56, EDIT+58, EDIT+76
OIEN	EDIT~, EDIT+56
OK	LOCK+1~, LOCK+2, LOCK+14, LOCK+16
PXRMDIEN	EDIT+39, EDIT+40, EDIT+43, EDIT+49, EDIT+51, EDIT+69, ESEL~, ESEL+19, ESEL+21, EADD~ , EADD+2, LOCK+9
>> PXRMDTYP	ADD+9
>> PXRMGTYP	EDIT+34, EDIT+35, EDIT+44, EDIT+48, EDIT+84, LOCK+10
>> PXRMHD	EDIT+88, EDIT+90, EDIT+92
>> PXRMINST	EDIT+28
RIEN	PURGE+2~, PURGE+3, PURGE+4, PURGE+5
ROOT	EDITD~, EDITD+7, EDITD+9, EDITD+15
SEL	ESEL~, ESEL+21, EADD~, EADD+3
SUB	EDITD+5~, EDITD+7, EDIT+36~, EDIT+37, EDIT+38, EDIT+39, VGROUP1+11~, VGROUP1+12, VGROUP1+13*, VGROUP1+15 , VGROUP1+17
TEXT	EDITD+11~, EDITD+12*, EDITD+13
TYP	EDIT~, EDIT+3~, EDIT+9, EDIT+12, EDIT+14, EDIT+18, EDIT+20, EDIT+22, EDIT+24, EDIT+27 , EDIT+29, EDIT+32, EDIT+42, EDIT+43, EDIT+56, EDIT+58, EDIT+78, EDIT+84, NTYP~, NTYP+11
TYPE	EDITD+1~, EDITD+2*, EDITD+3, EDITD+19
U	ADD+14, ADD+15, ADD+17, EDITD+2, EDITD+5, EDITD+9, EDIT+9, EDIT+26, EDIT+27, EDIT+42 , EDIT+61, EDIT+86, EDIT+88, EDIT+90, ESEL+16, ESEL+17, ESEL+23, NTYP+2, NTYP+7, VGROUP+5 , VGROUP1+15, LOCK+5, LOCK+7, PROMPT+5
>> VALMBCK	EDIT+5, EDIT+72
>> VALMBG	EDIT+66*
>> VALMHDR(1	EDIT+92*
X	NTYP+1~, HELP+26*
Y	ADD~, ADD+13, ADD+14, ADD+15, ADD+19, EDIT+3~, EDIT+86*, EDIT+88, ESEL+1~, ESEL+15 , ESEL+16, ESEL+17, NTYP+1~, NTYP+11

Customize PDF page

Package: Clinical Reminders