Routine: AMEREDIT

Information

AMEREDIT ; IHS/OIT/SCR - Primary Routine for ER VISIT edit interface

Call Graph

Call Graph Total: 26

Package	Total	Call Graph
Emergency Room	18	OUT^AMER CKSC^AMER1 UP^AMERBAN LOG^AMERBUSA $$CREATAUD^AMEREDAU $$EDDIAGS^AMEREDDX $$CHKVSIT^AMEREDPC $$EDADMIT^AMEREDTA ($$EDDISCHG,$$EDEXTAS,$$EDFUINST,$$EDPROCS)^AMEREDTD $$EDTCNSLT^AMEREDTE $$EDINJRY^AMEREDTI $$ADMTRIAG^AMEREDTT (SYNCHERA,SYNCHERD,SYNCHERP,SYNCHERX)^AMERERS $$FINDVSIT^AMERPCC TIMESTMP^AMERSAV1 COMPUTE^AMERTIME VER^AMERVER DELETVST^AMERVSIT
VA Fileman	7	^%DTC EN^DDIOL (,IX)^DIC ^DIE EN^DIK EN1^DIP ^DIR
Patient Care Component Reports	1	$$DLM^APCLV

Package	Total	Caller Graph
Emergency Room	12	AMEREDDX AMEREDTA AMEREDTD AMEREDTE AMEREDTI AMEREDTT AMEREDTU AMERERS AMERPCC AMERPCC1 AMERPCC2 AMERTIME

Entry Points

Name	Comments	DBIA/ICR reference
TXTREAD	;
RUN	; EP - from Main Menu option AMER EDIT to Edit ER VISIT
EDIT(AMERSEL,AMERDA,AMERAIEN,AMEREDNO)	;
MULTDIE(AMERDIE,AMERDA,AMERDA1,AMERDR)
DIE1
EDITERV(AMERDA,AMERAIEN,AMEREDNO)
DIE(AMERDA,AMERDR)	; EP from multiple AMERED* ROUTINES ; GIVEN AN ENTRY NUMBER AND A DR STRING, EDIT THE ER VISIT FILE
EXIT(AMERDA,AMERQUIT)	;
PRINT(DA)	; PRINT SELECTED VISIT TO SCREEN

External References

