Routine: ABSPOS1

Package	Total	Call Graph
Pharmacy Point of Sale	12	$$REVERSE^ABSPECA8 ANY^ABSPOS2A UPD^ABSPOS6A ($$NAME,RECEIPTS)^ABSPOS8 $$CATEG^ABSPOSB2 (PREVISLY,TASK)^ABSPOSIZ TASK^ABSPOSQ1 $$RESULT59^ABSPOSRX ($$FreeText,$$Numeric)^ABSPOSU2 $$Set^ABSPOSU3 BYE^ABSPOSU5 $$DEVICE^ABSPOSU8
Uncategorized	3	($$TADD,CANC5,CLAIMLOG)^ABSBPOS (SETRESU,SETSTAT)^ABSBPOSR ($$GETSLOT,INIT,LOG,RELSLOT,SETSLOT)^ABSBPOSU
VA Fileman	3	NOW^%DTC ^DIC ^DIE
Registration	2	FULL^VALM1 EN^VALM2

Entry Points

Name	Comments	DBIA/ICR reference
RECEIPT	; print receipts
REVERSE	; reverse selected claims ABSB RXE POS RXE P1 REVERSE
CAN99
MRXI
SELECPAT(RET)	; Select a patient. Returns patient IEN(s) in array
HDR8
PRINT	; print a patient's results ABSB POS RXE P1 PRINT PATIENT ; More aptly, it's "print selected lines"
RESUB1(IEN59)
HDR2	; just one user - which one?
HDR3	; time frame to keep patient on screen
HDR1
PRINT9	; joined here from PRINTALL,CLAIMLOG
DISMISS	; dismiss a patient from my screen ABSB POS RXE P1 DISMISS PATIENT ; 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	; print all patients' results ABSB POS RXE P1 PRINT ALL
HDR9
PRINT99	; joined here from PRINTALL,CLAIMLOG
DEVICE()	; device selection for POS ; want to provide a convenient default
HDR8A
REVERS59(IEN59,WANTQ2)
REVERSP(IEN59)
CLAIMLOG	; print a claim log ABSB RXE POS RXE P1 CLAIM LOG
HDR88
HDR4	; Frequency of updates in continuous update mode ; HDRA rejoins here
PRINTHDR	; print a header
HDRA	; display for which one patient?
CANCEL	; cancel a claim ABSB POS RXE 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
HEADER	; edit header information ; ABSB POS RXE P1 HEADER ; (This is what the menu shows as EV Edit view screen) ; first, ask "All users or just one user or one patient?"
PRINT999
DIS9	; some other functions branch to here to go back to main screen
RESUBMIT	;
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	DIS0
$$TADD^ABSBPOS	DIS0+1
CANC5^ABSBPOS	CANCEL+11, CANCEL+13
CLAIMLOG^ABSBPOS	CLAIMLOG+8
SETRESU^ABSBPOSR	REVERSP+4
SETSTAT^ABSBPOSR	REVERS59+18, REVERSP+3, RESUB1+10
$$GETSLOT^ABSBPOSU	REVERSP+5
INIT^ABSBPOSU	REVERSP+6
LOG^ABSBPOSU	REVERSP+7
RELSLOT^ABSBPOSU	REVERSP+8
SETSLOT^ABSBPOSU	REVERSP+9
$$REVERSE^ABSPECA8	REVERS59+15
ANY^ABSPOS2A	PRINT99+1, REVERSE+18, RESUBMIT+16, CAN99
UPD^ABSPOS6A	REVERSE+19, RESUBMIT+17, CAN99+1, DIS9+1, HDR88+2
$$NAME^ABSPOS8	RECEIPT+1
RECEIPTS^ABSPOS8	RECEIPT+7
$$CATEG^ABSPOSB2	REVERS59+6
PREVISLY^ABSPOSIZ	REVERS59+10, RESUBMIT+13
TASK^ABSPOSIZ	RESUBMIT+15
TASK^ABSPOSQ1	REVERSE+17, REVERS59+19
$$RESULT59^ABSPOSRX	RESUBMIT+7
$$FreeText^ABSPOSU2	HDR3+5
$$Numeric^ABSPOSU2	HDR4+5, HDRA+14
$$Set^ABSPOSU3	HDR1
BYE^ABSPOSU5	PRINT9+1, CLAIMLOG+9, RECEIPT+8
$$DEVICE^ABSPOSU8	DEVICE+3
^DIC	HDR2+4, HDRA+4
^DIE	REVERS59+17, RESUB1+7
FULL^VALM1	PRINTALL+2, PRINT+7, CLAIMLOG+5, RECEIPT+5, REVERSE+4, RESUBMIT+4, CANCEL+5, HEADER+3
EN^VALM2	SELECPAT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: VALM("TITLE")," " Line Location: PRINTHDR+1
Function Call: WRITE	Prompt: " " Line Location: PRINTHDR+1
Function Call: WRITE	Prompt: " " Line Location: PRINTHDR+1
Function Call: WRITE	Prompt: VALMHDR(A),! Line Location: PRINTHDR+2
Function Call: WRITE	Prompt: ! Line Location: PRINTHDR+3
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^ABSPOS8(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: "Temporary for debugging:",! Line Location: CANCEL+5
Function Call: WRITE	Prompt: !,"Cancellation requests made." Line Location: CANCEL+14
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: HEADER+5
Function Call: WRITE	Prompt: ! Line Location: HDR1+1
Function Call: WRITE	Prompt: ! Line Location: HDR2+4
Function Call: WRITE	Prompt: !,"Enter the number of MINUTES, the length of time that",! Line Location: HDR3+1
Function Call: WRITE	Prompt: "completed transactions will be retained on the screen.",! Line Location: HDR3+2
Function Call: WRITE	Prompt: ! Line Location: HDR3+5
Function Call: WRITE	Prompt: " ??" Line Location: HDR3+7
Function Call: WRITE	Prompt: !,"Enter the number of SECONDS between updates when the display",! Line Location: HDR4+3
Function Call: WRITE	Prompt: "is in CONTINUOUS UPDATE MODE.",! Line Location: HDR4+4
Function Call: WRITE	Prompt: ! Line Location: HDR4+5
Function Call: WRITE	Prompt: !,"Settings have been changed.",! Line Location: HDR88+0
Function Call: WRITE	Prompt: !,"No settings have been changed.",! Line Location: HDR8A+0
Function Call: WRITE	Prompt: "Done",! Line Location: HDR9+0
Function Call: WRITE	Prompt: ! Line Location: HDRA+4
Function Call: WRITE	Prompt: !,"Enter the number of DAYS to go back to find" Line Location: HDRA+6
Function Call: WRITE	Prompt: !,"Point of Sale activity for ",$P(Y(0),U),"." Line Location: HDRA+7
Function Call: WRITE	Prompt: ! Line Location: HDRA+8
Function Call: WRITE	Prompt: ! Line Location: HDRA+14
Function Call: WRITE	Prompt: ! Line Location: SELECPAT+3
Routine Call	DIE Line Location: REVERS59+17 RESUB1+7
Routine Call	DIC Line Location: HDR2+4 HDRA+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPEC(9002335.59	REVERS59+13, REVERS59+14, REVERSP+2*
^TMP("ABSPOS"	DIS0+1, HDR3+3, HDR4+5, HDR8, HDR8+3, HDRA+8, HDRA+18, HDRA+19
^VA(200 - [#200]	HDR2+2

Label References

Name	Line Occurrences
$$DEVICE	PRINTALL+1, PRINT+6, CLAIMLOG+4, RECEIPT+4
$$REVERS59	REVERSE+7
CAN99	CANCEL+4
HDR1	HDR2+4
HDR3	HDR1+6, HDR3+7
HDR88	HDRA+20
HDR8A	HDR1+2, HDR2+4, HDR3+6, HDR4+6
HDR9	HDR88+3, HDRA+5
HDRA	HDR1+7, HDRA+5, HDRA+16
MAKERXI	CLAIMLOG+6, RECEIPT+6, REVERSE+3, RESUBMIT+3
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+12
REVERSP	REVERS59+11
SELECPAT	PRINT+4, CLAIMLOG+2, RECEIPT+2, REVERSE+2, RESUBMIT+2, CANCEL+3, DIS0+2

Naked Globals

Name	Field # of Occurrence
^("FREQ"	HDR8+2*
^("LAST UPDATE"	HDR8+1*
^("PATIENT TIME"	HDRA+18*
^("TIME"	HDR8+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CANCEL+8~*, DIS0~, DIS0+1
%H	DIS0~
%I	DIS0~
A	PRINTALL+4~, PRINTHDR+2~, PRINTA~, PRINTA+7, PRINTA+8, PRINT+9~*
ABSBRXI	REVERS59+18~, REVERSP+1~, REVERSP+3, RESUB1+10~*
BBLIMIT	HDRA+1~, HDRA+13*, HDRA+14
CLAIMIEN	REVERS59+13~*, REVERS59+15
DA	REVERS59+17~, RESUB1+4~, HEADER+4~
DEFAULT	DEVICE+2~*, DEVICE+3
DEVICE	DEVICE+3~*, DEVICE+4, DEVICE+5
DIC	HEADER+4~, HDR2+1, HDRA+2
DIC("A"	HDR2+1, HDRA+2
DIC("B"	HDR2+2*
DIC("S"	HDRA+3*
DIC(0	HDR2+1, HDRA+2
DIE	REVERS59+17~, RESUB1+4~
>> DISMISS	DIS0+5, DIS0+11
>> DISP	MRXI+4, CANCEL+7, CANCEL+13, DIS0+7, DIS0+12
>> DISPLINE	MRXI, MRXI+3, CANCEL+10, DIS0+4
DR	REVERS59+17~, RESUB1+4~, RESUB1+5, RESUB1+6*
DTOUT	HEADER+4~, HDR2+4, HDRA+5
DUOUT	HEADER+4~, HDR2+4, HDRA+5
DUZ	HDR2+2
ERRCOUNT	REVERSE+5~, REVERSE+12, REVERSE+14
I	RESUB1+5~*, RESUB1+6
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
IEN(	PRINT+9, MAKERXI+2, DIS0+3
IEN59	REVERS59~, REVERS59+6, REVERS59+10, REVERS59+11, REVERS59+13, REVERS59+14, REVERS59+17, REVERS59+18, REVERSP~, REVERSP+2 , REVERSP+3, REVERSP+6, RESUBMIT+6~*, RESUBMIT+7, RESUBMIT+9, RESUBMIT+11, RESUBMIT+12, RESUBMIT+13, RESUBMIT+14, RESUB1~ , RESUB1+4, RESUB1+10
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+9*, CANCEL+10
LINE(	CANCEL+9
LINE(""	CANCEL+4
M	PRINTA+10~*, PRINTA+12
MSG	REVERSP+1~*, REVERSP+4, REVERSP+7
N	PRINTA+10~*, PRINTA+12
NODISPLY	REVERSE+19~, RESUBMIT+17~, CAN99+1~, DIS9+1~, HDR88+2~*
OLDSLOT	REVERSP+1~, REVERSP+5*, REVERSP+9
PAT	MRXI+3~, MRXI+4, CANCEL+10~, CANCEL+13, DIS0+4~, DIS0+5, DIS0+7, DIS0+9, DIS0+11, DIS0+12 , HEADER+4~, HDRA+5, HDRA+18
PATTIME	HEADER+4~, HDRA+17*, HDRA+18
POS	REVERS59+14~*, REVERS59+15
RESULT	REVERS59+6~*, REVERS59+7, REVERS59+8, REVERS59+11
RET	SELECPAT~, SELECPAT+4*
REV	REVERS59+15~*, REVERS59+17, REVERS59+20
REVCOUNT	RESUBMIT+5~*
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+10~, CANCEL+11, CANCEL+13, DIS0+4~*, DIS0+10, DIS0+11, DIS0+12
RXI(	MRXI+1*, CLAIMLOG+8, REVERSE+6, RESUBMIT+6
TIME	DIS0~, DIS0+1*, DIS0+5, DIS0+11
TIMEWIN	HEADER+4~, HDR3+8*, HDR8+1
TMP	CANCEL+7~*
U	MRXI, MRXI+3, REVERS59+13, REVERS59+14, REVERSP+2, CANCEL+10, DIS0+4, DIS0+7, DIS0+12, HDR2+2 , HDRA+7
UPDFREQ	HEADER+4~, HDR4+7*, HDR8+2
>> VALM("TITLE"	PRINTHDR+1
VALMA	SELECPAT+1~
>> VALMAR	PRINTALL+4, PRINTA+7
VALMAT	SELECPAT+1~
>> VALMBCK	PRINT999, REVERSE+20, RESUBMIT+18, CAN99+1, DIS9+1, HDR9+1
>> VALMHDR(	PRINTHDR+2
VALMI	SELECPAT+1~, SELECPAT+2*
VALMY	SELECPAT+1~, SELECPAT+4
VAMP	SELECPAT+1~
>> WANT2Q	REVERS59+19
WANTQ2	REVERS59~
WHO	HEADER+4~, HDR1+6, HDR1+7, HDR2+4*, HDR8
X	PRINTA+6~, PRINTA+7, PRINTA+8, PRINTA+9, PRINTA+11, PRINTA+12, REVERSE+7~, REVERSE+8, REVERSE+10, REVERSP+1~ , RESUBMIT+7~, RESUBMIT+8, RESUBMIT+10, DIS0~, HEADER+4~, HDR1, HDR1+2, HDR1+6, HDR1+7, HDR3+3* , HDR3+4, HDR3+5, HDR3+6, HDR3+7, HDR3+8, HDR4+2, HDR4+5, HDR4+6, HDR4+7, HDRA+8 , HDRA+14*, HDRA+16, HDRA+17
>> XQORNOD(0	SELECPAT+2
Y	HEADER+4~, HDR2+4, HDR3+4*, HDR3+5, HDRA+5
Y(0	HDRA+7

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOS1

Information

Source Information

Call Graph

Call Graph Total: 20

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: