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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBCNSP1

Package: Integrated Billing

Routine: IBCNSP1


Information

IBCNSP1 ;ALB/AAS - INSURANCE MANAGEMENT - policy actions ;05-MAY-2015

Source Information

Source file <IBCNSP1.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Integrated Billing 12 $$SCRUB^IBCEF21  INIT^IBCNSC4  (PAT,POL)^IBCNSEH  (,AFTER,BEFORE)^IBCNSEVT  VFY^IBCNSM2  EDPOL^IBCNSM3  PATPOL^IBCNSM32  (BLD,EN)^IBCNSP  
(AI,AIP)^IBCNSP02  UPDCLM^IBCNSP2  (COMP,COMPPT,SAVE,SAVEPT,UPDATE,UPDATPT,VARS)^IBCNSP3  LOCKED^IBTRCD1  
VA FileMan 4 $$FIND1^DIC  ^DIE  $$EXTERNAL^DILFD  ^DIR  
List Manager 2 EN^VALM  (FULL,PAUSE)^VALM1  
Kernel 1 $$FMTE^XLFDT  
Registration 1 (ADD,DEM)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 19

Package Total Caller Graph
Integrated Billing 18 IBCEF73  IBCEOB01  IBCNSJ PLAN UR INFO  IBCNSM3  IBCNSM31  IBCNSM32  IBCNSP ANNUAL BENEFITS  IBCNSP BENEFITS USED  
IBCNSP EDIT ALL  IBCNSP EDIT EFFECTIVE DATES  IBCNSP INSURANCE CONTACT INF  IBCNSP SUBSCRIBER UPDATE  IBCNSP UR INFO  IBCNSP VERIFY COVERAGE  IBY377PO  ^IBA(355.33  
^IBA(364.7  IBCNUPD  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
UPDCLM(IBDFN,IBCDFN) ; Update the Insurance nodes of claims that are still editable
BU ; -- Benefits Used
VC ; -- Verify Coverage
SUQ
EDITX ;
UPDCLMX ;
IT1 ; -- edit insurance type info from patient policy
BUQ
ASKX ;
EAQ ; Edit All Exit
PRELCNV(CODE,FLG) ; conversion between X12, NCPDP and VistA pt. relationship codes
; CODE - code for pt. relationship to convert
; FLG - 0 for X12 -> VistA conversion, 1 for VistA -> X12 conversion, 2 - for VistA -> NCPDP conversion
; returns converted code for pt. relationship, or null if no match found
PIDEF(IBREL,FLD,IBDFN,SPDEF) ; Function to return patient file defaults
; Called from input template IBCN PATIENT INSURANCE
; IBREL = value from 2.312,4.03 field (PT. RELATIONSHIP - HIPAA)
; FLD = field# in file 2.312
; IBDFN = patient ien to file 2
; SPDEF = spouse default flag =1 if this field should be defaulted
; when the spouse is the policy holder
AB ; -- Annual Benefits
PIDEFX ;
AI ; -- Add ins. verification entry
ED ; -- Edit effective dates
EA ; -- Edit all
IT ; -- edit insurance type info from patient policy and plan edit
ABQ
IC ; -- Insurance Contact Information
ASK(QUES,DEFLT) ; Function to ask Yes/No Question
; Returns 1 (yes), 0 (no, up-arrow, or timeout)
ITEDIT(IBCPOL,IBCDFN) ;Edit insurance type info once you have plan (IBCPOL)
; IBCDFN = the ifn of the policy multiple for pt in ^DPT, node .312
; only defined for editing via patient policy
SU ; -- Subscriber Update
EDQ
ITQ ; Edit Insurance Type Exit
EDIT(IBDFN,IBCDFN,IBQUIT) ; Main call to edit data in 2.312 pat ins subfile
; IBDFN - patient DFN
; IBCDFN - ien for patient insurance policy in subfile 2.312
; IBQUIT - Output variable. Pass by reference. Will be set to 1 if
; the user entered an up-arrow, timed-out, or deleted the
; 2.312 subfile entry by entering "@" at the .01 field
;
ITEDITQ

External References

Name Field # of Occurrence
$$FIND1^DIC EDIT+15
^DIE ITEDIT+9, ED+8, EDIT+25
$$EXTERNAL^DILFD PIDEF+32
^DIR ASK+5
$$SCRUB^IBCEF21 EDIT+41, EDIT+42
INIT^IBCNSC4 ITEDIT+11
PAT^IBCNSEH EA+14
POL^IBCNSEH EA+21, ITEDIT+6
^IBCNSEVT EA+18, ED+9
AFTER^IBCNSEVT EA+18, ED+9
BEFORE^IBCNSEVT EA+16, ED+3
VFY^IBCNSM2 VC+2
EDPOL^IBCNSM3 EA+22
PATPOL^IBCNSM32 EA+17
BLD^IBCNSP EAQ+2, ITEDIT+11, ED+9, VC+3, SU+12, IC+4
EN^IBCNSP %
AI^IBCNSP02 AI+4
AIP^IBCNSP02 EAQ+1, IC+4
UPDCLM^IBCNSP2 UPDCLM+2
COMP^IBCNSP3 ITEDIT+10
COMPPT^IBCNSP3 ED+9, SU+11
SAVE^IBCNSP3 ITEDIT+4
SAVEPT^IBCNSP3 ED+4, SU+5
UPDATE^IBCNSP3 ITEDIT+11
UPDATPT^IBCNSP3 ITEDIT+11, ED+9, SU+12
VARS^IBCNSP3 ED+6, SU+6
LOCKED^IBTRCD1 ITEDIT+5, ED+5, SU+7
ADD^VADPT PIDEF+27
DEM^VADPT PIDEF+21
EN^VALM AB+12, BU+4
FULL^VALM1 EA+2, AB+11, BU+3, IT+1, IT1+1, ED+1, VC+1, SU+1, IC+1
PAUSE^VALM1 EA+8, AB+6, IT+8, IT1+8
$$FMTE^XLFDT PIDEF+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Sorry, but you do not have the required privileges to Edit All"
  • Line Location: EA+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: EA+11
Function Call: WRITE
  • Prompt: !!,"Can't identify the policy!"
  • Line Location: EA+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: EA+24
Function Call: WRITE
  • Prompt: !!,*7,"Sorry, but you do not have the required privileges to edit Annual Benefits."
  • Line Location: AB+4
Function Call: WRITE
  • Prompt: !!,"Can't identify the plan!"
  • Line Location: AB+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: AB+11
Function Call: WRITE
  • Prompt: !!,"Can't identify the plan!"
  • Line Location: BU+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: BU+3
Function Call: WRITE
  • Prompt: !!,*7,"Sorry, but you do not have the required privileges to edit Insurance Type"
  • Line Location: IT+5
Function Call: WRITE
  • Prompt: !,"Information."
  • Line Location: IT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: IT+11
Function Call: WRITE
  • Prompt: !!,"Can't identify the plan!"
  • Line Location: IT+14
Function Call: WRITE
  • Prompt: !!,*7,"Sorry, but you do not have the required privileges to edit Insurance Type"
  • Line Location: IT1+5
Function Call: WRITE
  • Prompt: !,"Information."
  • Line Location: IT1+6
Function Call: WRITE
  • Prompt: !?2,*7,"Please note that this plan is inactive!",!
  • Line Location: ITEDIT+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: VC+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: SU+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: IC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Y
  • Line Location: ASK+5
Routine Call
  • VALM
  • Line Location:
    • AB+12
    • BU+4
Routine Call
  • DIE
  • Line Location:
    • ITEDIT+9
    • ED+8
    • EDIT+25
Routine Call
  • DIC
  • Line Location:
    • EDIT+15
Routine Call
  • DIR
  • Line Location:
    • ASK+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIE - [#.402] FIND1^DIC
^DPT - [#2] EXTERNAL^DILFD
^IBA(355.3 - [#355.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] UPDCLM+2
^DIE - [#.402] EDIT+19, EDIT+23*
^DPT - [#2] AB+9, BU+1, IT+13, ED+5, ED+10, SU+7, SU+13, PIDEF+32, EDIT+36, EDIT+43*
, EDIT+44*
^IBA(355.3 - [#355.3] ITEDIT+5, ITEDIT+7, ITEDIT+12
^IBE(350.9 - [#350.9] ITEDIT+6
^UTILITY( EDIT+31!
^UTILITY("VADM" PIDEF+19, PIDEF+30, PIDEF+31, PIDEF+33, PIDEF+40
^UTILITY("VAPA" PIDEF+25, PIDEF+34, PIDEF+35, PIDEF+36, PIDEF+37, PIDEF+38, PIDEF+39
^XUSEC("IB GROUP PLAN EDIT" EA+5, AB+3, IT+4, IT1+4

Label References

Name Line Occurrences
ABQ AB+10
AI EA+25, IC+3
BUQ BU+2
EAQ EA+9, EA+13
EDIT SU+9
EDITX EDIT+11, EDIT+16, EDIT+21
EDQ ED+5
ITEDIT IT+15, IT1+11
ITEDITQ ITEDIT+3, ITEDIT+5
ITQ IT+9, IT+14
PIDEFX PIDEF+13, PIDEF+14, PIDEF+15, PIDEF+16, PIDEF+30, PIDEF+31, PIDEF+32, PIDEF+33, PIDEF+34, PIDEF+35
, PIDEF+36, PIDEF+37, PIDEF+38, PIDEF+39, PIDEF+40
SUQ SU+7
UPDCLM ED+9, EDIT+33

Naked Globals

Name Field # of Occurrence
^(0 AB+9, BU+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODE PRELCNV~, PRELCNV+8, PRELCNV+9, PRELCNV+10
DA ITEDIT+8*, ITEDIT+9!, ED+2~, ED+8!, SU+3~, IC+2~, AI+1~, EDIT+7~, EDIT+10*, EDIT+11
, EDIT+29
DA(1 EDIT+9*, EDIT+11
DD AI+1~
DEFLT ASK~, ASK+4
DFN AB+9, BU+1, IT+13, ITEDIT+11, ED+4, ED+5, ED+9, ED+10, SU+5, SU+7
, SU+9, SU+11, SU+12, SU+13, AI+2, PIDEF+20~, PIDEF+21*, PIDEF+26~, PIDEF+27*
DGSENFLG SU+3~, SU+4*
DIC ITEDIT+9!, ED+2~, ED+8!, SU+3~, IC+2~, AI+1~
DIE ITEDIT+8*, ITEDIT+9!, ED+2~, ED+8!, SU+3~, IC+2~, AI+1~, EDIT+7~, EDIT+12*
DIR EA+7!, AB+5!, IT+7!, IT1+7!, IC+2~, ASK+2~
DIR("A" ASK+3*
DIR("B" ASK+4*
DIR(0 ASK+3*
DIROUT ASK+2~
DIRUT IC+2~, ASK+2~, ASK+6
DO AI+1~
DR ITEDIT+8*, ITEDIT+9!, ED+2~, ED+7*, ED+8!, SU+3~, IC+2~, AI+1~, EDIT+7~, EDIT+20*
, EDIT+21
DR(1 EDIT+19*, EDIT+20
DT EDIT+23
DTOUT IC+2~, AI+1~, ASK+2~, EDIT+7~, EDIT+29
DUOUT IC+2~, AI+1~, ASK+2~
DUZ EA+5, AB+3, IT+4, IT1+4
FLD PIDEF~, PIDEF+15, PIDEF+30, PIDEF+31, PIDEF+32, PIDEF+33, PIDEF+34, PIDEF+35, PIDEF+36, PIDEF+37
, PIDEF+38, PIDEF+39, PIDEF+40
FLG PRELCNV~, PRELCNV+8, PRELCNV+9, PRELCNV+10
I AI+1~, PRELCNV+4~, PRELCNV+8*, PRELCNV+9*
IBCDFN EA+1~, EA+12*, EA+13, EA+17, EA+22, BU+1*, IT+12~, IT+13*, IT+15, ITEDIT~
, ITEDIT+6, ITEDIT+11, ED+4, ED+9, SU+5, SU+9, SU+11, SU+12, AI+3, EDIT~
, EDIT+10, EDIT+33, EDIT+36, EDIT+43, EDIT+44, UPDCLM~, UPDCLM+2
>> IBCNS AB+9*, BU+1*
>> IBCNSEH EA+14*, ITEDIT+6*
IBCPOL AB+9*, AB+10, BU+1*, BU+2, IT+13*, IT+14, IT+15, IT1+11, ITEDIT~, ITEDIT+3
, ITEDIT+4, ITEDIT+5, ITEDIT+7, ITEDIT+8, ITEDIT+10, ITEDIT+11, ITEDIT+12
IBDFN PIDEF~, PIDEF+16, PIDEF+21, PIDEF+27, PIDEF+32, EDIT~, EDIT+9, EDIT+12, EDIT+33, EDIT+36
, EDIT+43, EDIT+44, UPDCLM~, UPDCLM+2
IBDIF ITEDIT+11, ED+2~, ED+9, SU+3~, SU+12, IC+2~
IBIFN UPDCLM+1~, UPDCLM+2*
>> IBPPOL EA+12, AB+9, BU+1, IT+13, ED+5, ED+10, SU+7, SU+13
IBQUIT AI+1~, AI+3*, EDIT~, EDIT+29*
IBREL PIDEF~, PIDEF+13, PIDEF+14
IBTRC EA+1~, EAQ+1, IC+2~, IC+4
IBTRN EA+1~, IC+2~, AI+1~
IBX AI+1~
IBXIFN AI+1~
IBY EDIT+7~, EDIT+15*, EDIT+16, EDIT+19, EDIT+23
IBZ EDIT+7~, EDIT+31*
IDS EDIT+8~, EDIT+36*, EDIT+38, EDIT+39
J AI+1~
PAT EDIT+8~, EDIT+37*, EDIT+39*, EDIT+42, EDIT+44
PAT1 EDIT+8~, EDIT+42*, EDIT+44
PCE EDIT+8~, EDIT+38*, EDIT+39*
QUES ASK~, ASK+3
RES PRELCNV+4~, PRELCNV+7*, PRELCNV+8*, PRELCNV+9*, PRELCNV+10*, PRELCNV+11
SPDEF PIDEF~, PIDEF+14
SUB EDIT+8~, EDIT+37*, EDIT+38*, EDIT+41, EDIT+43
SUB1 EDIT+8~, EDIT+41*, EDIT+43
U PIDEF+30, PIDEF+31, PIDEF+32, PIDEF+33, PIDEF+34, PIDEF+35, PIDEF+36, PIDEF+37, PIDEF+38, PIDEF+39
, PIDEF+40, EDIT+23, EDIT+38, EDIT+39, EDIT+43, EDIT+44, PRELCNV+8, PRELCNV+9
VA AI+1~
VADM PIDEF+20~
VAERR AI+1~
VAHOW PIDEF+20~, PIDEF+21*, PIDEF+26~, PIDEF+27*
VAIN AI+1~
VAL PIDEF+11~, PIDEF+12*, PIDEF+30*, PIDEF+31*, PIDEF+32*, PIDEF+33*, PIDEF+34*, PIDEF+35*, PIDEF+36*, PIDEF+37*
, PIDEF+38*, PIDEF+39*, PIDEF+40*, PIDEFX+1
>> VALMBCK EAQ+3*, AB+7*, AB+10*, AB+13*, BU+2*, BU+5*, IT+14*, ITQ+1*, IT1+9*, IT1+12*
, EDQ*, VC+4*, SUQ*, IC+5*
VAPA PIDEF+26~
VAPA("P" PIDEF+27*
VSTR PRELCNV+4~, PRELCNV+5*, PRELCNV+8, PRELCNV+9
X AB+9*, AI+1~, ASK+2~, EDIT+7~
X12STR PRELCNV+4~, PRELCNV+6*, PRELCNV+8, PRELCNV+9
Y AI+1~, ASK+2~, ASK+5, ASK+6*, ASKX+1, EDIT+7~, EDIT+29
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All