Name	Field # of Occurrence
^%DTC	RUN+50
OUT^AMER	TXTREAD+5
CKSC^AMER1	TXTREAD+4
UP^AMERBAN	RUN+5
LOG^AMERBUSA	RUN+64, PRINT+6, EDITERV+4, EDIT+8, EDIT+18, EDIT+28, EDIT+38, EDIT+58, EDIT+69, EDIT+80 , EDIT+90, EDIT+100
$$CREATAUD^AMEREDAU	RUN+72
$$EDDIAGS^AMEREDDX	EDIT+55
$$CHKVSIT^AMEREDPC	EDITERV+20
$$EDADMIT^AMEREDTA	EDIT+5
$$EDDISCHG^AMEREDTD	EDIT+77
$$EDEXTAS^AMEREDTD	EDIT+66
$$EDFUINST^AMEREDTD	EDIT+87
$$EDPROCS^AMEREDTD	EDIT+35
$$EDTCNSLT^AMEREDTE	EDIT+97
$$EDINJRY^AMEREDTI	EDIT+25
$$ADMTRIAG^AMEREDTT	EDIT+15
SYNCHERA^AMERERS	RUN+53
SYNCHERD^AMERERS	RUN+54
SYNCHERP^AMERERS	RUN+61
SYNCHERX^AMERERS	EDIT+47
$$FINDVSIT^AMERPCC	RUN+34
TIMESTMP^AMERSAV1	DIE1+6, MULTDIE+17
COMPUTE^AMERTIME	EXIT+1
VER^AMERVER	EDIT+107
DELETVST^AMERVSIT	RUN+43
$$DLM^APCLV	RUN+49
EN^DDIOL	RUN+6, RUN+17, RUN+24, RUN+30, RUN+36, RUN+44, RUN+78, RUN+84, EDITERV+21, EDITERV+23 , EDIT+3, EDIT+10, EDIT+11, EDIT+20, EDIT+21, EDIT+30, EDIT+31, EDIT+40, EDIT+41, EDIT+51 , EDIT+52, EDIT+60, EDIT+61, EDIT+71, EDIT+72, EDIT+82, EDIT+83, EDIT+92, EDIT+93, EDIT+102 , EDIT+103
^DIC	RUN+22
IX^DIC	RUN+28
^DIE	DIE1+1, MULTDIE+12
EN^DIK	DIE1+3, MULTDIE+14
EN1^DIP	PRINT+3
^DIR	RUN+15, RUN+40, RUN+69, RUN+82, EDITERV+16, EDITERV+27, EXIT+5, TXTREAD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: RUN+4
Routine Call	DIE Line Location: DIE1+1 MULTDIE+12
Routine Call	DIC Line Location: RUN+22
Routine Call	DIR Line Location: RUN+15 RUN+40 RUN+69 RUN+82 EDITERV+16 EDITERV+27 EXIT+5 TXTREAD+3
Routine Call	DIC Line Location: RUN+28

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AMERVSIT - [#9009080]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMERVSIT - [#9009080]	RUN+48, RUN+60, DIE1, DIE1+4, MULTDIE+11, MULTDIE+15
^DD("DD"	RUN+13, RUN+19
^XUSEC("AMERZ9999"	EDITERV+18

Label References

Name	Line Occurrences
EDIT	EDITERV+35
EDITERV	RUN+73, EDIT+109
EXIT	RUN+74, EDIT+13, EDIT+23, EDIT+33, EDIT+43, EDIT+63, EDIT+75, EDIT+85, EDIT+95
PRINT	RUN+66, EXIT+6
RUN	RUN+83
TXTREAD	TXTREAD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RUN+7*!, DIE+2~, MULTDIE+8~
AGE	RUN+2~, RUN+85!
AMERAIEN	RUN+1~, RUN+72*, RUN+73, RUN+83!, RUN+85!, EDITERV~, EDITERV+20, EDITERV+35, EDIT~, EDIT+5 , EDIT+15, EDIT+25, EDIT+35, EDIT+55, EDIT+66, EDIT+77, EDIT+87, EDIT+97, EDIT+109
AMERCKSC	TXTREAD+4!
AMERD1	RUN+2~, RUN+19*
AMERDA	RUN+1~, RUN+32*, RUN+34, RUN+36, RUN+43, RUN+48, RUN+53, RUN+54, RUN+60, RUN+61 , RUN+64, RUN+66, RUN+72, RUN+73, RUN+74, RUN+83!, RUN+85!, EDITERV~, EDITERV+4, EDITERV+15 , EDITERV+20, EDITERV+35, EDIT~, EDIT+5, EDIT+8, EDIT+13, EDIT+15, EDIT+18, EDIT+23, EDIT+25 , EDIT+28, EDIT+33, EDIT+35, EDIT+38, EDIT+43, EDIT+47, EDIT+55, EDIT+58, EDIT+63, EDIT+66 , EDIT+69, EDIT+73, EDIT+75, EDIT+77, EDIT+80, EDIT+85, EDIT+87, EDIT+90, EDIT+95, EDIT+97 , EDIT+100, EDIT+109, EXIT~, EXIT+1, EXIT+6, DIE~, DIE+4, MULTDIE~, MULTDIE+10
AMERDA1	MULTDIE~, MULTDIE+10, MULTDIE+11, MULTDIE+13, MULTDIE+15, MULTDIE+17
AMERDIE	MULTDIE~, MULTDIE+10, MULTDIE+13
AMERDIFF	RUN+2~, RUN+47, RUN+51, RUN+52
AMERDOB	RUN+3~
AMERDR	DIE~, DIE+5, MULTDIE~, MULTDIE+10
AMERDUZ	RUN+1~, RUN+71*, RUN+72, RUN+83!, RUN+85!, EDIT+1~
AMEREDNO	RUN+1~, RUN+8*, RUN+73, RUN+83!, RUN+85!, EDITERV~, EDITERV+35, EDIT~, EDIT+35, EDIT+55 , EDIT+97, EDIT+109
AMERHD1	RUN+2~, RUN+85!
AMERHD2	RUN+2~, RUN+85!
AMERHRN	RUN+3~
AMERLINE	RUN+1~, RUN+7*, RUN+85!, EDIT+3, EDIT+10, EDIT+20, EDIT+30, EDIT+40, EDIT+60, EDIT+71 , EDIT+82, EDIT+92, EDIT+102
AMERNEW	EDIT+1~
AMEROLD	EDIT+1~
AMERPAT	RUN+3~, RUN+60*, RUN+61
>> AMERPCC	RUN+34*, RUN+35, RUN+49, RUN+53, RUN+54, RUN+64, PRINT+6, EDITERV+4, EDIT+8, EDIT+18 , EDIT+28, EDIT+38, EDIT+47, EDIT+58, EDIT+69, EDIT+80, EDIT+90, EDIT+100, EDIT+107
AMERQUIT	RUN+16, RUN+23, RUN+29, RUN+41, EDITERV+6~, EDITERV+7, EDITERV+19, EDITERV+29, EDITERV+32, EDITERV+37! , EDIT+1~, EDIT+2, EDIT+5, EDIT+13, EDIT+15, EDIT+23, EDIT+25, EDIT+33, EDIT+35, EDIT+43 , EDIT+55, EDIT+63, EDIT+66, EDIT+73, EDIT+75, EDIT+77, EDIT+85, EDIT+87, EDIT+95, EDIT+97 , EXIT~, EXIT+2
AMERSEL	EDITERV+6~, EDITERV+33*, EDITERV+35, EDITERV+37!, EDIT~, EDIT+4, EDIT+14, EDIT+24, EDIT+34, EDIT+44 , EDIT+50, EDIT+65, EDIT+76, EDIT+86, EDIT+96, EDIT+109
AMERSTRG	EDIT+1~
AMERVER	RUN+85!
AMERX1	RUN+2~, RUN+18*, RUN+26
AUPNDAYS	RUN+2~, RUN+85!
AUPNDOB	RUN+2~, RUN+85!
AUPNDOD	RUN+2~, RUN+85!
AUPNPAT	RUN+2~, RUN+85!
AUPNSEX	RUN+2~, RUN+85!
BY	PRINT+1~, PRINT+2*, PRINT+8!
D	RUN+27*, DIE+3~, MULTDIE+9~
D0	DIE+3~, MULTDIE+9~
DA	PRINT~, PRINT+2, EDITERV+15, EDITERV+34!, DIE+3~, DIE+4, DIE1, DIE1+4, DIE1+6, DIE1+7! , MULTDIE+9~, MULTDIE+10*
DA(1	MULTDIE+10, MULTDIE+13
>> DFN	EDIT+107
DI	DIE+3~, MULTDIE+9~
DIC	RUN+1~, RUN+20, RUN+27, RUN+85!, PRINT+1~, PRINT+2*, PRINT+8!, EDIT+1~, DIE+3~, MULTDIE+9~
DIC("?N?"	RUN+21*
DIC("A"	RUN+20*
DIC("S"	RUN+26*
DIC(0	RUN+20, RUN+27
DICR	DIE+3~, MULTDIE+9~
DIE	DIE+3~, DIE+6, DIE1+2, DIE1+7!, MULTDIE+9~, MULTDIE+10
DIG	DIE+3~, MULTDIE+9~
DIH	DIE+3~, MULTDIE+9~
DIK	DIE+3~, DIE1+2, MULTDIE+13
DIR	RUN+1~, RUN+85!, EDITERV+6~, EDITERV+34!, TXTREAD+3!
DIR("?"	RUN+11, EDITERV+14, TXTREAD+2*
DIR("A"	RUN+10, RUN+38, RUN+67, RUN+80, EDITERV+14, EDITERV+26, EXIT+3*
DIR("B"	RUN+14, RUN+39, RUN+68, RUN+81, EDITERV+26, EXIT+4
DIR(0	RUN+9, RUN+37, RUN+68, RUN+79, EDITERV+9, EDITERV+11, EDITERV+12, EDITERV+13, EDITERV+26, EXIT+4 , TXTREAD+1*
DIU	DIE+3~, MULTDIE+9~
DIV	DIE+3~, MULTDIE+9~
DIW	DIE+3~, MULTDIE+9~
DQ	DIE+3~, MULTDIE+9~
DR	EDIT+1~, DIE+3~, DIE+5, DIE1+7!, MULTDIE+9~, MULTDIE+10
DT	RUN+12
DTOUT	RUN+16!, RUN+23!, RUN+29!, RUN+41!
DUOUT	RUN+16!, RUN+23!, RUN+29!, RUN+41!
DUZ	RUN+71, EDITERV+18
FLDS	PRINT+1~, PRINT+2*, PRINT+8!
FR	PRINT+1~, PRINT+2*, PRINT+8!
IOF	RUN+4
TO	PRINT+1~, PRINT+2*, PRINT+8!
U	RUN+32, RUN+60
X	RUN+1~, RUN+17, RUN+27*, RUN+51, DIE+2~, MULTDIE+8~
X1	RUN+2~, RUN+48*
X2	RUN+2~, RUN+49*
Y	RUN+1~, RUN+12, RUN+14, RUN+17, RUN+18, RUN+19, RUN+24, RUN+25, RUN+27, RUN+30 , RUN+31, RUN+32, RUN+42, RUN+51, RUN+70, RUN+83, EDITERV+17, EDITERV+28, EDITERV+29, EDITERV+33 , EDITERV+34!, EXIT+6, DIE+2~, MULTDIE+8~

Customize PDF page

Package: Emergency Room

Routine: AMEREDIT

Information

Source Information

Call Graph

Call Graph Total: 26

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: