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: ABSPOSP1

Package: Pharmacy Point of Sale

Routine: ABSPOSP1


Information

ABSPOSP1 ; IHS/FCS/DRS - POS Writeoffs batch ; [ 09/12/2002 10:17 AM ]

Source Information

Source file <ABSPOSP1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Pharmacy Point of Sale 7 ZWRITE^ABSPOS  $$MUSTILC^ABSPOSB  LOG^ABSPOSL2  ($$NEWBATCH,ADJUST)^ABSPOSP  $$DTP^ABSPOSU1  $$YESNO^ABSPOSU3  ($$IMPOSS,IMPOSS)^ABSPOSUE  
VA Fileman 1 FILE^DIE  

Entry Points

Name Comments DBIA/ICR reference
A
INDEX()
CLRFLAG(PCNDFN)
BATCH(THRUDATE)
WRITEOFF ;EP - option: ABSP AUTO-WRITEOFF BAT
; based on the automatic writeoff list
WHAT
BATCH1 ; given BATCH, PCNDFN, THRUDATE
CLRFLAGS ; remove these accounts from the automatic writeoff list
ISEMPTY()
DOT
OKAY() ;
YNCOMMON()
UPDATE() ;
DATE() ;Create automatic writeoff adjustments for visits THRU DATE:
C5

External References

Name Field # of Occurrence
ZWRITE^ABSPOS C5+3
$$MUSTILC^ABSPOSB WRITEOFF+2
LOG^ABSPOSL2 C5+1
$$NEWBATCH^ABSPOSP BATCH+1
ADJUST^ABSPOSP BATCH1+17
$$DTP^ABSPOSU1 DATE+1
$$YESNO^ABSPOSU3 YNCOMMON
$$IMPOSS^ABSPOSUE C5+4
IMPOSS^ABSPOSUE BATCH+1
FILE^DIE C5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This program takes accounts from the AUTOMATIC WRITEOFFS list",!
  • Line Location: WHAT+0
Function Call: WRITE
  • Prompt: "and creates a PAYMENTS BATCH to ADJUST each of these accounts",!
  • Line Location: WHAT+1
Function Call: WRITE
  • Prompt: "to a ZERO BALANCE.",!
  • Line Location: WHAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WHAT+3
Function Call: WRITE
  • Prompt: !,"Creating the automatic writeoffs batch, please wait...",!
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,"Batch ",BATCH," created, but it isn't automatically posted.",!
  • Line Location: A+4
Function Call: WRITE
  • Prompt: "To post it to Accounts Receivable, use the PAY option",!
  • Line Location: A+5
Function Call: WRITE
  • Prompt: "from the main menu.",!
  • Line Location: A+6
Function Call: WRITE
  • Prompt: !,"Don't forget to post batch ",BATCH,!
  • Line Location: A+9
Function Call: WRITE
  • Prompt: "You may print or edit the batch as needed before posting.",!
  • Line Location: A+10
Function Call: WRITE
  • Prompt: PCN," status is not ACTIVE; we will remove it from writeoff list",!
  • Line Location: BATCH1+5
Function Call: WRITE
  • Prompt: " but no adjustment will be made.",!
  • Line Location: BATCH1+6
Function Call: WRITE
  • Prompt: PCN," has a zero balance",!
  • Line Location: BATCH1+10
Function Call: WRITE
  • Prompt: !,"Now that the adjustments are in the batch, we will",!
  • Line Location: CLRFLAGS+1
Function Call: WRITE
  • Prompt: "remove these accounts from the automatic writeoff list...",!
  • Line Location: CLRFLAGS+2
Function Call: WRITE
  • Prompt: "Done",!
  • Line Location: CLRFLAGS+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: DOT+0
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $X>70
  • Line Location: DOT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: "Okay to create a batch of writeoff adjustments for visits",!
  • Line Location: OKAY+1
Function Call: WRITE
  • Prompt: "on the automatic writeoff list with visit dates through",!
  • Line Location: OKAY+2
Function Call: WRITE
  • Prompt: "up to and including ",$P(THRUDATE,U,2),"? ",!
  • Line Location: OKAY+3
Function Call: WRITE
  • Prompt: !
  • Line Location: YNCOMMON+1
Function Call: WRITE
  • Prompt: "Now that the batch has been created, is it okay",!
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: "to REMOVE these accounts from the automatic writeoff list?",!
  • Line Location: UPDATE+3
Routine Call
  • DIE
  • Line Location:
    • C5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSBITMS(9002302 ISEMPTY, BATCH+3, BATCH1+1, BATCH1+2, BATCH1+4, BATCH1+8, BATCH1+12
^ABSTMP( CLRFLAGS+4

Label References

Name Line Occurrences
$$BATCH A+3
$$DATE A
$$INDEX ISEMPTY, BATCH+3
$$ISEMPTY WRITEOFF+4
$$OKAY A+1
$$UPDATE A+7
$$YNCOMMON OKAY+4, UPDATE+4
A A+1
BATCH1 BATCH+4
C5 C5+4
CLRFLAG BATCH1+7, CLRFLAGS+5
CLRFLAGS A+8
DATE DATE+1
DOT BATCH+4, CLRFLAGS+5
WHAT WRITEOFF+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAL BATCH1+8~*, BATCH1+9, BATCH1+17
BATCH WRITEOFF+3~, A+3*, A+4, A+9, BATCH+1~*, BATCH+5, BATCH1+17, CLRFLAGS+4
FDA CLRFLAG+1~
FDA(9002302 CLRFLAG+2*
INS BATCH1+12~*, BATCH1+14, BATCH1+15
MSG CLRFLAG+1~, C5+1, C5+2
PCN BATCH1+2~*, BATCH1+5, BATCH1+10
PCNDFN BATCH+2~*, BATCH+3*, BATCH1+1, BATCH1+2, BATCH1+4, BATCH1+7, BATCH1+8, BATCH1+12, BATCH1+17, CLRFLAGS+3~*
, CLRFLAGS+4*, CLRFLAGS+5, CLRFLAG~, CLRFLAG+2
REASON BATCH1+12~, BATCH1+13*, BATCH1+14*, BATCH1+15*, BATCH1+16*, BATCH1+17
THRUDATE WRITEOFF+3~, A*, A+3, BATCH~, BATCH1+3, OKAY+3
U BATCH1+1, BATCH1+2, BATCH1+3, BATCH1+4, BATCH1+8, BATCH1+12, OKAY+3
VSTDFN BATCH1+1~*, BATCH1+3
X WRITEOFF+3~, A+1*, DATE+1~*, DATE+2, YNCOMMON~*, YNCOMMON+1, UPDATE+4~*

Marked Items

Name Field # of Occurrence
$T( BATCH+1, C5+4
$T(DATE DATE+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All