Routine: ABSPOS6D

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Pharmacy Point of Sale	17	$$REVERSE^ABSPECA8 ANY^ABSPOS2A (EN,UPD)^ABSPOS6A ($$NAME,RECEIPTS)^ABSPOS6E CANC5^ABSPOS6L CLAIMLOG^ABSPOS6M ($$CLOSECLM,$$OPENCLM)^ABSPOS6N (PREVISLY,TASK)^ABSPOSIZ ($$GETSLOT,LOG,LOG59,RELSLOT,SETSLOT)^ABSPOSL TASK^ABSPOSQ1 LOG59A^ABSPOSQB $$RESULT59^ABSPOSRX (SETRESU,SETSTAT)^ABSPOSU BYE^ABSPOSU5 $$DEVICE^ABSPOSU8 $$CATEG^ABSPOSUC $$TADD^ABSPOSUD
VA Fileman	3	NOW^%DTC ^DIE ^DIR
Registration	2	FULL^VALM1 EN^VALM2

Package	Total	Caller Graph
Pharmacy Point of Sale	3	ABSPOSAE ABSPOSRB ABSPOSU

Package

Total

Caller Graph

Pharmacy Point of Sale

ABSPOSAE ABSPOSRB ABSPOSU

Entry Points

Name	Comments	DBIA/ICR reference
RECEIPT	; protocol ABSP P1 RECEIPT ; print receipts
REVERSE	; protocol ABSP P1 REVERSE CLAIM ; reverse selected claims
RESUB1(IEN59,MIN)
MRXI
SELECPAT(RET)	; Select a patient. Returns patient IEN(s) in array
PRINT	; protocol ABSP P1 PRINT PATIENT ; print a patient's results ; More aptly, it's "print selected lines"
OPENCLM
PRINT9	; joined here from PRINTALL,CLAIMLOG
DISMISS	; protocol ABSP P1 DISMISS ; dismiss a patient from my screen ; This is to remove a patient from the display before the usual ; time window has expired. Do it by: ; 1. Set @DISMISS nodes to 15 minutes from now, so as to keep ; the patient and prescription off our screen until then. ; 2. Zero out the time of last update in @DISP so that the ; winnowing thinks the entry is too old to keep around. ; This functionality is provided with the intent to support ; dismissing an entire patient's record after all processing ; has been completed. Unusual usage may not have the results ; you presume it might have.
PRINTALL	; protocol ABSP P1 PRINT ALL ; print all patients' results
PRINT99	; joined here from PRINTALL,CLAIMLOG
DEVICE()	;EP - device selection for POS ; want to provide a convenient default
REVERS59(IEN59,WANTQ2)
CLOSECLM
REVERSP(IEN59)
CLAIMLOG	; protocol ABSP P1 CLAIM LOG
CAN99
PRINTHDR	; print a header
CANCEL	; protocol ABSP P1 CANCEL CLAIM
PRINTA(A)	; print line A ; How could you tell whether this is a patient line or a prescription ; line? And which patient or prescription is represented? ; Look at @DISPLINE(n)=patname or patname^rxi ; Look at @VALMIDX@(n,patien), @VALMIDX@(n,patien,rxien)
DIS0
PRINT999
DIS9	; some other functions branch to here to go back to main screen
RESUBMIT	; protocol ABSP P1 RESUBMIT ; resubmit a claim shown on your screen
MAKERXI	; IEN()=line numbers we want to convert to prescription numbers ; builds RXI()="" or maybe data, ignore whatever you get on right side

External References

