IBCU2 ;ALB/MRL - BILLING UTILITY ROUTINE (CONTINUED) ;01 JUN 88 12:00
Source file <IBCU2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 9 | IBCDE IBCDP IBXS63 IBXS74 IBXSC68 IBXSC79 IBXX25 IBXX6 REVENUE CODE |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^%DT | FMDATES+3, FMDATES+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | FMDATES+1~, FMDATES+3*!, FMDATES+5*! |
| %DT("A" | FMDATES+3*, FMDATES+5* |
| %DT("B" | FMDATES+4* |
| %DT(0 | FMDATES+4* |
| DA | TC+1~, TC+2*, TCL, TCL+3, 21+1, 21+3, 22+2, 31+2, 32+2 |
| DA(1 | TCL, TCL+3, 21+1, 21+3, 22+2, 31+2, 32+2 |
| DGI | TC+3!, TCL+3* |
| DGI(1 | TC+2, TCL+3* |
| DGJ | TC+2*, TC+3! |
| DGJ1 | TC1*, TC1+1! |
| DGTCX | TC+3!, TCL*, TCL+1, TCL+2, TCL+3* |
| DGTCX1 | TC+2, TC+3!, TCL*, TCL+1*, TCL+2*, TCL+3 |
| DGTCX11 | TC1, TC1+1!, 21+3*, 22+2*, 31+2*, 32+2* |
| DGTCX2 | TC+3!, TCL* |
| DGXRF | TC+2, TC+3!, TCL+1 |
| >> DGXRF1 | TC1, 21+3*, 22+2*, 31+2*, 32+2* |
| DGXRF11 | TC1+1! |
| DT | FMDATES+4 |
| DT1 | FMDATES+1~*, FMDATES+6*, FMDQ |
| DT2 | FMDATES+1~, FMDATES+4*, FMDATES+6 |
| IB1 | FMDATES+1~*, FMDATES+2*, FMDATES+3 |
| IB2 | FMDATES+1~*, FMDATES+2*, FMDATES+5 |
| PROMPT | FMDATES~, FMDATES+2 |
| X | TC+1~, TC+2*, TCL+1, TCL+3, TC1*, TC1+1*, 21+3, 22+2, 31+2, 32+2 , FMDATES+1~ |
| Y | TC+1~, FMDATES+1~, FMDATES+3, FMDATES+4, FMDATES+5, FMDATES+6 |
| >> Z | 21+3*, 22+2*, 31+2*, 32+2* |
| >> Z1 | 21+3*, 22+2*, 31+2*, 32+2* |