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

Package: Pharmacy Point of Sale

Routine: ABSPOS25


Information

ABSPOS25 ; IHS/FCS/DRS - insurance auto-selection ; [ 08/28/2002 2:43 PM ]

Source Information

Source file <ABSPOS25.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Pharmacy Point of Sale 2 EN^ABSPOS29  IMPOSS^ABSPOSUE  
VA Fileman 1 C^%DTC  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Pharmacy Point of Sale 4 ABSPOS28  ABSPOS32  ABSPOSI8  ABSPOSQB  

Entry Points

Name Comments DBIA/ICR reference
A ;N (ABSBVISI,ABSBPATI,ABSBRXI,ABSBRXR,DUZ,DT,U,DEBUG,ARRAY,FRESH,MAXARRAY,FORRX)
ADD(INSIEN,PINS,ABSPCOMB,POINTS)
B ;I $$ILCAR D
ELGDATE(FROMTO,INSIEN)
F ;
; Now all of the insurances are in the array with initial scores.
; Adjust the scores based on the rules in effect for this site.
SELF ; add SELF PAY to the list
GATHER ; return the count of how many of these we put in the array
INSURER(ARRAY,FRESH,MAXARRAY,FORRX)
TYPEPTS(TYPE)
ILCAR()
GRACE(INSIEN)
DRUGCOVG(D0,D1)
ADDGRACE(X1,INSIEN)

External References

Name Field # of Occurrence
C^%DTC ADDGRACE+1
EN^ABSPOS29 B+4
IMPOSS^ABSPOSUE TYPEPTS+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $T(+0)," for ABSBVISI=",$G(ABSBVISI),", ABSBPATI=",ABSBPATI
  • Line Location: A+8
Function Call: WRITE
  • Prompt: ", ABSBRXI=",ABSBRXI,", ABSBRXR=",ABSBRXR
  • Line Location: A+9
Function Call: WRITE
  • Prompt: !
  • Line Location: A+10
Function Call: WRITE
  • Prompt: "Not counting ARRAY(",I,")=",ARRAY(I),!
  • Line Location: F+25
Function Call: WRITE
  • Prompt: "$$ELGDATE(",FROMTO,") testing INSIEN: "_INSIEN_" for ONDATE=",ONDATE,"..."
  • Line Location: ELGDATE+4
Function Call: WRITE
  • Prompt: $$ELGDATE(FROMTO),!
  • Line Location: ELGDATE+5
