Routine: ABSPOSPW

Package	Total	Call Graph
Pharmacy Point of Sale	6	$$MUSTILC^ABSPOSB ($$NEWBATCH,ADJUST)^ABSPOSP $$ACTIVBAT^ABSPOSPX $$YESNO^ABSPOSU3 PRESSANY^ABSPOSU5 IMPOSS^ABSPOSUE
VA Fileman	4	(C,NOW)^%DTC ^DDS EN1^DIP EN^DIQ1

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	AGECALC+3
NOW^%DTC	NOW
$$MUSTILC^ABSPOSB	EN+1
$$NEWBATCH^ABSPOSP	EN+38
ADJUST^ABSPOSP	EN+48
$$ACTIVBAT^ABSPOSPX	EN+2
$$YESNO^ABSPOSU3	DOBATCH+6
PRESSANY^ABSPOSU5	EN+56
IMPOSS^ABSPOSUE	TEMPLNAM+2, TEMPLNUM+4
^DDS	MYSCREEN+8
EN1^DIP	SEARCH+17
EN^DIQ1	PARAMS+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Insurers: ",X,": " Line Location: PARAMS+7
Function Call: WRITE	Prompt: "A/R types: ",X,": " Line Location: PARAMS+11
Function Call: WRITE	Prompt: "Clinics: ",X,": " Line Location: PARAMS+15
Function Call: WRITE	Prompt: "Primary diagnosis: ",X,": " Line Location: PARAMS+19
Function Call: WRITE	Prompt: "Balances from $",$J($P(PARAMS,U,3),0,2) Line Location: PARAMS+21
Function Call: WRITE	Prompt: " thru $",$J($P(PARAMS,U,4),0,2),"; " Line Location: PARAMS+22
Function Call: WRITE	Prompt: "no more than ",$P(PARAMS,U,9),"% of original amount.",! Line Location: PARAMS+23
Function Call: WRITE	Prompt: "Account age over ",$P(PARAMS,U,5)," days; " Line Location: PARAMS+24
Function Call: WRITE	Prompt: "Date of service no later than " Line Location: PARAMS+25
Function Call: WRITE	Prompt: Y,! Line Location: PARAMS+25
Function Call: WRITE	Prompt: "Writeoff reason to put with adjustment: ",$G(ARR(FN,1,2270.12,"E")),! Line Location: PARAMS+26
Function Call: WRITE	Prompt: "Previous payment required: ",X,! Line Location: PARAMS+28
Function Call: WRITE	Prompt: !?5 Line Location: PARAMS1+4
Function Call: WRITE	Prompt: X Line Location: PARAMS1+5
Function Call: WRITE	Prompt: ", " Line Location: PARAMS1+6
Function Call: WRITE	Prompt: ! Line Location: PARAMS1+7
Function Call: WRITE	Prompt: ! Line Location: PARAMS1+8
Function Call: WRITE	Prompt: !!,"Batch #",ACTIVBAT," must be dealt with first.",! Line Location: EN+3
Function Call: WRITE	Prompt: "Either post the batch (BE SURE THAT'S REALLY WHAT YOU WANT TO DO!),",! Line Location: EN+4
Function Call: WRITE	Prompt: "or cancel the batch, before running this program to create a new batch.",! Line Location: EN+5
Function Call: WRITE	Prompt: "Someone else is using the Writeoffs program now.",! Line Location: EN+10
Function Call: WRITE	Prompt: !!,"Choose a device for printing a list of the accounts",! Line Location: EN+29
Function Call: WRITE	Prompt: "which meet the criteria you've just specified.",!?5 Line Location: EN+30
Function Call: WRITE	Prompt: !,"NO accounts match the given criteria.",! Line Location: EN+33
Function Call: WRITE	Prompt: !,"Number of accounts found: ",^TMP($J,ROU),! Line Location: EN+34
Function Call: WRITE	Prompt: !,"Creating the adjustments batch...",! Line Location: EN+37
Function Call: WRITE	Prompt: "FAILED",! Line Location: EN+39
Function Call: WRITE	Prompt: "The batch number is ",BATCH,! Line Location: EN+40
Function Call: WRITE	Prompt: "." Line Location: EN+49
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: EN+49
Function Call: WRITE	Prompt: !! Line Location: EN+50
Function Call: WRITE	Prompt: "Batch ",BATCH," has been created.",! Line Location: EN+51
Function Call: WRITE	Prompt: "You should inspect it SOON and either POST it or CANCEL it.",! Line Location: EN+52
Function Call: WRITE	Prompt: "Either way, take care of it BEFORE running this program again.",! Line Location: EN+53
Function Call: WRITE	Prompt: "This is to avoid the situation of generating more than one",! Line Location: EN+54
Function Call: WRITE	Prompt: "writeoff adjustment for any accounts.",!! Line Location: EN+55
Routine Call	DDS Line Location: MYSCREEN+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSADJR(9002320	EN+44
^ABSBITMS(9002302	EN+47
^ABSP(9002313.99 - [#9002313.99]	EN+12, EN+16, EN+17, EN+18, EN+19, EN+20, EN+41*
^DD("DD"	PARAMS+25
^DIBT("B"	TEMPLNUM+2
^DIPT("B"	TEMPLNUM+3
^TMP($J	SEARCH+1!*, EN+32, EN+34, EN+46

Label References

Name	Line Occurrences
$$AGECALC	EN+28
$$DOBATCH	EN+35
$$MYSCREEN	EN+11
$$NOW	AGECALC+1
$$TEMPLNAM	TEMPLNUM+1, SEARCH+4
PARAMS1	PARAMS+8, PARAMS+12, PARAMS+16, PARAMS+20
SEARCH	EN+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW~
%H	AGECALC+3~, NOW~
%I	NOW~
A	PARAMS1+1~, PARAMS1+2, PARAMS1+3, PARAMS1+6, EN+23~*, EN+24
ACTIVBAT	EN+2~*, EN+3
ARR	PARAMS+2~
ARR(	PARAMS+5, PARAMS+9, PARAMS+13, PARAMS+17, PARAMS+26, PARAMS+27
B	EN+24~*
BAL	EN+47~*, EN+48
BATCH	EN+38~*, EN+39, EN+40, EN+41, EN+48, EN+51
BY	SEARCH+5~*
BY(0	SEARCH+13*
DA	PARAMS+2~, PARAMS+3, MYSCREEN+4~, MYSCREEN+5
DCOPIES	SEARCH+10~
DDSCHANG	MYSCREEN+3~
DDSFILE	MYSCREEN+2~, MYSCREEN+5*
DDSPAGE	MYSCREEN+2~
DDSPARM	MYSCREEN+2~, MYSCREEN+7*
DDSSAVE	MYSCREEN+3~, MYSCREEN+10
DEFAULT	DOBATCH+1~, DOBATCH+3*, DOBATCH+6
DHD	SEARCH+7~*
DHIT	SEARCH+9~*
DI	PARAMS+2~
DIASKHD	SEARCH+8~
DIC	PARAMS+2~, PARAMS+3, SEARCH+3~
DIMSG	MYSCREEN+3~
DIOEND	SEARCH+10~
DIPCRIT	SEARCH+8~
DIQ	PARAMS+2~, PARAMS+3*
DIQ(0	PARAMS+3*
DIS	SEARCH+11~
DIS(0	SEARCH+11*
DISTOP	SEARCH+12~
DISUPNO	SEARCH+12~
DQTIME	SEARCH+10~
DR	PARAMS+2~, PARAMS+3, MYSCREEN+2~, MYSCREEN+6
DTOUT	MYSCREEN+3~
FLDS	SEARCH+4~*
FN	PARAMS+2~, PARAMS+3*, PARAMS+5, PARAMS+9, PARAMS+13, PARAMS+17, PARAMS+26, PARAMS+27
FR	SEARCH+6~*
FR(0	SEARCH+14*
IOM	PARAMS1+4
IOP	SEARCH+10~
L	SEARCH+2~*
L(0	SEARCH+13*
LOCKREF	EN+8~*, EN+9, EN+14
NAME	TEMPLNUM+1~*, TEMPLNUM+2, TEMPLNUM+3
NINCLUDE	SEARCH+16~*
OPT	DOBATCH+1~, DOBATCH+4*, DOBATCH+6
PARAMS	PARAMS+21, PARAMS+22, PARAMS+23, PARAMS+24, PARAMS+25, EN+16~*, EN+28, EN+43, AGECALC+2
PARAMS(	PARAMS1+2, PARAMS1+6, EN+23, EN+24!
PARAMS("AGING	DATE < THIS" , EN+28*
PARAMS("ARTYP"	EN+18*
PARAMS("CLINIC"	EN+19*
PARAMS("DIAG"	EN+20*
PARAMS("INS"	EN+17*
PCNDFN	EN+42~, EN+46, EN+47, EN+48
PG	SEARCH+8~
PROMPT	DOBATCH+1~, DOBATCH+2*, DOBATCH+6
REASON	EN+43~, EN+44, EN+45*, EN+48
ROOT	PARAMS1~, PARAMS1+3
ROU	SEARCH+1, EN+6~*, EN+32, EN+34, EN+46
SUB	PARAMS1~, PARAMS1+2, PARAMS1+6
TIMEOUT	DOBATCH+1~, DOBATCH+5*, DOBATCH+6
TO	SEARCH+6~*
TO(0	SEARCH+14*
U	PARAMS+21, PARAMS+22, PARAMS+23, PARAMS+24, PARAMS+25, PARAMS1+3, EN+28, EN+41, EN+43, EN+44 , EN+47, AGECALC+2
WHICH	TEMPLNAM~, TEMPLNAM+1, TEMPLNAM+2, TEMPLNUM~, TEMPLNUM+1, TEMPLNUM+2, TEMPLNUM+3, TEMPLNUM+4
X	PARAMS+2~, PARAMS+5, PARAMS+6, PARAMS+7, PARAMS+9, PARAMS+10, PARAMS+11, PARAMS+13, PARAMS+14, PARAMS+15 , PARAMS+17, PARAMS+18, PARAMS+19, PARAMS+27, PARAMS+28, PARAMS1+3~, PARAMS1+4, PARAMS1+5, EN+7~, EN+9* , EN+11, EN+12, EN+13, EN+15, DOBATCH+6~, DOBATCH+7, AGECALC+3~, AGECALC+4, NOW~
X1	AGECALC+1~*
X2	AGECALC+2~*
Y	PARAMS+2~, PARAMS+25*

Name	Comments	DBIA/ICR reference
SEARCH	;
EN	;EP - option ABSP WRITEOFF SELECTION
DOBATCH()
MYSCREEN()
NOW()
PARAMS1(SUB,ROOT)
AGECALC()
TEMPLNAM(WHICH)
PARAMS	; used as a header
TEMPLNUM(WHICH)

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSPW

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items