Routine: ABSPOSIV

Package	Total	Call Graph
Pharmacy Point of Sale	12	$$NDCVAL^ABSPFUNC ZWRITE^ABSPOS $$RESULT^ABSPOS6B ($$INIT,$$NEWREC,ALL1,GET515)^ABSPOSI ($$BACKLOG,$$GETNDC)^ABSPOSIW FILE^ABSPOSIZ LOG^ABSPOSL2 $$RXPAID^ABSPOSNC $$FREETEXT^ABSPOSU2 $$YESNO^ABSPOSU3 ($$TIMEDIF,$$TIMEDIFI)^ABSPOSUD $$IMPOSS^ABSPOSUE
VA Fileman	3	NOW^%DTC ^DIC FILE^DIE

Package	Total	Caller Graph
Pharmacy Point of Sale	5	ABSPOS6L ABSPOS6M ABSPOSI ABSPOSIW ABSPOSRB

Entry Points

Name	Comments	DBIA/ICR reference
SETRXR()
IEN59(A,B,C)
GETRX()	;EP - from ABSPOS6L,ABSPOS6M
F5
FILING(ECHO,ORIGIN)
DEFNDC()	;EP - from ABSPOSIW, ABSPOSRB
TDIF(H0,H1)
ISRESUB(IEN59)
READER99
GETRX1	;
READER(MAXINPUT)	; Get input for Pharmacy POS. ; Returns 0 if all is well, nonzero if there's any problems. ; DEFNDC should only be there from my TESTONE entry point
RESUBMIT(RXI)
READER19
TEST	; testing READER
FA5
READER10()	; Get the inputs ; INDEX = which one you're on (1 = first, 2 = second, etc.) ; Return -1 if the user wants out ; Return 0 if input is complete ("" response to Prescription #) ; Return >0,<1 if some kind of problem with input (a try-again) ; Return >1 if all is well as good for storage ; Sets ABSBRXI,ABSBRXR,ABSBNDC
FILEARAY	; TO BE MOVED TO ABSPOSIZ: D INCSTAT^ABSPOSUD($T(+0),1)
READER11	; branch back if "SCREENMAN" entered too late

External References