Function Call: WRITE
  • Prompt: "Added grace period ",$$GRACE(INSIEN)," to ",TO," giving ",X,!
  • Line Location: ADDGRACE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.99 - [#9002313.99] F+6, F+9, F+11, GRACE+4, SELF+2, ILCAR, TYPEPTS+1
^ABSPCOMB - [#9002313.1] GATHER+2, GATHER+3
^ABSPEI - [#9002313.4] GRACE+1, GATHER+7
^ABSPF(9002313.94 - [#9002313.94] F+15
^AUPNPRVT - [#9000006] DRUGCOVG+2
^AUPNVSIT - [#9000010] B+16
^AUTNINS - [#9999999.18] GATHER+13
^AUTNINS("B" SELF+3
^AUTTPIC - [#9999999.65] DRUGCOVG+5
^PSRX - [#52] B+12, B+14

Label References

Name Line Occurrences
$$ADDGRACE ELGDATE+11
$$DRUGCOVG GATHER+14
$$ELGDATE GATHER+15, ELGDATE+5
$$GRACE ADDGRACE+1
$$TYPEPTS SELF+5, GATHER+5
ADD SELF+5, GATHER+16
GATHER B+18
SELF B+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H ADDGRACE+1~
>> ABSBPATI A+8, B+4, GATHER+2, GATHER+3, GATHER+14
>> ABSBRXI A+9, B+12, B+14
>> ABSBRXR A+9, B+12
>> ABSBVISI A+8, B+16
ABSPCOMB ADD~, ADD+3
ARRAY INSURER~, A+5!, F+29!
ARRAY( F+23, F+25, F+28, F+37*, ADD+3*
ARRAY(0 A+5*, F+22, F+38*, F+40, GATHER+18, ADD+2*, ADD+3
COUNT GATHER+1~*, GATHER+17*
D0 DRUGCOVG~, DRUGCOVG+2
D1 DRUGCOVG~, DRUGCOVG+1, DRUGCOVG+2
DEBUG A+6~*, A+7, F+25, GATHER+15, ELGDATE+2, ELGDATE+3~*
DFN GATHER+1~*, GATHER+2*, GATHER+3, GATHER+6, GATHER+16
DT B+17
FORRX INSURER~, A+4*, GATHER+13, GATHER+14
FRESH INSURER~, A+2*
FROM ELGDATE+6~*, ELGDATE+7, ELGDATE+8
FROMTO ELGDATE~, ELGDATE+4, ELGDATE+5, ELGDATE+6
I F+22~*, F+23, F+25, F+28, F+35*, F+36, F+37
IEN F+4~, F+7*, F+8, F+9*, F+10, F+11
II F+22~, F+34*, F+37*, F+38
INSIEN GRACE~, GRACE+1, SELF+1~, SELF+2*, SELF+3*, SELF+4, SELF+5, GATHER+4~*, GATHER+7, GATHER+13
, GATHER+15, GATHER+16, ELGDATE~, ELGDATE+4, ELGDATE+11, ADDGRACE~, ADDGRACE+1, ADD~, ADD+3
MAXARRAY INSURER~, A+3*
ONDATE A+1~, B+12*, B+14*, B+15*, B+16*, B+17*, ELGDATE+4, ELGDATE+8, ELGDATE+10, ELGDATE+11
ORDER F+4~*, F+5, F+6*, F+7, F+9
PINS ADD~, ADD+1*, ADD+3
POINTS GATHER+5~*, GATHER+6*, GATHER+7*, GATHER+13*, GATHER+14*, GATHER+16, ADD~, ADD+3
PTS F+22~, F+23*, F+24, F+28, F+34*, F+35, F+36, F+37
PTSMINUS F+4~, F+12*
PTSPLUS F+4~, F+12*
RET GRACE+1~*, GRACE+4*, GRACE+5*, GRACE+6
ROUTINE F+4~, F+15*, F+17
RULE F+4~, F+12*, F+14, F+15
STOP F+4~*
TMP F+22~
TMP( F+34, F+35, F+36, F+37
TMP(0 F+28*
TO ELGDATE+6~*, ELGDATE+9, ELGDATE+10, ELGDATE+11
TYPE GATHER+4~*, GATHER+5, TYPEPTS~, TYPEPTS+2, TYPEPTS+3, TYPEPTS+4, TYPEPTS+5, TYPEPTS+6
U B+12, B+14, B+16, F+12, F+15, F+23, F+36, GRACE+1, GRACE+4, SELF+2
, ILCAR, GATHER+4, GATHER+7, GATHER+13, GATHER+14, GATHER+15, GATHER+16, TYPEPTS+2, TYPEPTS+3, TYPEPTS+4
, TYPEPTS+5, TYPEPTS+6, ELGDATE+6, DRUGCOVG+3, DRUGCOVG+5, ADD+3
X F+11~*, F+12, F+36*, GATHER+1~, GATHER+3*, GATHER+4, GATHER+14, GATHER+15, GATHER+16, TYPEPTS+1~*
, TYPEPTS+2, TYPEPTS+3, TYPEPTS+4, TYPEPTS+5, TYPEPTS+6, ADDGRACE+1~, ADDGRACE+3, DRUGCOVG+2~*, DRUGCOVG+3*, DRUGCOVG+5
X1 ADDGRACE~
X2 ADDGRACE+1~*
Y DRUGCOVG+5~*

Marked Items

Name Field # of Occurrence
$T( A+8, TYPEPTS+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All