Routine: ABMDE8DA

Information

ABMDE8DA ; IHS/ASDST/DMJ - PAGE 8D - MED VIEW OPTION ;

Package	Total	Call Graph
Third Party Billing	4	SUM^ABMDE1 ^ABMDERR $$HDT^ABMDUTL $$EN^ABMVDF
VA Fileman	2	EN^DIQ1 ^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"There have been no Drugs issued through the Pharmacy System to this Patient",!,"for the visit date(s) in concern." Line Location: ABMDE8DA+12
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: V1+1
Function Call: WRITE	Prompt: !,$P(ABMA(0),U),?8,$S($D(^PSDRUG(+$P(ABMA(0),U,6),0)):$P(^(0),U),1:"NOT ON FILE"),?43,$J($P(ABMA(0),U,7),6) Line Location: V1+2
Function Call: WRITE	Prompt: ?53,$$HDT^ABMDUTL($P(ABMA(0),U,13)) Line Location: V1+6
Function Call: WRITE	Prompt: ?63,$$HDT^ABMDUTL(ABMA("DT")) Condition for execution: ABMA("DT") Line Location: V1+7
Function Call: WRITE	Prompt: ?74,"(",ABMA("F"),")" Line Location: V1+7
Function Call: WRITE	Prompt: !?10,"NDC#: ",$P($G(^PSDRUG($P(ABMA(0),U,6),2)),U,4) Line Location: V1+8
Function Call: WRITE	Prompt: !?10,"*** MEDICATIONS ENTERED THROUGH THE PHARMACY SYSTEM ***" Line Location: HD+0
Function Call: WRITE	Prompt: !!,"Rx# Drug",?46,"Qty",?53,"Issued ",?63,"Last Fill Rem" Line Location: HD+1
Function Call: WRITE	Prompt: !,ABMA("D") Line Location: HD+2
Routine Call	DIR Line Location: V1+1

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	V1+2, V1+8
^PSRX - [#52]	ABMDE8DA+11, V1+5
^PSRX("AD"	ABMDE8DA+7, ABMDE8DA+11

Name	Field # of Occurrence
ABMA	ABMDE8DA+7*, ABMDE8DA+8, ABMDE8DA+9, ABMDE8DA+10, ABMDE8DA+11, XIT!
ABMA("C"	ABMDE8DA+5, ABMDE8DA+12, V1
ABMA("D"	ABMDE8DA+5*, HD+2
ABMA("DT"	V1+3, V1+5, V1+7
ABMA("F"	V1+4, V1+5, V1+7
ABMA("I"	V1+4, V1+5
ABMA("OUT"	ABMDE8DA+7, ABMDE8DA+9, ABMDE8DA+10*
ABMA("R"	ABMDE8DA+11*, V1+5, V1+10
ABMA(0	ABMDE8DA+11*, V1+2, V1+3, V1+4, V1+6, V1+8
ABMA(2	ABMDE8DA+11*, V1+3
ABMA(52	V1+11, V1+12
>> ABMP("DDT"	ABMDE8DA+9, ABMDE8DA+10
>> ABMP("PDFN"	ABMDE8DA+11
>> ABMP("VDT"	ABMDE8DA+7, ABMDE8DA+8, ABMDE8DA+10
>> ABMZ("PG"	ABMDE8DA+3*
>> ABMZ("TITL"	ABMDE8DA+4*
DA	V1+10~*, V1+11, V1+12
>> DIC	V1+9*
DIQ	V1+9*, V1+11!
DIQ(0	V1+9*
DIR	V1+1!
DIR(0	V1+1*
>> DR	V1+9*
DTOUT	ABMDE8DA+11, V1+1, XIT!
DUOUT	ABMDE8DA+11, V1+1, XIT!
IOSL	V1+1
U	ABMDE8DA+11, V1+2, V1+3, V1+4, V1+6, V1+8