Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 NOW^%DTC  DT^DICRW  ^DIE  DT^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
Integrated Billing 1 $$CHIP^IBCNSU  
List Manager 1 PAUSE^VALM1  
Registration 1 PID^VADPT  

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

External References

Name Field # of Occurrence
NOW^%DTC DQ+3, REPORT+1
^%ZIS DEV
HOME^%ZIS DEV+3
^%ZISC END+2
^%ZTLOAD DEV+3
$$S^%ZTLOAD HDR+8
DT^DICRW %
^DIE FIX+8
DT^DIQ DQ+7
^DIR UP+3
$$CHIP^IBCNSU FIX+3
PID^VADPT ONE+1
PAUSE^VALM1 HDR+2
$$FMTE^XLFDT REPORT+1

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
Routine Call
  • DIE
  • Line Location:
    • FIX+8
Routine Call
  • DIR
  • Line Location:
    • UP+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] ONE+5, ONE+9, ONE+12
^DPT - [#2] DQ+11, DQ+14, DQ+15, ERR3+2!, SET, ONE+2, ONE+4
^IBA(355.3 - [#355.3] DQ+17, FIX+5, ONE+6, ONE+8, ONE+10, ONE+11
^TMP( REPORT+4, REPORT+5, REPORT+6, REPORT+7
^TMP("IBCNS-ERR" %+1!, END!, SET*

Label References

Name Line Occurrences
DQ DEV+6
END UP+4, DEV, DEV+1, DEV+6, DQ+22
ERR1 DQ+18
ERR2 DQ+19
ERR3 DQ+15
FIX ERR1+1, ERR2+1
HDR REPORT+2
ONE REPORT+7
REPORT DQ+22
SET ERR3+1

Naked Globals

Name Field # of Occurrence
^( REPORT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+3, REPORT+1
%ZIS DEV*, END+3!
DA END+3!, DQ+8~, FIX+6*, FIX+8!
DA(1 FIX+6*
DFN DQ+8~, DQ+9*, DQ+11*, DQ+14, DQ+15, ERR3+2, FIX+6, SET, REPORT+6*, REPORT+7
, ONE+2, ONE+4
DIC END+3!, DQ+8~, FIX+8!
DIE END+3!, DQ+8~, FIX+6*, FIX+8!
DIR UP+3!, END+3!
DIR("?" UP+2*
DIR("A" UP+1*
DIR("B" UP+1*
DIR(0 UP+1*
DIRUT UP+4, END+3!, HDR+2
DR END+3!, DQ+8~, FIX+7*, FIX+8!
DT %
I END+3!
IBCDFN END+3!, DQ+8~, DQ+11*, DQ+14, DQ+15, ERR3+2, FIX+6, SET, REPORT+7*, ONE+4
IBCDFND END+3!, DQ+8~, DQ+14*, DQ+15, DQ+17, DQ+18, DQ+19, FIX+3, FIX+5, ONE+4*
, ONE+5
IBCNT DQ+8~, DQ+9*, DQ+11*
IBCNTI END+3!, DQ+8~, DQ+9*, DQ+11*
IBCNTP END+3!, DQ+8~, DQ+9*
IBCNTPP END+3!, DQ+8~, DQ+9*, DQ+12, DQ+13*
IBCOPOL2 END+3!
IBCPOL END+3!, DQ+8~, DQ+17*, DQ+19, FIX+1, FIX+3*, FIX+4, FIX+5, FIX+7, SET
>> IBCPOL2 FIX+1*, SET
>> IBCPOLD ONE+6*, ONE+9, ONE+10*, ONE+12
IBCPOLD2 ONE+7~, ONE+8*, ONE+9, ONE+11*, ONE+12
>> IBDATA REPORT+7*, ONE+6, ONE+8, ONE+10, ONE+11, ONE+14
>> IBHDT REPORT+1*, HDR+5
IBI END+3!, DQ+8~
>> IBPAG REPORT+1*, HDR+2, HDR+3, HDR+4*, HDR+5
>> IBQUIT DQ+2*, HDR+1, HDR+2*, HDR+8*
>> IBSPDT DQ+3*, DQ+7
>> IBUPDAT UP*, UP+4*, DQ+6, ERR3+2, FIX+8, ONE+13
IBUPDT END+3!
IO DQ+1
IO("Q" DEV+1!
IOF HDR+3
IOM HDR+5, HDR+7
IOST HDR+2, HDR+3
J END+3!
>> NAME REPORT+3*, REPORT+5*, REPORT+6, REPORT+7
NODE END+3!, ERR1+1*, ERR2+1*, ERR3+1*, SET, REPORT+3*, REPORT+4, REPORT+5, REPORT+6, REPORT+7
>> POP DEV
>> VA("PID" ONE+3
X END+3!
Y UP+4, END+3!, DQ+7*
>> ZTDESC DEV+2*
>> ZTIO DEV+2*
>> ZTQUEUED END+1, DQ+4, DQ+12, ERR3+2, FIX+8, HDR+8
>> ZTREQ END+1*
>> ZTRTN DEV+2*
>> ZTSAVE("IB*" DEV+2*
ZTSK DEV+4!
>> ZTSTOP HDR+8*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All