Name	Field # of Occurrence
NOW^%DTC	PRINTHDR+2, DIS0, CLOSECLM+3
$$REVERSE^ABSPECA8	REVERS59+28
ANY^ABSPOS2A	PRINT99+1, REVERSE+18, RESUBMIT+31, CAN99, CLOSECLM+10, OPENCLM+5
EN^ABSPOS6A	CLOSECLM+12
UPD^ABSPOS6A	REVERSE+19, RESUBMIT+32, CAN99+1, DIS9+1, OPENCLM+6
$$NAME^ABSPOS6E	RECEIPT+1
RECEIPTS^ABSPOS6E	RECEIPT+7
CANC5^ABSPOS6L	CANCEL+7, CANCEL+9
CLAIMLOG^ABSPOS6M	CLAIMLOG+8
$$CLOSECLM^ABSPOS6N	CLOSECLM+9
$$OPENCLM^ABSPOS6N	OPENCLM+4
PREVISLY^ABSPOSIZ	REVERS59+21, RESUB1+17
TASK^ABSPOSIZ	RESUBMIT+30
$$GETSLOT^ABSPOSL	REVERS59+6
LOG^ABSPOSL	REVERS59+8, REVERS59+31
LOG59^ABSPOSL	REVERSP+5
RELSLOT^ABSPOSL	REVERS59+24, REVERS59+34
SETSLOT^ABSPOSL	REVERS59+7, REVERS59+24, REVERS59+34
TASK^ABSPOSQ1	REVERSE+17, REVERS59+33
LOG59A^ABSPOSQB	REVERS59+20
$$RESULT59^ABSPOSRX	RESUBMIT+8, RESUBMIT+15
SETRESU^ABSPOSU	REVERSP+4
SETSTAT^ABSPOSU	REVERS59+32, REVERSP+6, RESUB1+19
BYE^ABSPOSU5	PRINT9+1, RECEIPT+8
$$DEVICE^ABSPOSU8	DEVICE+3
$$CATEG^ABSPOSUC	REVERS59+9
$$TADD^ABSPOSUD	DIS0+1
^DIE	REVERS59+19, REVERS59+30, RESUB1+16
^DIR	RESUBMIT+10
FULL^VALM1	PRINTALL+2, PRINT+7, CLAIMLOG+5, RECEIPT+5, REVERSE+4, RESUBMIT+4, OPENCLM+3
EN^VALM2	SELECPAT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: VALM("TITLE")," " Line Location: PRINTHDR+1
Function Call: WRITE	Prompt: Y,!! Line Location: PRINTHDR+2
Function Call: WRITE	Prompt: VALMHDR(A),! Line Location: PRINTHDR+3
Function Call: WRITE	Prompt: ! Line Location: PRINTHDR+4
Function Call: WRITE	Prompt: ?M-3,"...",$E(X,1,N),! Line Location: PRINTA+12
Function Call: WRITE	Prompt: !,"Enter the line numbers you wish to print. For example,",! Line Location: PRINT+2
Function Call: WRITE	Prompt: "enter 3-7 to print lines 3 through 7.",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Enter the line numbers for which you wish to print claim logs.",! Line Location: CLAIMLOG+1
Function Call: WRITE	Prompt: !,"Enter the line numbers for which you wish to print ",$$NAME^ABSPOS6E(3),".",! Line Location: RECEIPT+1
Function Call: WRITE	Prompt: "Select the line(s) with the paid claim(s) you wish to REVERSE.",! Line Location: REVERSE+1
Function Call: WRITE	Prompt: "Cannot reverse ",RXI,! Line Location: REVERSE+12
Function Call: WRITE	Prompt: "Some claim(s) could not be reversed because only paper claims",! Line Location: REVERSE+15
Function Call: WRITE	Prompt: "and Payable electronic claims can be reversed.",! Line Location: REVERSE+16
Function Call: WRITE	Prompt: "Select the line(s) with the claim(s) you wish to RESUBMIT.",! Line Location: RESUBMIT+1
Function Call: WRITE	Prompt: !,"Select prescription to cancel by line number. Hurry!" Line Location: CANCEL+2
Function Call: WRITE	Prompt: !,"None selected for cancellation",! Line Location: CANCEL+4
Function Call: WRITE	Prompt: !,"Cancellation requests made." Line Location: CANCEL+10
Function Call: WRITE	Prompt: "DISP=",DISP," and @DISP@(PAT) is undef",! Line Location: DIS0+6
Function Call: WRITE	Prompt: "Now @DISP@(PAT)=",@DISP@(PAT),! Line Location: DIS0+8
Function Call: WRITE	Prompt: ! Line Location: SELECPAT+3
Function Call: WRITE	Prompt: !,"Select the line(s) with the claim(s) you wish to CLOSE",! Line Location: CLOSECLM+5
Routine Call	DIE Line Location: REVERS59+19 REVERS59+30 RESUB1+16
Routine Call	DIR Line Location: RESUBMIT+10

