Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCEP6

IBCEP6.m

Go to the documentation of this file. 
  1. IBCEP6 ;ALB/TMP/OIFO-BP/RBN - PROVIDER ID MAINT menu and INS CO EDIT hook ;11-02-00
  1.  ;;2.0;INTEGRATED BILLING;**137,232,320,377,436**;21-MAR-94;Build 31
  1.  ;;Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;
  1. EN ; -- main entry point
  1.  N IBRESP,IBFLPFLP,IBCEP6FL
  1.  S IBCEP6FL=1
  1.  D FULL^VALM1
  1.  F  Q:'$$MENU(.IBRESP)  D @IBRESP
  1. ENQ ;
  1.  Q
  1.  ;
  1. EN1 ; Provider maintenance from the billing screen 8
  1.  N DIR,X,Y,IBEDIT
  1.  W !
  1.  I '$D(^XUSEC("IB PROVIDER EDIT",DUZ)) S DIR(0)="EA",DIR("A")="Press ENTER to continue: ",DIR("A",1)="YOU LACK THE SECURITY KEY FOR THIS ACTION" D ^DIR K DIR Q
  1.  D EN
  1.  Q
  1.  ;
  1. PO ; provider's own IDs
  1.  N IBPRV,IBINS
  1.  N IBSLEV,DIR,Y,X,IBPRMPT,IBNVAFL,IBIF
  1.  K IBFASTXT
  1.  S IBIF=""
  1.  S IBPRMPT="PROVIDER"
  1.  D FULL^VALM1
  1.  S IBSLEV=1
  1.  D EN^VALM("IBCE PRVPRV MAINT")
  1. POX ;
  1.  Q
  1.  ;
  1. PI ; provider's IDs provided by an insurance company
  1.  N IBPRV,IBINS
  1.  N IBSLEV,DIR,Y,X,IBPRMPT,IBNVAFL,IBIF
  1.  K IBFASTXT
  1.  S IBIF=""
  1.  S IBPRMPT="PROVIDER"
  1.  D FULL^VALM1
  1.  S IBSLEV=2
  1.  D EN^VALM("IBCE PRVPRV MAINT")
  1. PIX ;
  1.  Q
  1.  ;
  1. BI ; Insurance company batch ID entry
  1.  D EN^IBCEP9
  1. BIX ;
  1.  Q
  1.  ;
  1. II ; Insurance company IDs
  1.  D EN^IBCEP0
  1. IIX ;
  1.  Q
  1.  ;
  1. CP ; Care Unit maintenance - performing providers
  1.  N IBINS,IBALL,IB95
  1.  N IBSLEV,DIR,Y
  1.  K IBFASTXT
  1.  D FULL^VALM1
  1.  S IBSLEV=1
  1.  D EN^VALM("IBCE PRVCARE UNIT MAINT")
  1. CPX ;
  1.  Q
  1.  ;
  1. CB ; Care Unit maintenance - billing provider
  1.  N IBINS,IBALL,IB95
  1.  N IBSLEV,DIR,Y
  1.  K IBFASTXT
  1.  D FULL^VALM1
  1.  S IBSLEV=2
  1.  D EN^VALM("IBCE 2ND PRVID CARE UNIT MAINT")
  1. CBX ;
  1.  Q
  1.  ;
  1. NP ; non-VA individual provider information
  1.  N IBNVPMIF
  1.  S IBNVPMIF="I"
  1.  ;
  1.  ; *** Begin IB*2.0*436 - RBN
  1.  ;
  1.  D EN^DDIOL("For individual type entries: The name should be entered in")
  1.  D EN^DDIOL("                             LAST,FIRST MIDDLE format.")
  1.  D EN^DDIOL(" ")
  1.  ;
  1.  ; *** End IB*2.0*436 - RBN
  1.  ;
  1.  D EN^IBCEP8
  1. NPX ;
  1.  Q
  1.  ;
  1. NF ; non-VA facility provider information
  1.  N IBNVPMIF
  1.  S IBNVPMIF="F"
  1.  ;
  1.  ; *** Begin IB*2.0*436 - RBN
  1.  ;
  1.  D EN^DDIOL("For facility type entries: The name MUST start with an")
  1.  D EN^DDIOL("Alpha character and may contain numerals, spaces, commas, ")
  1.  D EN^DDIOL("periods, and a hyphen or dash.")
  1.  D EN^DDIOL(" ")
  1.  ;
  1.  ; *** End IB*2.0*436 - RBN
  1.  ;
  1.  D EN^IBCEP8
  1. NFX ;
  1.  Q
  1.  ;
  1.  ; function value returns 0 if user exits from menu or "^" out
  1.  ; function value returns 1 otherwise
  1.  ; IBSEL is the internal value of the user's selection if any (pass by reference)
  1.  N IBQ,DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,C,Z
  1.  N IORESET,IORVON,IORVOFF,IOUON,IOUOFF,IOINHI,IOINLOW,IOINORM
  1.  S IBQ=1,IBSEL=""
  1.  S X="IORESET;IORVON;IORVOFF;IOUON;IOUOFF;IOINHI;IOINLOW;IOINORM"
  1.  D ENDR^%ZISS
  1.  ;
  1.  S $P(DIR(0),U,1)="SOA"
  1.  S $P(Z,";",1)="PO:Provider Own IDs"
  1.  S $P(Z,";",2)="PI:Provider Insurance IDs"
  1.  S $P(Z,";",3)="BI:Batch ID Entry"
  1.  S $P(Z,";",4)="II:Insurance Co IDs"
  1.  S $P(Z,";",5)="CP:Care Units for Providers"
  1.  S $P(Z,";",6)="CB:Care Units for Billing Provider"
  1.  S $P(Z,";",7)="NP:Non-VA Provider"
  1.  S $P(Z,";",8)="NF:Non-VA Facility"
  1.  ;
  1.  S $P(DIR(0),U,2)=Z
  1.  ;
  1.  S DIR("L",1)="                "_IOINHI_"Provider IDs"_IOINORM
  1.  S DIR("L",2)="          "_$P($P(Z,";",1),":",1)_"  "_$P($P(Z,";",1),":",2)
  1.  S DIR("L",3)="          "_$P($P(Z,";",2),":",1)_"  "_$P($P(Z,";",2),":",2)
  1.  S DIR("L",4)=""
  1.  S DIR("L",5)="                "_IOINHI_"Insurance IDs"_IOINORM
  1.  S DIR("L",6)="          "_$P($P(Z,";",3),":",1)_"  "_$P($P(Z,";",3),":",2)
  1.  S DIR("L",7)="          "_$P($P(Z,";",4),":",1)_"  "_$P($P(Z,";",4),":",2)
  1.  S DIR("L",8)=""
  1.  S DIR("L",9)="                "_IOINHI_"Care Units"_IOINORM
  1.  S DIR("L",10)="          "_$P($P(Z,";",5),":",1)_"  "_$P($P(Z,";",5),":",2)
  1.  S DIR("L",11)="          "_$P($P(Z,";",6),":",1)_"  "_$P($P(Z,";",6),":",2)
  1.  S DIR("L",12)=""
  1.  S DIR("L",13)="                "_IOINHI_"Non-VA Items"_IOINORM
  1.  S DIR("L",14)="          "_$P($P(Z,";",7),":",1)_"  "_$P($P(Z,";",7),":",2)
  1.  S DIR("L")="          "_$P($P(Z,";",8),":",1)_"  "_$P($P(Z,";",8),":",2)
  1.  ;
  1.  S DIR("?")="^D MENH^IBCEP6"
  1.  S DIR("A")="    Select Provider ID Maintenance Option: "
  1.  ;
  1.  ; paint the screen and display menu first time in
  1.  D MENH
  1.  W !
  1.  S C=0 F  S C=$O(DIR("L",C)) Q:'C  W !,DIR("L",C)
  1.  W !,DIR("L"),!
  1.  D ^DIR K DIR W !
  1.  I $D(DIRUT) S IBQ=0 G MENUX
  1.  S IBSEL=Y
  1.  I IBSEL="" S IBQ=0
  1.  Q IBQ
  1.  ;
  1. MENH ; menu help
  1.  W @IOF,!?4,"Provider ID Maintenance Main Menu"
  1.  W !!?4,"Enter a code from the list."
  1. MENHX ;
  1.  Q
  1.  ;