Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABSPOS6D

Package: Pharmacy Point of Sale

Routine: ABSPOS6D


Information

ABSPOS6D ; IHS/FCS/DRS - user screen subrous ;

Source Information

Source file <ABSPOS6D.m>

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  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Pharmacy Point of Sale 3 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

Global Variables Directly Accessed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All