Routine: ABSPOSIZ

Information

ABSPOSIZ ; IHS/FCS/DRS - Filing with .51,.59 ; [ 11/04/2002 2:01 PM ]

Source Information

Source file <ABSPOSIZ.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Pharmacy Point of Sale	8	ZWRITE^ABSPOS CLNDUR^ABSPOSIH CLNDIAG^ABSPOSII ($$ACTIVEWT,$$IEN59,$$RXPAID,$$SETUP59)^ABSPOSIY LOG^ABSPOSL2 PRESSANY^ABSPOSU5 $$TIMEDIFI^ABSPOSUD $$IMPOSS^ABSPOSUE
VA Fileman	5	^%DT NOW^%DTC $$FIND1^DIC (FILE,UPDATE)^DIE $$GET1^DIQ
Kernel	2	^%ZTLOAD ($$FMDIFF,$$NOW)^XLFDT

Caller Graph

Caller Graph Total: 9

Package	Total	Caller Graph
Pharmacy Point of Sale	9	ABSPOS1 ABSPOS2D ABSPOS6D ABSPOSI ABSPOSIV ABSPOSQ1 ABSPOSQ4 ABSPOSQS ABSPOSU

Entry Points

External References

Name	Field # of Occurrence
^%DT	TASK+21
NOW^%DTC	NOW
^%ZTLOAD	TASKAT+9
ZWRITE^ABSPOS	D5+3, PR5+3
CLNDUR^ABSPOSIH	FILE+14
CLNDIAG^ABSPOSII	FILE+15
$$ACTIVEWT^ABSPOSIY	RXA
$$IEN59^ABSPOSIY	FILERX+6
$$RXPAID^ABSPOSIY	RXA+23
$$SETUP59^ABSPOSIY	L59N+2
LOG^ABSPOSL2	D5+1, NEW59+7, CLEAR59+11, PR5+1
PRESSANY^ABSPOSU5	RXA+35
$$TIMEDIFI^ABSPOSUD	ACTIVE59+6
$$IMPOSS^ABSPOSUE	FILE+12, D5+4, RXA+2, L59A, L59N, PR5+4, ACTIVE59+1
$$FIND1^DIC	EXIST59+2
FILE^DIE	D5, CLEAR59+10, PR5
UPDATE^DIE	NEW59+6
$$GET1^DIQ	PREVISLY+2
$$FMDIFF^XLFDT	TASK+14
$$NOW^XLFDT	TASK+14, TASK+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Nothing entered..." Line Location: FILE+8
Function Call: WRITE	Prompt: "Submitting claims...",! Line Location: FILE+9
Function Call: WRITE	Prompt: "...done.",! Line Location: FZ+0
Function Call: WRITE	Prompt: "at INSUR^",$T(+0),! Line Location: INSUR+16
Function Call: WRITE	Prompt: ?10,"IEN59=",IEN59,! Line Location: FILERX+7
Function Call: WRITE	Prompt: ?5,"This claim has already been submitted.",! Line Location: RXA+25
Function Call: WRITE	Prompt: ?5,"It was an electronic claim and it was " Line Location: RXA+27
Function Call: WRITE	Prompt: $S(X=1:"paid",X=3:"captured."),! Line Location: RXA+28
Function Call: WRITE	Prompt: ?5,"It was flagged to be sent on a paper claim.",! Line Location: RXA+30
Function Call: WRITE	Prompt: ?5,"It will be processed again, as if it had been reversed.",! Line Location: RXA+31
Function Call: WRITE	Prompt: ?5,"You must first reverse the original claim,",! Line Location: RXA+33
Function Call: WRITE	Prompt: ?5,"and then resubmit it. RES will do it all for you.",! Line Location: RXA+34
Function Call: WRITE	Prompt: $P(X,U,4)," ",$P(X,U,2)," ",$P(X,U,5)," ",$P(X,U,7),! Line Location: QUICK51+3
Function Call: WRITE	Prompt: ! Line Location: QUICK51+4
Routine Call	DIE Line Location: NEW59+6
Routine Call	DIC Line Location: EXIST59+2
Routine Call	DIE Line Location: D5 CLEAR59+10 PR5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSPT - [#9002313.59]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.51 - [#9002313.51]	FILE+7, FILE+10, DELEMPTY+3, DELEMPTY+4, INSUR+3, INSUR+4, INSUR+7, INSUR+8, INSUR+10!, FILE1+1 , FILE1+2, FILE1+3, QUICK51+2
^ABSPECP("CHECKTIM"	TASK+13, TASK+16*
^ABSPT - [#9002313.59]	LOCK59, UNLOCK59, ACTIVE59+2
^DD(	CLEAR59+5
^TMP("ABSPOSIZ"	LOCK, UNLOCK

Label References

Name	Line Occurrences
$$ACTIVE59	RXA
$$EXIST59	L59A+1
$$LOCK	FILE+12, RXA+2
$$LOCK59	L59A, ACTIVE59+1
$$NEW59	L59N
$$NOW	ACTIVE59+6
CLEAR59	L59A+2
D5	D5+4
DELEMPTY	FILE+6
FILE1	FILE+16
FILERX	FILE1+9
FZ	FILE+7
INSUR	FILE+13
L59A	L59A
L59N	L59N
PR5	PR5+4
PREVISLY	CLEAR59+12
QUICK51	FILE+11
REMAP	FILE1+8
RXA	RXA
TASK	FILE+19
TASKAT	TASK+22
UNLOCK	FILE+17, RXA+1
UNLOCK59	L59N+3, ACTIVE59+3

Naked Globals

Name	Field # of Occurrence
^(1	DELEMPTY+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW~
%DT	TASK+20~, TASK+21*
%H	NOW~
%I	NOW~
ABSPOSQ1	FILE+5~, FILE+19, L59N+2
ABSPQQQT	TASK+9~, TASK+10, TASK+14, TASK+15
ABSPUSR	FILE1+3~*, L59N+2
CHECK	TASK+12~, TASK+13*, TASK+14
DEBUG	FILERX+5~*
ECHO	FILE~, FILE+3*, FILE+8, FILE+9, FILE+11, FILE+13, FILE+16, FZ, INSUR~, FILE1~ , RXA+24
ENTRY	FILE+4~, FILE+10, FILE+11, FILE+13, FILE+14, FILE+15, FILE+16, DELEMPTY+2~, DELEMPTY+3, DELEMPTY+4 , DELEMPTY+6, INSUR~, INSUR+3, INSUR+4, INSUR+7, INSUR+8, INSUR+10, FILE1~, FILE1+1, RXA , RXA+23, QUICK51~, QUICK51+2
FDA	DELEMPTY+2~, DELEMPTY+7, NEW59+1~, CLEAR59+2~, PREVISLY+5~
FDA(	DELEMPTY+6, NEW59+5, CLEAR59+9, PREVISLY+5
FIELD	CLEAR59+2~, CLEAR59+4, CLEAR59+5, CLEAR59+7, CLEAR59+9
FLAGS	NEW59+1~, NEW59+2, NEW59+6, CLEAR59+2~, CLEAR59+3, CLEAR59+10
FN	DELEMPTY+2~, DELEMPTY+6, NEW59+1~, NEW59+4, NEW59+5, CLEAR59+2~, CLEAR59+3*, CLEAR59+5, CLEAR59+9, PREVISLY+5~
IEN	FILE~, FILE+7, FILE+10, FILE+11, FILE+13, FILE+14, FILE+15, FILE+16, DELEMPTY+3, DELEMPTY+4 , DELEMPTY+6, INSUR~, INSUR+3, INSUR+4, INSUR+7, INSUR+8, INSUR+10, FILE1~, FILE1+1, FILE1+2 , FILE1+3, RXA, RXA+23, NEW59+1~, QUICK51~, QUICK51+2
IEN(1	NEW59+5*, NEW59+9
IEN59	FILERX+6~*, RXA, RXA+2, L59A, L59A+1, L59A+2, L59N, L59N+2, PREVISLY~, PREVISLY+2 , PREVISLY+5, ACTIVE59+1
INPUT	FILE1+1~*
INPUT(0	FILE1+4, ISRX+2, ISPOST+2
INPUT(1	ISRX+1, ISPOST+1, ISVISIT+2, ISVISIT+3
MSG	DELEMPTY+2~, D5+1, D5+2, NEW59+1~, NEW59+7, NEW59+8, CLEAR59+2~, CLEAR59+11, PREVISLY+5~, PR5+1 , PR5+2
N	INSUR+3~*, INSUR+4, EXIST59~, EXIST59+2, NEW59~, NEW59+5, CLEAR59~, CLEAR59+3, CLEAR59+12, ACTIVE59~ , ACTIVE59+2
ORDER	INSUR+6~*, INSUR+7, INSUR+8
ORIGIN	FILE1+2~*, L59N+2
U	FILE+7, INSUR+5, INSUR+6, INSUR+7, INSUR+8, FILE1+2, FILE1+3, FILE1+4, ISRX+1, ISRX+2 , ISPOST+1, ISPOST+2, ISVISIT+2, ISVISIT+3, ACTIVE59+5, ACTIVE59+6, QUICK51+3
X	TASK+20~, TASK+21, DELEMPTY+4~, DELEMPTY+5, INSUR+4~, INSUR+5, INSUR+6, INSUR+7, INSUR+8, FILE1+4~ , ISRX+1~, ISRX+3, ISPOST+1~, ISPOST+2, ISVISIT+2~, RXA+3~, RXA+23, RXA+26, RXA+28, RXA+29 , RXA+32, EXIST59+1~, EXIST59+2, EXIST59+3, NEW59+1~, NEW59+3~, NEW59+5, CLEAR59+2~, CLEAR59+3, CLEAR59+9 , PREVISLY+2~, PREVISLY+3, PREVISLY+4, PREVISLY+5, NOW~, QUICK51+1~, QUICK51+2, QUICK51+3
Y	TASK+20~, TASK+22, DELEMPTY+4~*, DELEMPTY+5
Z	ACTIVE59+2~*, ACTIVE59+4, ACTIVE59+5, ACTIVE59+6
ZTDTH	TASKAT~
ZTIO	TASKAT+7~, TASKAT+8*
ZTRTN	TASKAT+7~, TASKAT+8*

Name	Comments	DBIA/ICR reference
FILE(IEN,ECHO)	;EP - from ABSPOSI, ABSPOSIV ; <PF1> E was hit - so we make these claims official ; ^ABSP(9002313.51,IEN,...) -> 9002313.59 or wherever
DELEMPTY	; the multiple probably has some empty entries - delete them ; IEN is inherited from caller
ISVISIT()	; return pointer to visit if true, else return "" ; (this is for non-prescription items)
FZ
ACTIVE59(N)
PREVISLY(IEN59)
ISPOST()	; return pointer to ^PSRX if true, else return ""
TASK	;EP - from ABSPOS2D,ABSPOS6D,ABSPOSQ1,ABSPOSQ4,ABSPOSU
UNLOCK59
QUICK51(IEN,ENTRY)
LOCK59()
NEW59(N)	; send N = desired IEN in file 9002313.59
ISRX()	; return pointer to ^PSRX if true, else return ""
LOCK()
RXA
PR5
UNLOCK
L59N
FILE1(IEN,ENTRY,ECHO)
L59A
EXIST59(N)
CLEAR59(N)
INSUR(IEN,ENTRY,ECHO)
REMAP	; do any needed adjusing of INPUT(*) to handle postage, supplies, etc.
NOW()
FILERX	; EVERYTHING is filed here: postage, supplies, as well as RX's
TASKAT(ZTDTH)
D5

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSIZ

Call Graph Total: 15

Caller Graph Total: 9