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: IBCU61

Package: Integrated Billing

Routine: IBCU61


Information

IBCU61 ;ALB/AAS - DELETE ENTRIES IN REVENUE CODE MULT. ; 4-MAY-90

Source Information

Source file <IBCU61.m>

Entry Points

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)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Removing old Revenue Codes."
  • Line Location: ALL+2
Info |  Source |  Entry Points |  Interaction Calls