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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSPW

Package: Pharmacy Point of Sale

Routine: ABSPOSPW


Information

ABSPOSPW ; IHS/FCS/DRS - automatic writeoffs - criteria on form ; [ 09/12/2002 10:18 AM ]

Source Information

Source file <ABSPOSPW.m>

Call Graph

Call Graph Total: 10

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

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)

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*

Marked Items

Name Field # of Occurrence
$T( TEMPLNAM+2, TEMPLNUM+4, SEARCH+7, EN+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All