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 |  Fields |  ICR |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PRC(442.6

Package: IFCAP

Global: ^PRC(442.6


Information

FileMan FileNo FileMan Filename Package
442.6 PAT NUMBER IFCAP

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
IFCAP 10 ITEM SPECIFIC INFORMATION    PRCH7PA1    PRCHE    PRCHEA    PRCHPAT    PRCHUTL    PRCPWPLM    PRCPWPU1
PRCUPPC1    ^PRC(442.6    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
IFCAP 6 PRCH7PA1    PRCHE    PRCHEA    PRCHPAT    PRCHUTL    PRCUPPC1    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Prosthetics 1 PROSTHETICS SITE PARAMETERS(#669.9)[10]    

Fields, Total: 6

Field # Name Loc Type Details
.01 COMMON NUMBERING SERIES 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<6)!'(X?3N1"-"2UN.UN) X I $D(X),$D(^PRC(442.6,"B",X)) K X
  • LAST EDITED:  AUG 19, 1988
  • HELP-PROMPT:  Enter the station number and the common numbering series separated by '-'. (e.g. 531-A6 or 531-A61)
  • DESCRIPTION:  
    This is the station number and the common numbering series.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.6^B
    1)= S ^PRC(442.6,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(442.6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  442.6^C^MUMPS
    1)= S ^PRC(442.6,"C",$P(X,"-",2),DA)=""
    2)= K ^PRC(442.6,"C",$P(X,"-",2),DA)
    This X-REF is used for lookup. Just the COMMON NUMBERING SERIES without the site number is used in this X-REF.
1 LOWER BOUND 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),"-",2),2)'="P" K:$L($P(^(0),U))=7&(X>999) X
  • LAST EDITED:  MAY 05, 1988
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    This is the lower bound of the numbering series.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 UPPER BOUND 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),"-",2),2)'="P" K:$L($P(^(0),U))=7&(X>999) X
  • LAST EDITED:  MAY 05, 1988
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    This is the upper bound of the numbering series.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 NEXT NUMBER 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),"-",2),2)'="P" K:$L($P(^(0),U))=7&(X>999) X
  • LAST EDITED:  MAY 05, 1988
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    This is the first number of the series that will be used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 USING SECTION 0;5 SET
  • '1' FOR PERSONAL PROPERTY;
  • '2' FOR PURCHASING & CONTRACTING;
  • '3' FOR IMPREST FUNDS CLERK;
  • '4' FOR ACCOUNTING TECHNICIAN;
  • '5' FOR ACCOUNTS RECEIVABLE;
  • '6' FOR PC AUTHORIZED BUYER;
  • '7' FOR DO AUTHORIZED BUYER;

  • LAST EDITED:  JUN 25, 1996
  • HELP-PROMPT:  This field limits access to certain blocks of P.O.numbers. Note that if the field is left empty, it can be used ONLY by P&C.
  • DESCRIPTION:  
    This is the using Section.
5 FISCAL YEAR 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUN 26, 1991
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    The fiscal year.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4704
  • Prosthetics
  • COMMON NUMBERING SERIES (.01).
    Access: Pointed to

    ICR #6603
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • COMMON NUMBERING SERIES (.01).
    Access: Read w/Fileman

    LOWER BOUND (1).
    Access: Read w/Fileman

    UPPER BOUND (2).
    Access: Read w/Fileman

    NEXT NUMBER (3).
    Access: Both R/W w/Fileman

    USING SECTION (4).
    Access: Direct Global Read & w/Fileman

    FISCAL YEAR (5).
    Access: Direct Global Read & w/Fileman

    'B' cross reference Used to look up by COMMON NUMBERINGSERIES'C' cross-reference Used to look up by COMMON NUMBERINGSERIES withoutthe Site Number

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRC(442.6 - [#442.6] .01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1, 2+1, 3+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 1+1, 2+1, 3+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D0 1+1, 2+1, 3+1
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K)
    >> DIC IDWRITE+1
    U 1+1, 2+1, 3+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1!, 2+1!, 3+1!, 5+1!
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  ICR |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All