IBCU61 ;ALB/AAS - DELETE ENTRIES IN REVENUE CODE MULT. ; 4-MAY-90
Source file <IBCU61.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ALL | ;delete all revenue codes that may have been set up automatically
|
|
DEL | ||
GVAR | ;I $D(PTF),PTF]"",$D(^DGPT(PTF,0)),'$P(^DGPT(PTF,0),"^",6),$D(DGPTUPDT) D UPDT^DGPTUTL S DGPTUPDT="" ;if open, update ptf record
|
|
CAT | ;check patient bills to see if Means Test. set IBIDS(.11)="y" (yes)
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|