Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
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

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.03, 2.03, 3.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:  JUN 10, 2004
  • 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 S DIH=$G(^IBE(350.6,DIV(0),1)),DIV=X S $P(^(1),U,3)=DIV,DIH=350.6,DIG=1.03 D ^DICR
    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="" S DIH=$G(^IBE(350.6,DIV(0),1)),DIV=X S $P(^(1),U,3)=DIV,DIH=350.6,DIG=1.03 D ^DICR
    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:  JUN 10, 2004
  • 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 S DIH=$G(^IBE(350.6,DIV(0),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=350.6,DIG=2.03 D ^DICR
    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="" S DIH=$G(^IBE(350.6,DIV(0),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=350.6,DIG=2.03 D ^DICR
    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:  JUN 10, 2004
  • 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 S DIH=$G(^IBE(350.6,DIV(0),3)),DIV=X S $P(^(3),U,3)=DIV,DIH=350.6,DIG=3.03 D ^DICR
    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="" S DIH=$G(^IBE(350.6,DIV(0),3)),DIV=X S $P(^(3),U,3)=DIV,DIH=350.6,DIG=3.03 D ^DICR
    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
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields