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

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

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Integrated Billing 17 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  IBCNUPD  IBY377PO  
INSURANCE TYPE  

Entry Points

Name Comments DBIA/ICR reference
EA ; -- Edit all
EAQ ; Edit All Exit
AB ; -- Annual Benefits
ABQ
BU ; -- Benefits Used
BUQ
IT ; -- edit insurance type info from patient policy and plan edit
ITQ ; Edit Insurance Type Exit
IT1 ; -- edit insurance type info from patient policy
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
ITEDITQ
ED ; -- Edit effective dates
EDQ
VC ; -- Verify Coverage
SU ; -- Subscriber Update
SUQ
IC ; -- Insurance Contact Information
AI ; -- Add ins. verification entry
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
PIDEFX ;
ASK(QUES,DEFLT) ; Function to ask Yes/No Question
; Returns 1 (yes), 0 (no, up-arrow, or timeout)
ASKX ;
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
;
EDITX ;
UPDCLM(IBDFN,IBCDFN) ; Update the Insurance nodes of claims that are still editable
UPDCLMX ;
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

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
  • DIC
  • Line Location:
    • EDIT+15
Routine Call
  • DIE
  • Line Location:
    • ITEDIT+9
    • ED+8
    • EDIT+25
Routine Call
  • DIR
  • Line Location:
    • ASK+5
Routine Call
  • VALM
  • Line Location:
    • AB+12
    • BU+4

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