Routine: ABSPOSMZ

Information

ABSPOSMZ ; IHS/FCS/DRS - General Inquiry/Report .57; [ 09/12/2002 10:15 AM ]

Source file <ABSPOSMZ.m>

Package	Total	Call Graph
Pharmacy Point of Sale	3	$$NOW^ABSPOS $$DTR^ABSPOSU1 $$TADD^ABSPOSUD
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Pharmacy Point of Sale	3	ABSPOSMA ABSPOSMB ABSPOSMC

Name	Comments	DBIA/ICR reference
DEFOUT()	; EP - return code of first item in OUTMENU
SORTDATE()	; EP - ask which date to sort by ; Returns "T" for transaction date, "R" for released date, or ""
MODEMENU	;
ASKPHARM()	; EP - Lookup pharmacy (the POS pharmacy, that is) ; Return pointer to 9002313.56
MODE()	; EP - ask which mode to run in - Inquiry or Report ; Returns "I" for inquiry mode, "R" for report mode, or ""
DATEMENU	;
OUTPUT()	; EP - ask for output type ; Returns one of the codes in OUTMENU, below. Or "" if no selection.
ASKRTYPE()	; EP - Lookup result type ; Return the name of the result type, null if none selected
ASKPAT()	; EP - Lookup patient - patient must have a Point of Sale transaction ; Return patient IEN, return false if none selected
OUTMENU	;
DATES(DEF)	; EP -

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: OUTPUT+5
Function Call: WRITE	Prompt: ?5,$P(X,":"),?10,$P(X,":",2),! Line Location: OUTPUT+7
Function Call: WRITE	Prompt: !! Line Location: SORTDATE+5
Function Call: WRITE	Prompt: ?5,$P(X,":"),?10,$P(X,":",2),! Line Location: SORTDATE+7
Function Call: WRITE	Prompt: ! Line Location: DATES+13
Function Call: WRITE	Prompt: !! Line Location: MODE+5
Function Call: WRITE	Prompt: ?5,$P(X,":"),?10,$P(X,":",2),! Line Location: MODE+7
Routine Call	DIC Line Location: ASKPHARM+4 ASKPAT+5 ASKRTYPE+4
Routine Call	DIR Line Location: OUTPUT+9 SORTDATE+8 MODE+9

Name	Line Occurrences (* Changed, ! Killed)
^ABSPF(9002313.83 - [#9002313.83]	ASKRTYPE+5

Name	Field # of Occurrence
>> ABSPOSMA("BY	WHICH DATE" , DATES+2, DATES+3
>> ABSPOSMA("MODE"	MODE+8
>> ABSPOSMA("OUT	PUT TYPE" , OUTPUT+8
DEF	DATES~, DATES+4
DEF1	DATES+1~, DATES+4, DATES+12, DATES+14
DEF2	DATES+1~, DATES+4, DATES+11, DATES+12, DATES+14
>> DIB("B"	MODE+4*
DIC	ASKPHARM+2~, ASKPHARM+3, ASKPAT+2~, ASKPAT+3, ASKRTYPE+2~, ASKRTYPE+3*
DIC("S"	ASKPAT+4*
DIC(0	ASKPHARM+3, ASKPAT+3, ASKRTYPE+3*
DINUM	ASKPHARM+2~, ASKPAT+2~, ASKRTYPE+2~
DIR	OUTPUT+2~, SORTDATE+2~, MODE+2~
DIR("A"	OUTPUT+4, SORTDATE+3, MODE+3*
DIR("B"	OUTPUT+8, SORTDATE+4, MODE+8*
DIR(0	OUTPUT+3, OUTPUT+6, SORTDATE+2, SORTDATE+6, MODE+2, MODE+6
DLAYGO	ASKPHARM+2~, ASKPAT+2~, ASKRTYPE+2~
DTIME	ASKPHARM+2~, ASKPAT+2~, ASKRTYPE+2~
I	OUTPUT+5~, SORTDATE+5~, MODE+5~*
PR1	DATES+1~, DATES+2*, DATES+14
PR2	DATES+1~, DATES+3*, DATES+14
U	ASKRTYPE+5, DATES+4
X	ASKPHARM+2~, ASKPAT+2~, ASKRTYPE+2~, OUTPUT+2~, OUTPUT+5~, OUTPUT+6, OUTPUT+7, DEFOUT+1~, DEFOUT+2, SORTDATE+2~ , SORTDATE+5~, SORTDATE+6, SORTDATE+7, MODE+2~, MODE+5~, MODE+6, MODE+7
Y	ASKPHARM+2~, ASKPHARM+5, ASKPAT+2~, ASKPAT+6, ASKRTYPE+2~, ASKRTYPE+5, OUTPUT+2~, OUTPUT+10, SORTDATE+2~, SORTDATE+9 , MODE+2~, MODE+10