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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^IBAT(351.6

Package: Integrated Billing

Global: ^IBAT(351.6


Information

FileMan FileNo FileMan Filename Package
351.6 TRANSFER PRICING PATIENT Integrated Billing

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Integrated Billing 8 ^IBAT(351.6    IBATFILE    ^IBE(399.6    IBATLM0    IBATLM1    IBATLM3    IBATOP    IBATUTL

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Integrated Billing 3 IBATFILE    IBATLM0A    IBATUTL    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Integrated Billing 2 TRANSFER PRICING TRANSACTIONS(#351.61)[.02]    IB SITE PARAMETERS(#350.9)[10.01]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 INSTITUTION(#4)[.03, .09, .1]
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 11

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  DEC 03, 1998
  • HELP-PROMPT:  Select a Transfer Pricing patient
  • DESCRIPTION:  
    This field is a pointer to the Patient file (#2).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  351.6^B
    1)= S ^IBAT(351.6,"B",$E(X,1,30),DA)=""
    2)= K ^IBAT(351.6,"B",$E(X,1,30),DA)
.02 DATE ADDED TO FILE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1999
  • HELP-PROMPT:  This is the date the patient was added
  • DESCRIPTION:  
    This stores when this Transfer Pricing patient was added to the file. Usually happens when this patient has his first Transfer Pricing transaction.
    UNEDITABLE
.03 PREFERRED FACILITY 0;3 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  MAY 23, 2000
  • HELP-PROMPT:  This is the patient's preferred facility
  • DESCRIPTION:  
    This is the Transfer Pricing patient's preferred facility as of the last transaction processed.
  • RECORD INDEXES:  AC (#40), AD (#41)
.04 TRANSFER PRICING STATUS 0;4 SET
************************REQUIRED FIELD************************
  • '0' FOR INACTIVE;
  • '1' FOR ACTIVE;

  • LAST EDITED:  DEC 03, 1998
  • HELP-PROMPT:  Choose if this patient is active or not.
  • DESCRIPTION:  
    This is a flag showing if the patient is still enrolled with their preferred facility being other than the current facility. This is only updated if there are Transfer Pricing transactions or by user intervention.
.05 LAST ADMISSION DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1999
  • HELP-PROMPT:  This is the last admission date
  • DESCRIPTION:  
    This is the patient's last admission date that they were considered an active Transfer Pricing patient.
.06 LAST OUTPATIENT VISIT DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1999
  • HELP-PROMPT:  This is the last outpatient date
  • DESCRIPTION:  
    This is the patient's last outpatient visit date that they were considered an active Transfer Pricing patient.
.07 LAST PRESCRIPTION DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1999
  • HELP-PROMPT:  This is the last prescription date
  • DESCRIPTION:  
    This is the patient's last prescription date that they were considered an active Transfer Pricing patient.
.08 LAST AUTHORIZING PERSON 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 03, 1998
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field is used to store the person's name from the patient's preferred facility who last authorized services. This is used as a default for any future authorizations being entered.
.09 LAST AUTHORIZING FACILITY 0;9 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  DEC 03, 1998
  • HELP-PROMPT:  This is the last facility to provide authorization
  • DESCRIPTION:  
    This is the facility where the last authorization was gotten from.
.1 OVERRIDDEN FACILITY 0;10 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCR^IBATUTL(Y),$$INST^IBATUTL(Y)'[""VISN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 23, 2000
  • HELP-PROMPT:  This is the facility to override all others for this patient
  • DESCRIPTION:  
    This field, if filled in, will override what the patient's preferred facility is for all future transactions as long as there is something in this field.
  • SCREEN:  S DIC("S")="I $$SCR^IBATUTL(Y),$$INST^IBATUTL(Y)'[""VISN"""
  • EXPLANATION:  Only Valid Facilities, no VISNs allowed
  • RECORD INDEXES:  AC (#40), AD (#41)
.11 LAST PROSTHETIC DATE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 30, 2000
  • HELP-PROMPT:  This is the last date a prosthetic device was issued.
  • DESCRIPTION:  
    This is the last date a prosthetic device was issued.

External References

Name Field # of Occurrence
^%DT .02+1, .05+1, .06+1, .07+1, .11+1
^DIC .1+1
$$VISN^IBATUTL IXACP1CC+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBAT(351.6 - [#351.6] IXACSL+1*, IXACKL+1!, IXACKEIC+1!, IXADSL+1*, IXADKL+1!, IXADKEIC+1!, .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*, .05+1*, .06+1*, .07+1*, .11+1*
>> DA IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, .01(XREF 1S), .01(XREF 1K)
DIC .1+1!*
DIC("S" .1+1*, .1SCR+1*
>> DIE .1+1
>> DINUM .01+1*
X IXACSCC+1*, IXACKCC+1*, IXACP1CC+1*, IXADSCC+1*, IXADKCC+1*, IXADP3CC+1*, .01+1, .01(XREF 1S), .01(XREF 1K), .02+1*!
, .05+1*!, .06+1*!, .07+1*!, .08+1!, .1+1*!, .11+1*!
X(1 IXACP1CC+1, IXADP3CC+1
X(2 IXACP1CC+1, IXADP3CC+1
X(3 IXACSL+1, IXACSCC+1, IXACKL+1, IXACKCC+1, IXADSL+1, IXADSCC+1, IXADKL+1, IXADKCC+1
>> Y .02+1, .05+1, .06+1, .07+1, .1+1, .11+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All