Routine: ABSPOSU

Information

ABSPOSU ; IHS/FCS/DRS - utilities ;

Source Information

Source file <ABSPOSU.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Pharmacy Point of Sale	7	RESUB1^ABSPOS6D TRANSACT^ABSPOSBC TASK^ABSPOSIZ ($$GETSLOT,LOG,RELSLOT,SETSLOT)^ABSPOSL $$CATEG^ABSPOSUC $$TADD^ABSPOSUD ($$IMPOSS,IMPOSS)^ABSPOSUE
VA Fileman	2	^DIE IX1^DIK
Kernel	1	^%ZTLOAD

Caller Graph

Caller Graph Total: 20

Package	Total	Caller Graph
Pharmacy Point of Sale	20	ABSPOS2D ABSPOS2E ABSPOS6B ABSPOS6D ABSPOS6H ABSPOS6M ABSPOS6N ABSPOSAM ABSPOSAN ABSPOSP2 ABSPOSQ1 ABSPOSQ2 ABSPOSQ3 ABSPOSQA ABSPOSQJ ABSPOSQL ABSPOSQS ABSPOSRX ABSPOSU7 ABSPOSUA

Entry Points

Name	Comments	DBIA/ICR reference
SETCSTAT(CLAIM,STATUS)
DORECEI()	; Should we print a receipt? ; Site-specific conditions needed. ; example: electronic claims only; ; only claims with co-pay; ; etc.
NEW57(RXI)	;EP - copy this ^ABSPT(RXI) into ^ABSPTL(N)
SETCOMMS(CLAIM,POINTER)	;EP - ABSPOSAM
SETSTAT(STATUS)	;EP - from many places ; set ^ABSPT( status for ABSBRXI
ISREVERS(CLAIM)	;EP - ABSPOSP2 ; is this a reversal claim? $$ returns 1 or 0
SETCRESU(CLAIM,RESULT,TEXT)	;
STATUS99	; special activity when a claim reaches status 99 ; Transaction log in .57 (but not if it's a canceled transaction!)
RESULTI(X)
NEW57A
RECEIPT(IEN57)	; This is where the receipt would go - taskman it to print in ; background, somewhere, somehow
STATI(X)	;EP - from many places ; perhaps should be a Fileman file
SETRESU(RESULT,TEXT)
PREV57(N57)	; EP -
RXI4REV(REVCLAIM)

External References

Name	Field # of Occurrence
^%ZTLOAD	STATUS99+32
RESUB1^ABSPOS6D	STATUS99+22
TRANSACT^ABSPOSBC	STATUS99+7
TASK^ABSPOSIZ	STATUS99+23
$$GETSLOT^ABSPOSL	STATUS99+11
LOG^ABSPOSL	STATUS99+4, STATUS99+13, STATUS99+18, STATUS99+21
RELSLOT^ABSPOSL	STATUS99+24
SETSLOT^ABSPOSL	STATUS99+12, STATUS99+25
$$CATEG^ABSPOSUC	STATUS99+15
$$TADD^ABSPOSUD	STATUS99+31
$$IMPOSS^ABSPOSUE	SETSTAT+10, NEW57+1
IMPOSS^ABSPOSUE	NEW57A+23, RXI4REV+6, RXI4REV+7
^DIE	SETSTAT+14
IX1^DIK	NEW57A+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Before: ",$G(^ABSPT(ABSBRXI,0)),! Line Location: SETSTAT+13
Function Call: WRITE	Prompt: "After: ",$G(^ABSPT(ABSBRXI,0)),! Line Location: SETSTAT+15
Routine Call	DIE Line Location: SETSTAT+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSPTL - [#9002313.57]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPC - [#9002313.02]	ISREVERS+2
^ABSPT - [#9002313.59]	SETSTAT+10, SETSTAT+23, SETSTAT+5, STATUS99+2, STATUS99+10, STATUS99+20, NEW57A+5, SETCOMMS+3, SETRESU+1, SETRESU+3 , SETRESU+7
^ABSPT("AD"	SETSTAT+20, SETSTAT+21!
^ABSPT("AE"	SETCSTAT+5, SETCOMMS+2, SETCRESU+2
^ABSPT("AER"	RXI4REV+3
^ABSPTL - [#9002313.57]	NEW57+1, NEW57A+4, NEW57A+3, NEW57A+5*, NEW57A+15, NEW57A+16, NEW57A+19, NEW57A+20, PREV57+1, PREV57+2
^ABSPTL("NON-FILEMAN"	NEW57A+24*, PREV57+4
^ABSPTL(0	NEW57A, NEW57A+1, NEW57A+2*
^ABSVCPT(9002301	NEW57A+21

Label References

Name	Line Occurrences
$$DORECEI	RECEIPT+2
$$ISREVERS	SETCSTAT+2
$$NEW57	STATUS99+6
$$RXI4REV	SETCSTAT+3
NEW57A	NEW57A+3
RECEIPT	STATUS99+8
SETRESU	SETCRESU+3
SETSTAT	SETCSTAT+3, SETCSTAT+6
STATUS99	SETSTAT+22

Naked Globals

Name	Field # of Occurrence
^(	RXI4REV+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	NEW57A+13~, NEW57A+15, NEW57A+19, NEW57A+24
ABSBRXI	SETSTAT+5, SETSTAT+11, SETSTAT+21, STATUS99+2, STATUS99+6, STATUS99+10, STATUS99+12, STATUS99+15, STATUS99+20, STATUS99+22 , SETCSTAT+1~, SETCSTAT+3, SETCSTAT+4, SETCSTAT+5, SETCOMMS+1~, SETCOMMS+2, SETCOMMS+3, SETRESU+1, SETRESU+3, SETRESU+7 , SETCRESU+1~, SETCRESU+2*
ABSP57	STATUS99+6~*, STATUS99+7, STATUS99+8
B	NEW57A+13~, NEW57A+16, NEW57A+20, NEW57A+21*, NEW57A+24
C	NEW57A+1~*, NEW57A+2
CLAIM	SETCSTAT~, SETCSTAT+2, SETCSTAT+3, SETCSTAT+5, ISREVERS~, ISREVERS+2, SETCOMMS~, SETCOMMS+2, SETCRESU~, SETCRESU+2
DA	SETSTAT+11~, NEW57A+9~
DIE	SETSTAT+11~*
DIK	NEW57A+9~*
DR	SETSTAT+11~, SETSTAT+12
DT	STATUS99+31
IEN57	RECEIPT~
INDEX	NEW57A+13~, NEW57A+17, NEW57A+22, NEW57A+24
MBN	RXI4REV+2~, RXI4REV+3*, RXI4REV+7
N	NEW57A~*, NEW57A+2, NEW57A+3, NEW57A+5, NEW57A+9~, NEW57A+15, NEW57A+16, NEW57A+19, NEW57A+20, NEW57A+24 , NEW57A+25
N57	PREV57~, PREV57+1, PREV57+2, PREV57+4
OLDSLOT	STATUS99+11~*, STATUS99+25
POINTER	SETCOMMS~, SETCOMMS+3
RESULT	SETRESU~, SETRESU+1, SETRESU+8, SETCRESU~, SETCRESU+3
RET	RXI4REV+2~, RXI4REV+3*, RXI4REV+6, RXI4REV+8
REVCLAIM	RXI4REV~, RXI4REV+3, RXI4REV+6, RXI4REV+7
RXI	NEW57~, NEW57A+5, NEW57A+13, NEW57A+23, PREV57+1~*, PREV57+3, PREV57+4
RXR	PREV57+1~, PREV57+2*, PREV57+3, PREV57+4
SLOT	STATUS99+11~, STATUS99+12*
STATUS	SETSTAT~, SETSTAT+5, SETSTAT+11, SETSTAT+12, SETSTAT+21, SETSTAT+22, SETCSTAT~, SETCSTAT+3, SETCSTAT+6
TEXT	SETRESU~, SETRESU+2, SETRESU+5, SETRESU+6, SETCRESU~, SETCRESU+3
TYPE	NEW57A+13~*, NEW57A+14, NEW57A+17, NEW57A+18, NEW57A+23
U	SETSTAT+5, STATUS99+2, STATUS99+10, STATUS99+20, NEW57A, NEW57A+1, NEW57A+2, NEW57A+15, NEW57A+16, NEW57A+19 , NEW57A+20, NEW57A+21, PREV57+1, PREV57+2, SETRESU+1, SETRESU+4, SETRESU+7
X	SETSTAT+11~, SETSTAT+20~, SETSTAT+21, STATUS99+15~, STATUS99+17, STATUS99+18, SETRESU+3~, SETRESU+4, SETRESU+5, SETRESU+6 , SETRESU+7, STATI~, STATI+1, STATI+2, STATI+3, STATI+4, STATI+5, STATI+6, STATI+7, STATI+8 , STATI+9, STATI+10, STATI+11, STATI+12, STATI+13, STATI+15, RESULTI~, RESULTI+1, RESULTI+2
Y	SETRESU+3~, SETRESU+4*, SETRESU+5, SETRESU+6, SETRESU+7
ZTDTH	STATUS99+28~, STATUS99+31*
ZTIO	STATUS99+28~, STATUS99+31*
ZTRTN	STATUS99+28~, STATUS99+30*
ZTSAVE	STATUS99+28~

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSU

Call Graph Total: 10

Caller Graph Total: 20