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

Package: Integrated Billing

Routine: IBCNSOK


Information

IBCNSOK ;ALB/AAS - Patient Insurance consistency checker ; 2/22/93

Source Information

Source file <IBCNSOK.m>

Entry Points

Name Comments DBIA/ICR reference
UP
DEV
END
DQ ; -- entry point from task man
ERR1 ; -- no group plan pointer
ERR2 ; -- wrong insurance pointer
ERR3 ; -- dangle insurance node left
FIX ; -- reset pointer correctly
SET
REPORT ; -- Okay now tell us about the errors
ONE ; -- print one line
HDR ; -- Print header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Check Patient file Insurance Type Group Plan consistency"
  • Line Location: IBCNSOK+7
Function Call: WRITE
  • Prompt: !!,"I'm going to check the Insurance company for each patient policy with the",!,"Insurance company in the associated Group Plan file."
  • Line Location: IBCNSOK+8
Function Call: WRITE
  • Prompt: !!,"This will take a while, please queue this job to a device. I'll print",!,"a report when I'm done.",!!
  • Line Location: IBCNSOK+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !," Patient file update queued as task ",ZTSK
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"No Errors Found!"
  • Line Location: REPORT+4
Function Call: WRITE
  • Prompt: !,$E($P($G(^DPT(DFN,0)),"^"),1,16)_" ("_DFN_")"
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: ?25,VA("PID")
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: ?39,$E($P($G(^DIC(36,+IBCDFND,0)),"^"),1,25)
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: ?68,$E($P(IBCPOLD2,"^",2)_"("_$P($G(^DIC(36,+IBCPOLD,0)),"^"),1,33)_")"
  • Line Location: ONE+9
Function Call: WRITE
  • Prompt: ?105,$E($P(IBCPOLD2,"^",2)_"("_$P($G(^DIC(36,+IBCPOLD,0)),"^"),1,20)_")"
  • Line Location: ONE+12
Function Call: WRITE
  • Prompt: ?127,$S($G(IBUPDAT):"YES",1:"NO")
  • Line Location: ONE+13
Function Call: WRITE
  • Prompt: !?5,"Error: ",$S($P(IBDATA,"^",3)="IBCNS-ERR1":"Policy is missing group Plan",$P(IBDATA,"^",3)="IBCNS-ERR3":"Dangling insurance node detected",1:"Group Plan is with different insurance company")
  • Line Location: ONE+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patients with Incorrect Group Plans",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"PATIENT",?25,"PATIENT ID",?39,"INSURANCE CO.",?68,"OLD PLAN",?105,"NEW PLAN",?127,"UPDATED"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"....task stoped at user request"
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls