Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^IBE(352.1

Package: Integrated Billing

Global: ^IBE(352.1


Information

FileMan FileNo FileMan Filename Package
352.1 BILLABLE APPOINTMENT TYPE Integrated Billing

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Integrated Billing 2 ^IBE(352.1    IBEFUNC    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Scheduling 1 APPOINTMENT TYPE(#409.1)[.02]    

Fields, Total: 6

Field # Name Loc Type Details
.01 NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 21, 1991
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is a unique number for each entry.
  • CROSS-REFERENCE:  352.1^B
    1)= S ^IBE(352.1,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(352.1,"B",$E(X,1,30),DA)
.02 APPOINTMENT TYPE 0;2 POINTER TO APPOINTMENT TYPE FILE (#409.1)
************************REQUIRED FIELD************************
APPOINTMENT TYPE(#409.1)

  • LAST EDITED:  OCT 22, 1991
  • DESCRIPTION:  
    This is the MAS Appointment type.
  • CROSS-REFERENCE:  352.1^AIVDT1^MUMPS
    1)= I $P(^IBE(352.1,DA,0),U,3) S ^IBE(352.1,"AIVDT",X,-$P(^(0),U,3),DA)=""
    2)= I $P(^IBE(352.1,DA,0),U,3) K ^IBE(352.1,"AIVDT",X,-$P(^(0),U,3),DA)
    Used to find most recent entry for appointment type.
  • CROSS-REFERENCE:  352.1^C
    1)= S ^IBE(352.1,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(352.1,"C",$E(X,1,30),DA)
.03 EFFECTIVE DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 22, 1991
  • DESCRIPTION:  Every Appointment type has certain billing characteristics that may change over time. For example, an appointment type may not be billable for Category C Means Test billing one year but may the next depending on
    legislation.
    It is only necessary to add a new effective date for an appointment type if the characteristics need to be time sensitive.
    UNEDITABLE
  • CROSS-REFERENCE:  352.1^AIVDT2^MUMPS
    1)= I $P(^IBE(352.1,DA,0),U,2) S ^IBE(352.1,"AIVDT",$P(^(0),U,2),-X,DA)=""
    2)= I $P(^IBE(352.1,DA,0),U,2) K ^IBE(352.1,"AIVDT",$P(^(0),U,2),-X,DA)
    Used to find most recent entry for an appointment type.
  • CROSS-REFERENCE:  352.1^D
    1)= S ^IBE(352.1,"D",$E(X,1,30),DA)=""
    2)= K ^IBE(352.1,"D",$E(X,1,30),DA)





.04
IGNORE MEANS TEST
0;4
SET 

************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  OCT 21, 1991
  • DESCRIPTION:  
    Set this field to 'YES' if this appointment type should NOT be billed for Category C means test billing.





.05
PRINT ON INSURANCE REPORT
0;5
SET 

************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  OCT 21, 1991
  • DESCRIPTION:  
    Set this field to 'YES' if you would like this appointment type to show up on the list of Veterans with insurance and outpatient visits.





.06
DISPLAY ON INPUT SCREEN
0;6
SET 

************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  OCT 21, 1991
  • DESCRIPTION:  
    Set this field to 'YES' if you would like this appointment type to be displayed as a potential billable visit on the outpatient visit screen when creating a third party bill.







Found Entries, Total: 10




NUMBER: 1    NUMBER: 10    NUMBER: 2    NUMBER: 3    NUMBER: 4    NUMBER: 5    NUMBER: 6    NUMBER: 7    


NUMBER: 8    NUMBER: 9    








ICR, Total: 1





ICR LINK
Subscribing Package(s)
Fields Referenced
Description




ICR #5029

  • SCHEDULING
    		• 

=> '11^11^2880101^0^1^1'  Entire node accessed todetermine validity.

    

    


    External References
    

    

    

    
Name
Field # of Occurrence

    

    
^%DT
.03+1

    

    
Y^DIQ
ID.02+1

    

    

    


    Global Variables Directly Accessed
    

    

    

    
Name
Line Occurrences  (* Changed,  ! Killed)

    

    
^DD(409.1
ID.02+1

    

    
^IBE(352.1 - [#352.1]
.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
    		

    

    
^SD(409.1 - [#409.1]
ID.02+1

    

    

    


    Naked Globals
    

    

    

    
Name
Field # of Occurrence

    

    
^(0
ID.02+1, ID.03+1, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

    

    

    


    Local Variables
    

    

  
    
    
    Legend:
    
    
    
      
        
    
           >> 
           Not killed explicitly
          
    
           * 
          Changed
          
    
           ! 
          Killed
          
    
          ~
          Newed
        
    
          
    
    
    
    
  
    

    

    
Name
Field # of Occurrence

    

    
>> %DT
.03+1*

    

    
%I
ID.02+1*!

    

    
>> C
ID.02+1*

    

    
>> DA
.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
    		

    

    
>> DIC
ID.02+1

    

    
U
ID.02+1, ID.03+1, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

    

    
X
.01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1*!, .03(XREF 1S), .03(XREF 1K)
    , .03(XREF 2S), .03(XREF 2K)    		

    

    
>> Y
ID.02+1*, .03+1

    

    

    


    


    
Info | 
Desc | 
Directly Accessed By Routines | 
Pointer To FileMan Files | 
Fields | 
ICR | 
Found Entries | 
External References | 
Global Variables Directly Accessed | 
Naked Globals | 
Local Variables | 
All