Routine: ABSPOSIF

Information

ABSPOSIF ; IHS/FCS/DRS - handle FIND command ; [ 09/12/2002 10:11 AM ]

Source Information

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Pharmacy Point of Sale	4	ZWRITE^ABSPOS $$SET^ABSPOSU3 $$LIST^ABSPOSU4 IMPOSS^ABSPOSUE
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSI1

Entry Points

Name	Field # of Occurrence
ZWRITE^ABSPOS	TEST+1
$$SET^ABSPOSU3	TTYPE+6
$$LIST^ABSPOSU4	WHICHRX+34, VISIFIND+22
IMPOSS^ABSPOSUE	RXFINDC+14
^DIC	PATFIND+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TEST+1
Function Call: WRITE	Prompt: !,"...Searching for visits and prescriptions for "_PATNAME_" ...",! Line Location: RXFINDA+7
Function Call: WRITE	Prompt: !,"This visit has no prescriptions! Try again..." Line Location: RXFINDK+9
Function Call: WRITE	Prompt: ! Line Location: RXFINDK+9
Function Call: WRITE	Prompt: PATNAME," has no visits on file.",! Line Location: VISIFIND+21
Routine Call	DIC Line Location: PATFIND+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED("AD"	VISRX+5
^AUPNVSIT - [#9000010]	RXFINDA, VISLIST+10, VISLIST+12
^AUPNVSIT("AA"	VISLIST+5, VISLIST+7
^DD("DD"	WHICHRX+28, VISLIST+14
^DIC(40.7 - [#40.7]	VISLIST+15
^DPT - [#2]	RXFINDA+4, VISIFIND+7
^PSDRUG - [#50]	WHICHRX+18, VISLIST+24
^PSRX - [#52]	WHICHRX+16, WHICHRX+22, WHICHRX+26, VISLIST+23
^PSRX("APCC"	VMEDRX+2, VMEDRX+4
^TMP($J	RXFINDC+2, RXFINDC+9, RXFINDK+3, RXFINDK+4, RXFINDK+5, RXFINDK+8, RXFINDK+12, WHICHRX+2, WHICHRX+3, WHICHRX+4!* , WHICHRX+8, WHICHRX+12!, WHICHRX+15, WHICHRX+32, WHICHRX+33, VISIFIND+9!, VISIFIND+11*, VISIFIND+12!, VISIFIND+20

Label References

Name	Line Occurrences
$$FMTQTY	WHICHRX+29, WHICHRX+31
$$LJBF	WHICHRX+30, WHICHRX+31, VISLIST+31, VISLIST+32, VISLIST+33, VISLIST+34
$$PATFIND	RXFINDA+2
$$RXFIND	TEST
$$TTYPE	RXFINDC+10
$$VISIFIND	RXFINDC
$$WHICHRX	RXFINDK+11
RXFINDA	RXFINDC, RXFINDC+11
RXFINDC	RXFINDK+8, RXFINDK+11
RXFINDK	RXFINDC+5, RXFINDC+12
RXFINDX	RXFINDA+2
VISLIST	VISIFIND+13
VISRX	VISLIST+19
VMEDRX	VISRX+5

Name	Field # of Occurrence
^(	VMEDRX+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	TTYPE+1~, TTYPE+6*, TTYPE+7
ANSROOT	WHICHRX+12~, WHICHRX+34, VISIFIND+12~, VISIFIND+22
CHOICES	TTYPE+1~, TTYPE+4*, TTYPE+6
CLINIC	VISLIST+9~, VISLIST+15*, VISLIST+33
DATE	WHICHRX+20~, WHICHRX+23, WHICHRX+26, WHICHRX+28, WHICHRX+31, VISLIST+9~, VISLIST+14, VISLIST+32
DDS	RXFIND+13~
DEFAULT	TTYPE+1~, TTYPE+3*, TTYPE+6
DELETED	VISLIST+9~
DIC	PATFIND+1~, PATFIND+2*
DIC(0	PATFIND+2*
DINUM	PATFIND+1~
DISPLAY	TTYPE+1~, TTYPE+3*, TTYPE+6
DLAYGO	PATFIND+1~
DRUGIEN	WHICHRX+17~, WHICHRX+18, WHICHRX+19
DRUGNAME	WHICHRX+18~*, WHICHRX+30
DTOUT	TTYPE+5, PATFIND+1~
DUOUT	PATFIND+1~
LISTROOT	WHICHRX+6~, WHICHRX+34, VISIFIND+9~, VISIFIND+22, VISLIST+2
N	WHICHRX+15~, WHICHRX+32, WHICHRX+33, VISLIST+9~, VISLIST+17, VISLIST+19, VISLIST+21, VISLIST+22, VISLIST+26, VISLIST+27 , VISLIST+35, VISLIST+36, VISLIST+37, LJBF~
OPT	TTYPE+1~, TTYPE+3, TTYPE+6, WHICHRX+11~, WHICHRX+34, VISIFIND+17~*, VISIFIND+22
PAT	RXFIND~, RXFINDA, RXFINDA+2, RXFINDA+4, RXFINDC!, RXFINDC+11!, VISIFIND~, VISIFIND+7, VISIFIND+15, VISLIST+5 , VISLIST+7
PATNAME	RXFIND+12~, RXFINDA+4, RXFINDA+7, WHICHRX+9, VISIFIND+7, VISIFIND+15, VISIFIND+21
PRESC	VISLIST+9~
PROMPT	TTYPE+1~, TTYPE+2, TTYPE+6, WHICHRX+10~, WHICHRX+34, VISIFIND+16~, VISIFIND+22
PROMPT(1	WHICHRX+10*
QTY	WHICHRX+20~, WHICHRX+24, WHICHRX+27, WHICHRX+29, WHICHRX+31, FMTQTY~, FMTQTY+1, FMTQTY+2, FMTQTY+3, FMTQTY+4 , FMTQTY+5
RETVAL	TEST~*, PATFIND+1~
ROOT	VISLIST+2~*, VISLIST+3, VISLIST+17, VISLIST+19, VISLIST+21, VISLIST+22, VISLIST+26, VISLIST+27, VISLIST+35, VISLIST+36 , VISLIST+37, VISLIST+38, VISRX~, VISRX+3, VISRX+5, VMEDRX~, VMEDRX+3, VMEDRX+5, VMEDRX+6
RXI	RXFINDK+4~, RXFINDK+5, RXFINDK+6, WHICHRX+13~, WHICHRX+14, WHICHRX+16, WHICHRX+22, WHICHRX+26, WHICHRX+30, WHICHRX+33 , VISLIST+9~, VISLIST+22, VISLIST+23, VMEDRX+1~, VMEDRX+2, VMEDRX+3, VMEDRX+4, VMEDRX+5
RXINFO	VISLIST+9~, VISLIST+23, VISLIST+24, VISLIST+25, VISLIST+27, VISLIST+29*, VISLIST+30, VISLIST+34
RXR	RXFINDK+5~, RXFINDK+6, WHICHRX+13~, WHICHRX+14, WHICHRX+21, WHICHRX+22, WHICHRX+33, VISLIST+9~, VMEDRX+1~, VMEDRX+4* , VMEDRX+5
RXTYPE	VISIFIND~, VISLIST+30
SEL	RXFIND+12~, RXFINDC, RXFINDC+2, RXFINDC+9, RXFINDK+3, RXFINDK+4, RXFINDK+5, RXFINDK+8, RXFINDK+11, RXFINDK+12 , WHICHRX~, WHICHRX+2, WHICHRX+3
TIME9	VISLIST+4~, VISLIST+5, VISLIST+7
TIMEOUT	TTYPE+1~, TTYPE+5*, TTYPE+6
TITLE	WHICHRX+9~, WHICHRX+34, VISIFIND+14~, VISIFIND+15*, VISIFIND+22
TMP	WHICHRX+2~*
TMP(	WHICHRX+13, WHICHRX+14
TTYPE	RXFIND+12~, RXFINDC+10*, RXFINDC+11, RXFINDC+12, RXFINDC+13, RXFINDC+14
TYPE	RXFIND~, RXFINDA+3, RXFINDC, RXFINDC+5, RXFINDC+6, WHICHRX+5~, WHICHRX+34, VISIFIND+8~*, VISIFIND+22
U	RXFINDA, RXFINDA+4, RXFINDK+6, WHICHRX+17, WHICHRX+18, WHICHRX+23, WHICHRX+24, WHICHRX+26, WHICHRX+27, WHICHRX+33 , VISIFIND+7, VISLIST+10, VISLIST+13, VISLIST+14, VISLIST+15, VISLIST+23, VISLIST+24
VCN	VISLIST+9~, VISLIST+10, VISLIST+11, VISLIST+13*, VISLIST+31
VISIDESC	WHICHRX+3~*, WHICHRX+10
VISIT	VISRX~, VISRX+5
VISITIEN	RXFIND+12~, RXFINDA, RXFINDA+1, RXFINDA+6, RXFINDC, RXFINDC+2*, RXFINDC+6, RXFINDC+9, RXFINDC+13, VISIFIND~ , VISIFIND+13, VISIFIND+19, VISLIST~, VISLIST+8
VISITIN	RXFIND~, RXFINDA, RXFINDC+9
VMED	VISRX+4~, VISRX+5
VMEDIEN	VMEDRX~, VMEDRX+2, VMEDRX+4
VSTIEN	VISLIST+6~, VISLIST+7, VISLIST+8, VISLIST+10, VISLIST+11, VISLIST+12, VISLIST+19, VISLIST+36
X	RXFINDK+3, RXFINDK+6, WHICHRX+7~, WHICHRX+8, WHICHRX+30~, WHICHRX+31, WHICHRX+32, WHICHRX+34, WHICHRX+35, WHICHRX+36 , WHICHRX+38, WHICHRX+39, VISIFIND+10~, VISIFIND+11, VISIFIND+18~, VISIFIND+19, VISIFIND+20, VISIFIND+22, VISIFIND+23, VISIFIND+24 , VISIFIND+26, VISIFIND+27, VISLIST+9~, VISLIST+31, VISLIST+32, VISLIST+33, VISLIST+34*, VISLIST+35, PATFIND+1~, LJBF~
Y	WHICHRX+28~, VISLIST+9~, VISLIST+14, PATFIND+1~, PATFIND+11
Z	WHICHRX+16~, WHICHRX+17, WHICHRX+22~, WHICHRX+23, WHICHRX+24, WHICHRX+27, VISLIST+9~, VISLIST+12*, VISLIST+13, VISLIST+14 , VISLIST+15

Name	Comments	DBIA/ICR reference
RXFINDX	; removed call ; ABSP1.0T78 ; D REFRESH^DDSUTL
FMTQTY(QTY)
RXFIND(PAT,TYPE,VISITIN)	;EP - from ABSPOSI1
VMEDRX(VMEDIEN,ROOT)
VISIFIND(PAT,RXTYPE,VISITIEN)
WHICHRX(SEL)
VISRX(VISIT,ROOT)
RXFINDK	; If there was only one prescription with the visit, that's the one ; we take - the drug name and date was shown, we know that's the one
LJBF(X,N)
PATFIND()
VISLIST(VISITIEN)	; set up LISTROOT ; given PAT ; if $$, it returns the count ; variations? haven't thought it through - for now, must have PAT
TEST
RXFINDC
TTYPE()	; so what are you looking for?
RXFINDA

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSIF

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items