Name	Line Occurrences (* Changed, ! Killed)
^ABSPC - [#9002313.02]	REVERS59+31
^ABSPT - [#9002313.59]	REVERS59+26, REVERS59+27, REVERSP+2, RESUBMIT+21, RESUBMIT+25*, RESUB1+15
^DD("DD"	PRINTHDR+2
^TMP("ABSPOS"	DIS0+1

Label References

Name	Line Occurrences
$$DEVICE	PRINTALL+1, PRINT+6, CLAIMLOG+4, RECEIPT+4
$$REVERS59	REVERSE+7
CAN99	CANCEL+4
MAKERXI	CLAIMLOG+6, RECEIPT+6, REVERSE+3, RESUBMIT+3, CLOSECLM+7
MRXI	MAKERXI+2
PRINT9	PRINTALL+5, CLAIMLOG+10, RECEIPT+9
PRINT99	PRINTALL+1, PRINT+5, PRINT+6, CLAIMLOG+3, CLAIMLOG+4, RECEIPT+3, RECEIPT+4
PRINTA	PRINTALL+4, PRINT+9
PRINTHDR	PRINTALL+3, PRINT+8
RESUB1	RESUBMIT+27
REVERS59	RESUBMIT+22, RESUBMIT+26
REVERSP	REVERS59+23
SELECPAT	PRINT+4, CLAIMLOG+2, RECEIPT+2, REVERSE+2, RESUBMIT+2, CANCEL+3, DIS0+2, CLOSECLM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINTHDR+2~, DIS0~, DIS0+1, CLOSECLM+2~, CLOSECLM+4
%H	PRINTHDR+2~, DIS0~, CLOSECLM+2~
%I	PRINTHDR+2~, DIS0~, CLOSECLM+2~
A	PRINTALL+4~, PRINTHDR+3~, PRINTA~, PRINTA+7, PRINTA+8, PRINT+9~*
ABSBRXI	REVERS59+32~, REVERSP+1~, REVERSP+3, RESUB1+19~*
ABSPCLSD	CLOSECLM+2~, CLOSECLM+9*
ABSPDFN	CLOSECLM+2~
ABSPIEN	CLOSECLM+2~
ABSPOPEN	OPENCLM+2~, OPENCLM+4*
ABSPTIME	CLOSECLM+2~, CLOSECLM+4*, CLOSECLM+12
CLAIMIEN	REVERS59+26~*, REVERS59+28
DA	REVERS59+19~, REVERS59+30~, RESUB1+5~*, RESUB1+15
DEFAULT	DEVICE+2~*, DEVICE+3
DEVICE	DEVICE+3~*, DEVICE+4, DEVICE+5
DIE	REVERS59+19~, REVERS59+30~, RESUB1+5~*
DIR	RESUBMIT+10!
DIR("A"	RESUBMIT+10*
DIR("B"	RESUBMIT+10*
DIR(0	RESUBMIT+10*
>> DISMISS	DIS0+5, DIS0+11
>> DISP	MRXI+4, CANCEL+9, DIS0+7, DIS0+12
>> DISPLINE	MRXI, MRXI+3, CANCEL+6, DIS0+4
DR	REVERS59+19~, REVERS59+30~, RESUB1+5~, RESUB1+6, RESUB1+7, RESUB1+8, RESUB1+10, RESUB1+12, RESUB1+15
DUZ	RESUB1+10, CLOSECLM+12
ERRCOUNT	REVERSE+5~, REVERSE+12, REVERSE+14
I	RESUB1+6~, RESUB1+7, RESUB1+12, RESUB1+15*
IEN	PRINT+4~, PRINT+5, MAKERXI+2, MRXI, MRXI+3, CLAIMLOG+2~, CLAIMLOG+3, RECEIPT+2~, RECEIPT+3, REVERSE+2~ , RESUBMIT+2~, DIS0~, DIS0+2, DIS0+3, DIS0+4, CLOSECLM+2~, CLOSECLM+6
IEN(	PRINT+9, MAKERXI+2, DIS0+3
IEN59	REVERS59~, REVERS59+7, REVERS59+9, REVERS59+19, REVERS59+21, REVERS59+23, REVERS59+26, REVERS59+27, REVERS59+30, REVERS59+32 , REVERSP~, REVERSP+2, REVERSP+3, REVERSP+5, RESUBMIT+7~, RESUBMIT+8, RESUBMIT+10, RESUBMIT+11, RESUBMIT+14~, RESUBMIT+15 , RESUBMIT+20, RESUBMIT+21, RESUBMIT+22, RESUBMIT+24, RESUBMIT+25, RESUBMIT+26, RESUBMIT+27, RESUBMIT+29, RESUB1~, RESUB1+5 , RESUB1+17, RESUB1+19
IO	PRINTALL+1~, PRINTALL+2, PRINT+6~, PRINT+7, CLAIMLOG+4~, CLAIMLOG+5, CLAIMLOG+8, RECEIPT+4~, RECEIPT+5, RECEIPT+7
IOM	PRINTA+5~*, PRINTA+10, PRINTA+11
LINE	CANCEL+1~, CANCEL+3, CANCEL+5*, CANCEL+6
LINE(	CANCEL+5
LINE(""	CANCEL+4
M	PRINTA+10~*, PRINTA+12
MIN	RESUB1~, RESUB1+11
MSG	REVERSP+1~*, REVERSP+4, REVERSP+5
N	PRINTA+10~*, PRINTA+12
NODISPLY	REVERSE+19~, RESUBMIT+32~, CAN99+1~, DIS9+1~, OPENCLM+6~*
OLDSLOT	REVERS59+6~*, REVERS59+24, REVERS59+34, REVERSP+1~
PAT	MRXI+3~, MRXI+4, CANCEL+6~, CANCEL+9, DIS0+4~*, DIS0+5, DIS0+7, DIS0+9, DIS0+11, DIS0+12
POS	REVERS59+27~*, REVERS59+28
RESULT	REVERS59+9~*, REVERS59+14, REVERS59+16, REVERS59+22
RET	SELECPAT~, SELECPAT+4*
REV	REVERS59+28~*, REVERS59+30, REVERS59+31, REVERS59+35
REVCOUNT	RESUBMIT+13~*
REVELECT	REVERSE+5~, REVERSE+10, REVERSE+17
REVTOTAL	REVERSE+5~, REVERSE+9, REVERSE+13
RXI	MRXI, MRXI+1, MRXI+4, CLAIMLOG+6~, CLAIMLOG+8, RECEIPT+6~, RECEIPT+7, REVERSE+3~, REVERSE+6, REVERSE+7 , REVERSE+12, RESUBMIT+3~, CANCEL+6~, CANCEL+7, CANCEL+9, DIS0+4~, DIS0+10, DIS0+11, DIS0+12, CLOSECLM+7~ , CLOSECLM+9
RXI(	MRXI+1*, CLAIMLOG+8, REVERSE+6, RESUBMIT+7, RESUBMIT+11!, RESUBMIT+14, CLOSECLM+9
TIME	DIS0~, DIS0+1*, DIS0+5, DIS0+11
U	MRXI, MRXI+3, REVERS59+26, REVERS59+27, REVERS59+31, REVERSP+2, RESUBMIT+21, RESUBMIT+25, RESUB1+15, CANCEL+6 , DIS0+4, DIS0+7, DIS0+12
>> VALM("TITLE"	PRINTHDR+1
VALMA	SELECPAT+1~
>> VALMAR	PRINTALL+4, PRINTA+7
VALMAT	SELECPAT+1~
>> VALMBCK	PRINT999, REVERSE+20, RESUBMIT+33, CAN99+1, DIS9+1, OPENCLM+7
>> VALMHDR(	PRINTHDR+3
VALMI	SELECPAT+1~, SELECPAT+2*
VALMY	SELECPAT+1~, SELECPAT+4
VAMP	SELECPAT+1~
WANTQ2	REVERS59~, REVERS59+33
X	PRINTHDR+2~, PRINTA+6~, PRINTA+7, PRINTA+8, PRINTA+9, PRINTA+11, PRINTA+12, REVERSE+7~, REVERSE+8, REVERSE+10 , REVERSP+1~, RESUBMIT+8~, RESUBMIT+9, RESUBMIT+15~, RESUBMIT+18, RESUBMIT+23, DIS0~, CLOSECLM+2~
>> XQORNOD(0	SELECPAT+2
Y	PRINTHDR+2~*, RESUBMIT+11

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOS6D

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: