Routine: IBCU61

Information

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	Prompt: !,"Removing old Revenue Codes." Line Location: ALL+2