Name	Field # of Occurrence
NOW^%DTC	RESUBMIT+14
$$NDCVAL^ABSPFUNC	DEFNDC+3
ZWRITE^ABSPOS	FA5+4
$$RESULT^ABSPOS6B	RESUBMIT+20
$$INIT^ABSPOSI	F5+2
$$NEWREC^ABSPOSI	F5
ALL1^ABSPOSI	ABSPOSIV+17
GET515^ABSPOSI	ABSPOSIV+14
$$BACKLOG^ABSPOSIW	RESUBMIT+39
$$GETNDC^ABSPOSIW	READER11+10
FILE^ABSPOSIZ	F5+6
LOG^ABSPOSL2	FA5+1
$$RXPAID^ABSPOSNC	RESUBMIT+21
$$FREETEXT^ABSPOSU2	GETRX1+1
$$YESNO^ABSPOSU3	RESUBMIT+29, RESUBMIT+33, RESUBMIT+56
$$TIMEDIF^ABSPOSUD	RESUBMIT+15
$$TIMEDIFI^ABSPOSUD	RESUBMIT+16
$$IMPOSS^ABSPOSUE	F5+2, FA5+2
^DIC	GETRX1+23
FILE^DIE	FA5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Because of ""^"", no claims are filed.",! Line Location: ABSPOSIV+16
Function Call: WRITE	Prompt: "..." Line Location: FILING+3
Function Call: WRITE	Prompt: "..." Line Location: F5+1
Function Call: WRITE	Prompt: "..." Line Location: F5+3
Function Call: WRITE	Prompt: "..." Line Location: F5+5
Function Call: WRITE	Prompt: ! Line Location: F5+7
Function Call: WRITE	Prompt: "Returned value from READER was ",X,! Line Location: TEST+2
Function Call: WRITE	Prompt: !!,"Scan the prescription and NDC numbers.",! Line Location: READER+4
Function Call: WRITE	Prompt: "Press ENTER when done and the claims will be processed.",! Line Location: READER+5
Function Call: WRITE	Prompt: "Type ^ to stop without sending claims.",! Line Location: READER+6
Function Call: WRITE	Prompt: ! Line Location: READER+7
Function Call: WRITE	Prompt: "At FILEARAY with ",! Line Location: FILEARAY+1
Function Call: WRITE	Prompt: A,?5,ABSBRXI(A),?20,ABSBRXR(A),?25,ABSBNDC(A),! Line Location: FILEARAY+3
Function Call: WRITE	Prompt: !,"Unexpected error in FILEARAY^"_$T(+0),! Line Location: FA5+3
Function Call: WRITE	Prompt: !,"Typing SCREENMAN has to be done at the very beginning.",! Line Location: READER11+3
Function Call: WRITE	Prompt: "For now, you're stuck in this old-style input.",! Line Location: READER11+4
Function Call: WRITE	Prompt: "Answer with ^ to get out without doing anything.",! Line Location: READER11+5
Function Call: WRITE	Prompt: ! Line Location: READER11+7
Function Call: WRITE	Prompt: ! Line Location: READER11+11
Function Call: WRITE	Prompt: !,"Try again.",! Line Location: READER11+13
Function Call: WRITE	Prompt: " ",$P($G(^DPT(PT,0)),U) Line Location: GETRX1+29
Function Call: WRITE	Prompt: " ",$P($G(^PSDRUG(DG,0)),U) Line Location: GETRX1+30
Function Call: WRITE	Prompt: !?5 Line Location: GETRX1+33
Function Call: WRITE	Prompt: !?5,"This prescription has already been processed thru Point of Sale.",! Line Location: RESUBMIT+10
Function Call: WRITE	Prompt: "Processing completed ",TIMEDIF," ago.",! Line Location: RESUBMIT+19
Function Call: WRITE	Prompt: "The result was ",$$RESULT^ABSPOS6B(RXI),! Line Location: RESUBMIT+20
Function Call: WRITE	Prompt: "Last time, the insurer accepted this claim for payment.",! Line Location: RESUBMIT+22
Function Call: WRITE	Prompt: "If you wish to resubmit the claim with different data,",! Line Location: RESUBMIT+23
Function Call: WRITE	Prompt: "the paid claim must first be reversed (use the REV option",! Line Location: RESUBMIT+24
Function Call: WRITE	Prompt: "to reverse paid claims.)",! Line Location: RESUBMIT+25
Function Call: WRITE	Prompt: !?5,"You should NOT resubmit this claim.",! Line Location: RESUBMIT+31
Function Call: WRITE	Prompt: " The claim will",$S(RETVAL:"",1:" NOT")," be resubmitted.",! Line Location: RESUBMIT+35
Function Call: WRITE	Prompt: "This claim did not complete processing!",! Line Location: RESUBMIT+37
Function Call: WRITE	Prompt: "The last activity was ",TIMEDIF," ago.",! Line Location: RESUBMIT+38
Function Call: WRITE	Prompt: "There is an estimated backlog in the Point of Sale system",! Line Location: RESUBMIT+44
Function Call: WRITE	Prompt: "of ",%," minute" Line Location: RESUBMIT+45
Function Call: WRITE	Prompt: "s" Condition for execution: %>1 Line Location: RESUBMIT+45
Function Call: WRITE	Prompt: " of processing.",! Line Location: RESUBMIT+45
Function Call: WRITE	Prompt: "Please wait at least ten minutes before trying ",! Line Location: RESUBMIT+47
Function Call: WRITE	Prompt: "to resubmit the claim. It may be waiting its turn for ",! Line Location: RESUBMIT+48
Function Call: WRITE	Prompt: "processing. Or there may be a larger problem that requires",! Line Location: RESUBMIT+49
Function Call: WRITE	Prompt: "technical support attention.",! Line Location: RESUBMIT+50
Function Call: WRITE	Prompt: !!?10,"REVERSALS: If you just recently submitted a REVERSAL,",! Line Location: RESUBMIT+53
Function Call: WRITE	Prompt: ?10,"you may resubmit the claim as soon as the reversal",! Line Location: RESUBMIT+54
Function Call: WRITE	Prompt: ?10,"has been completed.",! Line Location: RESUBMIT+55
Routine Call	DIC Line Location: GETRX1+23
Routine Call	DIE Line Location: FA5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	GETRX1+16
^ABSPT - [#9002313.59]	ISRESUB+1, RESUBMIT+11, RESUBMIT+12, RESUBMIT+13, RESUBMIT+51
^DPT - [#2]	GETRX1+29
^PSDRUG - [#50]	GETRX1+30
^PSRX - [#52]	FILEARAY+6, SETRXR, DEFNDC+4, GETRX1+27

Label References

Name	Line Occurrences
$$GETRX	READER11+1
$$IEN59	GETRX1+32
$$ISRESUB	GETRX1+33
$$READER	ABSPOSIV+15, TEST+1
$$READER10	READER+11
$$RESUBMIT	GETRX1+35
$$SETRXR	GETRX1+31
F5	F5+2, FA5+2
FILEARAY	F5+4
FILING	ABSPOSIV+19
GETRX1	GETRX1+24, GETRX1+33
READER11	READER11+2, READER11+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETRX1+34~, GETRX1+35, RESUBMIT+14~, RESUBMIT+43~, RESUBMIT+45, RESUBMIT+51*, RESUBMIT+52
%H	RESUBMIT+14~
%I	RESUBMIT+14~
A	FILEARAY+2~*, FILEARAY+3, IEN59~
ABSBNDC	ABSPOSIV+12~, READER+14, READER11+10*, READER11+13
ABSBNDC(	READER+14*, FILEARAY+3, FILEARAY+9
ABSBRXI	ABSPOSIV+12~, READER+12, READER+17, SETRXR, DEFNDC+3, DEFNDC+4, READER11+1, READER11+2, READER11+8, READER19 , GETRX1+31, GETRX1+32
ABSBRXI(	READER+12*, FILEARAY+2, FILEARAY+3, FILEARAY+5, FILEARAY+6, FILEARAY+10
ABSBRXI(" "	F5
ABSBRXI(""	ABSPOSIV+19
ABSBRXR	ABSPOSIV+12~, READER+13, DEFNDC+3, GETRX1+31*, GETRX1+32
ABSBRXR(	READER+13*, FILEARAY+3, FILEARAY+11
B	IEN59~
BACKLOG	RESUBMIT+39~*, RESUBMIT+42, RESUBMIT+43, RESUBMIT+46
C	IEN59~
COMPLETE	RESUBMIT+17~*, RESUBMIT+18
DEFNDCNO	ABSPOSIV+13~, ABSPOSIV+14*
DG	GETRX+6~, GETRX1+28*, GETRX1+30
DIC	GETRX+6~, GETRX1+23*
DIC(0	GETRX1+23*
DTIME	GETRX1+1
DUZ	ABSPOSIV+14
ECHO	ABSPOSIV+18~, ABSPOSIV+19, FILING~, FILING+2, FILING+3, F5+1, F5+3, F5+5, F5+6, F5+7
FDA	FILEARAY+4~
FDA(	FILEARAY+8, FILEARAY+9, FILEARAY+10, FILEARAY+11, FILEARAY+12*
H0	TDIF~
H1	TDIF~
I	FILEARAY+4~, FILEARAY+5*, FILEARAY+6, FILEARAY+7, FILEARAY+8, FILEARAY+9, FILEARAY+10, FILEARAY+11
IEN51	F5~*, F5+2, F5+6, FILEARAY+7
IEN59	GETRX1+32~*, GETRX1+33, GETRX1+35, ISRESUB~, ISRESUB+1
IENS	FILEARAY+4~, FILEARAY+7*, FILEARAY+8, FILEARAY+9, FILEARAY+10, FILEARAY+11, FILEARAY+12
INDEX	READER+8~, READER+11, READER+12, READER+13, READER+14, READER11+2
MAXINPUT	READER~, READER+10*, READER+11
MSG	FILEARAY+4~, FA5+1, FA5+2
NOW	RESUBMIT+14~*, RESUBMIT+15, RESUBMIT+16
ORIGIN	ABSPOSIV+18~*, ABSPOSIV+19, FILING~, F5
PAT	FILEARAY+6~*, FILEARAY+12
PT	GETRX+6~, GETRX1+28*, GETRX1+29
RETVAL	READER+9~, READER+11, READER+16, RESUBMIT+9~, RESUBMIT+26, RESUBMIT+30, RESUBMIT+31, RESUBMIT+34, RESUBMIT+35, RESUBMIT+46* , RESUBMIT+57*, RESUBMIT+58
REVERSAL	RESUBMIT+13~*
RXI	RESUBMIT~, RESUBMIT+11, RESUBMIT+12, RESUBMIT+13, RESUBMIT+20, RESUBMIT+21, RESUBMIT+51
STATUS	RESUBMIT+11~*, RESUBMIT+17
SUBF	FILEARAY+4~*, FILEARAY+8, FILEARAY+9, FILEARAY+10, FILEARAY+11, FILEARAY+12
TIME	RESUBMIT+12~*, RESUBMIT+15, RESUBMIT+16
TIMEDIF	RESUBMIT+15~*, RESUBMIT+19, RESUBMIT+38
TIMEDIFI	RESUBMIT+16~*, RESUBMIT+42, RESUBMIT+46
U	ABSPOSIV+14, FILEARAY+6, DEFNDC+4, GETRX1+16, GETRX1+28, GETRX1+29, GETRX1+30, RESUBMIT+11, RESUBMIT+12, RESUBMIT+52
X	ABSPOSIV+14~, ABSPOSIV+15~, ABSPOSIV+16, ABSPOSIV+17, TEST+1, TEST+2, GETRX+6~, GETRX1+1, GETRX1+2, GETRX1+4 , GETRX1+5, GETRX1+8, GETRX1+15, GETRX1+16, GETRX1+21, GETRX1+25, GETRX1+27, GETRX1+28, RESUBMIT+9~, RESUBMIT+14~ , RESUBMIT+29, RESUBMIT+30, RESUBMIT+33, RESUBMIT+34, RESUBMIT+56*, RESUBMIT+57
X(100	ABSPOSIV+14
Y	GETRX+6~, GETRX1+24, GETRX1+26, GETRX1+27, GETRX1+31, GETRX1+33, GETRX1+34, GETRX1+36*, GETRX1+37

Marked Items

Name	Field # of Occurrence
$T(	F5+2, FA5+2, FA5+3

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSIV

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items