Routine: AMHLEIC

Package	Total	Call Graph
Mental Health Social Services	6	RECCHECK^AMHLE2 (DEL,GETPAT,HEADER,OTHER,PCCLINK)^AMHLEA CALLDIE^AMHLEIN REGULAR^AMHLEP2 ^AMHLEPOV $$PPINT^AMHUTIL
VA Fileman	3	FILE^DICN ^DIE ^DIR

Package

Total

Call Graph

RECCHECK^AMHLE2 (DEL,GETPAT,HEADER,OTHER,PCCLINK)^AMHLEA CALLDIE^AMHLEIN REGULAR^AMHLEP2 ^AMHLEPOV $$PPINT^AMHUTIL

FILE^DICN ^DIE ^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Entering Info/Contact Record type",! Line Location: IC+2
Function Call: WRITE	Prompt: !,"Creating new record..." Line Location: IC+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: IC+5
Function Call: WRITE	Prompt: !,"No PRIMARY PROVIDER entered!! - Required element" Line Location: IC+8
Function Call: WRITE	Prompt: ! Line Location: IC+10
Function Call: WRITE	Prompt: !!,"No Purpose of Visit.. Incomplete record!! Deleting record!!" Line Location: IC+12
Function Call: WRITE	Prompt: !,"Incomplete record!! Deleting record!!" Line Location: IC+14
Function Call: WRITE	Prompt: !! Line Location: GETPROV+1
Function Call: WRITE	Prompt: !!,"Creating Primary Provider entry failed!!!",$C(7),$C(7) Line Location: GETPROV+6
Routine Call	DIE Line Location: IC+6
Routine Call	DIR Line Location: GETPROV+2 PAUSE+1

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRPROV - [#9002011.02]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	IC+16
^AMHRPRO("AD"	IC+12
^VA(200 - [#200]	GETPROV+2

Name	Line Occurrences
GETPROV	IC+7
PAUSE	IC+5

Name	Field # of Occurrence
>> AMHDATE	IC+4
>> AMHOKAY	IC+14*
AMHPAT	IC+3!, IC+9, GETPROV+5
>> AMHPATCE	IC+3
>> AMHR	IC+6*, IC+8, IC+9, IC+10, IC+12, IC+13, IC+16, GETPROV+5
D0	IC+4!, GETPROV+5!
DA	IC+4!, IC+6!, IC+9, IC+10, IC+13, GETPROV+2!, GETPROV+5!
DD	IC+4!, GETPROV+5!
DG	GETPROV+5!
DH	GETPROV+5!
DI	GETPROV+5!
DIADD	IC+4!, GETPROV+5!
DIC	IC+4!, GETPROV+2!, GETPROV+5!
DIC("DR"	IC+4, GETPROV+5
DIC(0	IC+4, GETPROV+5
DIE	IC+4!, IC+6!, IC+9, IC+10, IC+13, GETPROV+5!
DIE("NO^"	IC+13*
DINUM	IC+4!
DIR	GETPROV+2!, PAUSE+1!
DIR("A"	GETPROV+2, PAUSE+1
DIR("B"	GETPROV+2*
DIR(0	GETPROV+2, PAUSE+1
DIRUT	GETPROV+2!, GETPROV+3, PAUSE+1
DIU	GETPROV+5!
DIW	GETPROV+5!
DLAYGO	IC+4!, GETPROV+5!
DO	IC+4!, GETPROV+5!
DQ	GETPROV+5!
DR	IC+4!, IC+6!, IC+9, IC+10, IC+13
DR(2	IC+6*
DTOUT	GETPROV+2!
DUOUT	GETPROV+2!, PAUSE+1
DUZ	GETPROV+2
U	IC+16, GETPROV+2
X	IC+4!, GETPROV+2!, GETPROV+5
Y	IC+5, IC+6, GETPROV+2!, GETPROV+4, GETPROV+5, GETPROV+6

Information