Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBCU2

Package: Integrated Billing

Routine: IBCU2


Information

IBCU2 ;ALB/MRL - BILLING UTILITY ROUTINE (CONTINUED) ;01 JUN 88 12:00

Source Information

Source file <IBCU2.m>

Entry Points

Name Comments DBIA/ICR reference
TC
TCL
TC1
FY ;S DGTCX1=$S($D(^DGCR(399,DA,"U1")):^("U1"),1:0) I +X>+DGTCX1 W !?4,*7,"Exceeds 'Total Charges' for this bill." K X Q
21 ;set logic for CHARGES subfield x-ref (399.042;.02)
22 ;kill logic for CHARGES subfield x-ref (399.042;.02)
; DEM;432 - Changed Z*Z1 to $FN(Z*Z1,"",2) for inclusion of decimal point.
31 ;set logic for UNITS OF SERVICE subfield x-ref (399.042;.03)
; DEM;432 - Changed Z*Z1 to $FN(Z*Z1,"",2) for inclusion of decimal point.
32 ;kill logic for UNITS OF SERVICE subfield x-ref (399.042;.03)
; DEM;432 - Changed Z*Z1 to $FN(Z*Z1,"",2) for inclusion of decimal point.
FMDATES(PROMPT) ; ask for date range
FMDQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,*7,"Exceeds 'Total Charges' for this bill."
  • Line Location: FY+0
Info |  Source |  Entry Points |  Interaction Calls