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 |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^IBE(350.6

Package: Integrated Billing

Global: ^IBE(350.6


Information

FileMan FileNo FileMan Filename Package
350.6 IB ARCHIVE/PURGE LOG Integrated Billing

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Integrated Billing 9 IBPA    IBPFU    IBPO    IBPP    IBPU    ^IBE(350.6    IBPU1    IBPUBUL
IBPUDEL    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Integrated Billing 3 IBPFU    IBPO    IBPU1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[1.032.033.03]
VA Fileman 1 FILE(#1)[.03]    

Fields, Total: 14

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 08, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    The Log # number is used to identify a unique archive/purge operation for a single file.  The number will be equal to the internal entry number of the Log entry.
  • CROSS-REFERENCE:  350.6^B
    1)= S ^IBE(350.6,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(350.6,"B",$E(X,1,30),DA)
.02 SEARCH TEMPLATE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>33!($L(X)<6) X
  • LAST EDITED:  APR 08, 1992
  • HELP-PROMPT:  Answer must be 6-33 characters in length.
  • DESCRIPTION:  This field contains the name of the Search Template used to contain the list of entries to be archived/purged. This name is the .01 field for the template entry in the SORT TEMPLATE file (#.401). The name of the template
    is stored instead of a hard pointer to the SORT TEMPLATE file because the template is deleted from the file after the entries have been purged.  The name of the template is the string "IB ARCHIVE/PURGE #" concatenated with
    the Archive Log # (field .01).
  • CROSS-REFERENCE:  350.6^C
    1)= S ^IBE(350.6,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(350.6,"C",$E(X,1,30),DA)
.03 ARCHIVE FILE 0;3 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  APR 08, 1992
  • DESCRIPTION:  This field points to the FILE file (#1) and represents the file to be archived/purged. The Billing data files subject to archiving/purging currently are:
    350  INTEGRATED BILLING ACTION
    351  CATEGORY C BILLING CLOCK
    399  BILL/CLAIMS
  • CROSS-REFERENCE:  350.6^D
    1)= S ^IBE(350.6,"D",$E(X,1,30),DA)=""
    2)= K ^IBE(350.6,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  350.6^AF^MUMPS
    1)= I $D(^IBE(350.6,DA,1)),^(1) S ^IBE(350.6,"AF",X,-^(1),DA)=""
    2)= I $D(^IBE(350.6,DA,1)),^(1) K ^IBE(350.6,"AF",X,-^(1),DA)
    Cross-reference of all ARCHIVE/PURGE LOG entries (by Archive file [#.03] and the inverse Search Begin Date/Time [#1.01]) for which a search has been initiated.  The cross-reference will be used to find the most recent log
    entry for a file.  The "AF1" cross-reference on the Search Begin Date/Time field (#1.01) is the companion to this cross-reference.
.04 # RECORDS ARCHIVED 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 08, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999999999999, 0 Decimal Digits
  • DESCRIPTION:  This field will contain the number of entries which have been processed in each sequential archive/purge operation. The 'Search' option will update the field with the number of entries which have met the search criteria.
    The 'Archive' option will update this field with the number of entries archived.  The 'Purge' option will update the field with the number of entries purged.  Also, the 'Delete Entry From Search Template' option will
    update the field when entries from the template are deleted.
.05 LOG STATUS 0;5 SET
  • '1' FOR OPEN;
  • '2' FOR CLOSED;
  • '3' FOR CANCELLED;

  • LAST EDITED:  APR 08, 1992
  • DESCRIPTION:  This field contains the current status of the archive/purge operation. The status will be OPEN when the log entry is created, and CLOSED after successfully purging archived entries. The entry will be CANCELLED if an
    error is detected during processing which invalidates the operation.
  • CROSS-REFERENCE:  350.6^E
    1)= S ^IBE(350.6,"E",$E(X,1,30),DA)=""
    2)= K ^IBE(350.6,"E",$E(X,1,30),DA)
1.01 SEARCH BEGIN DATE/TIME 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 24, 1992
  • DESCRIPTION:  
    The date/time at which the search was initiated is automatically stuffed into this field by the 'Search' option.
  • CROSS-REFERENCE:  ^^TRIGGER^350.6^1.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(350.6,1.01,1,1,1.4)
    1.4)= S DIH=$S($D(^IBE(350.6,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=350.6,DIG=1.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(350.6,1.01,1,1,2.4)
    2.4)= S DIH=$S($D(^IBE(350.6,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=350.6,DIG=1.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= @
    FIELD)= SEARCH INITIATOR
  • CROSS-REFERENCE:  350.6^AF1^MUMPS
    1)= I $D(^IBE(350.6,DA,0)),$P(^(0),"^",3) S ^IBE(350.6,"AF",$P(^(0),"^",3),-X,DA)=""
    2)= I $D(^IBE(350.6,DA,0)),$P(^(0),"^",3) K ^IBE(350.6,"AF",$P(^(0),"^",3),-X,DA)
    Cross-reference of all ARCHIVE/PURGE LOG entries (by Archive file [#.03] and the inverse Search Begin Date/Time [#1.01]) for which a search has been initiated.  The cross-reference will be used to find the most recent log
    entry for a file.  The "AF" cross-reference on the Archive File field (#.03) is the companion to this cross-reference.
1.02 SEARCH END DATE/TIME 1;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  The date/time at which the search was completed is automatically stuffed into this field by the 'Search' option. The existence of this field in the log entry assures that the search on the file was successful, and thus
    the field is used as the flag to allow archiving.
1.03 SEARCH INITIATOR 1;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 08, 1992
  • DESCRIPTION:  
    This field conatins the individual who queued the search on the file.  The field is updated by a trigger when the SEARCH BEGIN DATE/TIME field is updated.
  • NOTES:  TRIGGERED by the SEARCH BEGIN DATE/TIME field of the IB ARCHIVE/PURGE LOG File
2.01 ARCHIVE BEGIN DATE/TIME 2;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 24, 1992
  • DESCRIPTION:  
    The date/time that the archiving of data is initiated is automatically stuffed into this field by the 'Archive' option.
  • CROSS-REFERENCE:  ^^TRIGGER^350.6^2.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,2)):^(2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(350.6,2.01,1,1,1.4)
    1.4)= S DIH=$S($D(^IBE(350.6,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,3)=DIV,DIH=350.6,DIG=2.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,2)):^(2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(350.6,2.01,1,1,2.4)
    2.4)= S DIH=$S($D(^IBE(350.6,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,3)=DIV,DIH=350.6,DIG=2.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= @
    FIELD)= #2.03
2.02 ARCHIVE END DATE/TIME 2;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  The date/time that the archiving of data was completed is automatically stuffed into this field by the 'Archive' option. The existence of this field in the log entry assures that archiving was successful, and thus the
    field is used as a flag to allow purging.
2.03 ARCHIVE INITIATOR 2;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 08, 1992
  • DESCRIPTION:  
    This field contains the individual who archived the file.  The field is updated by a trigger when the ARCHIVE BEGIN DATE/TIME field is updated.
  • NOTES:  TRIGGERED by the ARCHIVE BEGIN DATE/TIME field of the IB ARCHIVE/PURGE LOG File
3.01 PURGE BEGIN DATE/TIME 3;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 24, 1992
  • DESCRIPTION:  
    The date/time that purging is initiated is automatically stuffed into this field by the 'Purge' option.
  • CROSS-REFERENCE:  ^^TRIGGER^350.6^3.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(350.6,3.01,1,1,1.4)
    1.4)= S DIH=$S($D(^IBE(350.6,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,3)=DIV,DIH=350.6,DIG=3.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(350.6,3.01,1,1,2.4)
    2.4)= S DIH=$S($D(^IBE(350.6,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,3)=DIV,DIH=350.6,DIG=3.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= @
    FIELD)= #3.03
3.02 PURGE END DATE/TIME 3;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    The date/time that the purging of data was completed is automatically stuffed into this field by the 'Purge' option.  When this field is updated the status of the log entry is updated to CLOSED.
3.03 PURGE INITIATOR 3;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 08, 1992
  • DESCRIPTION:  
    This field contains the individual who purged the file.  The field is updated by a trigger when the PURGE BEGIN DATE/TIME field is updated.
  • NOTES:  TRIGGERED by the PURGE BEGIN DATE/TIME field of the IB ARCHIVE/PURGE LOG File

External References

Name Field # of Occurrence
^%DT 1.01+1, 1.02+1, 2.01+1, 2.02+1, 3.01+1, 3.02+1
^DICR 1.01(XREF 1n1.4), 1.01(XREF 1n2.4), 2.01(XREF 1n1.4), 2.01(XREF 1n2.4), 3.01(XREF 1n1.4), 3.01(XREF 1n2.4)
Y^DIQ ID.03+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 1.01(XREF 1n1.4), 1.01(XREF 1n2.4), 2.01(XREF 1n1.4), 2.01(XREF 1n2.4), 3.01(XREF 1n1.4), 3.01(XREF 1n2.4)
^DD(1 ID.03+1
^DD(350.6 1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
^DIC - [#1] ID.03+1
^IBE(350.6 - [#350.6] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1K)
1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 1.01(XREF 2S), 1.01(XREF 2K), 2.01(XREF 1S), 2.01(XREF 1n1.4), 2.01(XREF 1K), 2.01(XREF 1n2.4)
3.01(XREF 1S), 3.01(XREF 1n1.4), 3.01(XREF 1K), 3.01(XREF 1n2.4)

Naked Globals

Name Field # of Occurrence
^(0 ID.03+1, 1.01(XREF 2S), 1.01(XREF 2K)
^(1 ID1.01+1, .03(XREF 2S), .03(XREF 2K), 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4)
^(2 2.01(XREF 1S), 2.01(XREF 1n1.4), 2.01(XREF 1K), 2.01(XREF 1n2.4)
^(3 3.01(XREF 1S), 3.01(XREF 1n1.4), 3.01(XREF 1K), 3.01(XREF 1n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 1.01+1*, 1.02+1*, 2.01+1*, 2.02+1*, 3.01+1*, 3.02+1*
%I ID.03+1*!
>> C ID.03+1*
>> D0 1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1K)
1.01(XREF 1S), 1.01(XREF 1K), 1.01(XREF 2S), 1.01(XREF 2K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
>> DIC ID.03+1, ID.05+1
>> DIG 1.01(XREF 1n1.4), 1.01(XREF 1n2.4), 2.01(XREF 1n1.4), 2.01(XREF 1n2.4), 3.01(XREF 1n1.4), 3.01(XREF 1n2.4)
>> DIH 1.01(XREF 1n1.4), 1.01(XREF 1n2.4), 2.01(XREF 1n1.4), 2.01(XREF 1n2.4), 3.01(XREF 1n1.4), 3.01(XREF 1n2.4)
>> DIU 1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
DIV 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 2.01(XREF 1S), 2.01(XREF 1n1.4), 2.01(XREF 1K), 2.01(XREF 1n2.4), 3.01(XREF 1S), 3.01(XREF 1n1.4)
3.01(XREF 1K), 3.01(XREF 1n2.4)
DIV(0 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 2.01(XREF 1S), 2.01(XREF 1n1.4), 2.01(XREF 1K), 2.01(XREF 1n2.4), 3.01(XREF 1S), 3.01(XREF 1n1.4)
3.01(XREF 1K), 3.01(XREF 1n2.4)
DUZ 1.01(XREF 1S), 2.01(XREF 1S), 3.01(XREF 1S)
U ID.03+1, ID1.01+1, 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 2.01(XREF 1S), 2.01(XREF 1n1.4), 2.01(XREF 1K), 2.01(XREF 1n2.4)
3.01(XREF 1S), 3.01(XREF 1n1.4), 3.01(XREF 1K), 3.01(XREF 1n2.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
, .04+1!, .05(XREF 1S), .05(XREF 1K), 1.01+1*!, 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 1.01(XREF 2S), 1.01(XREF 2K)
, 1.02+1*!, 2.01+1*!, 2.01(XREF 1S), 2.01(XREF 1n1.4), 2.01(XREF 1K), 2.01(XREF 1n2.4), 2.02+1*!, 3.01+1*!, 3.01(XREF 1S), 3.01(XREF 1n1.4)
3.01(XREF 1K), 3.01(XREF 1n2.4), 3.02+1*!
Y ID.03+1*, 1.01+1, 1.01(XREF 1S), 1.01(XREF 1K), 1.02+1, 2.01+1, 2.01(XREF 1S), 2.01(XREF 1K), 2.02+1, 3.01+1
3.01(XREF 1S), 3.01(XREF 1K), 3.02+1
Y(1 1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All