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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^VA(389.9

Package: Registration

Global: ^VA(389.9


Information

FileMan FileNo FileMan Filename Package
389.9 STATION NUMBER (TIME SENSITIVE) Registration

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Registration 6 ^VA(389.9    DESCRIPTION (VERSIONED)    DG53134P    VASITE    VASITE0    VASITE1    
Scheduling 1 SCDXPOV1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Registration 3 DG53134P    VASITE0    VASITE1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 INSTITUTION(#4)[.07]    
Registration 1 MEDICAL CENTER DIVISION(#40.8)[.03]    

Fields, Total: 8

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

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 07, 1991
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is the reference number of the entry in the file. It is assigned by the enter/edit routine.
  • CROSS-REFERENCE:  389.9^B
    1)= S ^VA(389.9,"B",$E(X,1,30),DA)=""
    2)= K ^VA(389.9,"B",$E(X,1,30),DA)
.02 EFFECTIVE DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 07, 1991
  • DESCRIPTION:  This is the effective date of the station number for this division. If you are creating a new division with a new station number then the entry for this division should be sufficient. If your medical center is changing
    station numbers then an entry for this effective date is required for all medical center divisions.
  • CROSS-REFERENCE:  389.9^E
    1)= S ^VA(389.9,"E",$E(X,1,30),DA)=""
    2)= K ^VA(389.9,"E",$E(X,1,30),DA)
  • CROSS-REFERENCE:  389.9^AIVDT0^MUMPS
    1)= I $P(^VA(389.9,DA,0),U,3) S ^VA(389.9,"AIVDT",$P(^(0),U,3),-X,DA)=""
    2)= I $P(^VA(389.9,DA,0),U,3) K ^VA(389.9,"AIVDT",$P(^(0),U,3),-X,DA)
  • CROSS-REFERENCE:  389.9^AIVDT10^MUMPS
    1)= I $P(^VA(389.9,DA,0),U,5) S ^VA(389.9,"AIVDT1",$E($P(^(0),U,5),1,30),-X,DA)=""
    2)= I $P(^VA(389.9,DA,0),U,5) K ^VA(389.9,"AIVDT1",$E($P(^(0),U,5),1,30),-X,DA)
.03 MEDICAL CENTER DIVISION 0;3 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  JUL 16, 1992
  • DESCRIPTION:  This is the medical center division that you want to create a station number entry for. You must create one entry for each medical center division. If you are changing station numbers then one entry for each division is
    required for the new effective date.
  • CROSS-REFERENCE:  389.9^C
    1)= S ^VA(389.9,"C",$E(X,1,30),DA)=""
    2)= K ^VA(389.9,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  389.9^AIVDT^MUMPS
    1)= I $P(^VA(389.9,DA,0),U,2) S ^VA(389.9,"AIVDT",$E(X,1,30),-$P(^(0),U,2),DA)=""
    2)= I $P(^VA(389.9,DA,0),U,2) K ^VA(389.9,"AIVDT",$E(X,1,30),-$P(^(0),U,2),DA)
.04 STATION NUMBER 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X
  • LAST EDITED:  FEB 10, 1992
  • HELP-PROMPT:  This is the full station number and suffix. Answer must be 3-7 characters in length.
  • DESCRIPTION:  
    This is the 3 digit station number, if this divison has a suffix then this is the station number and the suffix.
  • CROSS-REFERENCE:  389.9^D
    1)= S ^VA(389.9,"D",$E(X,1,30),DA)=""
    2)= K ^VA(389.9,"D",$E(X,1,30),DA)
.05 IS PRIMARY DIVISION 0;5 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) D YN^VASITE I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1"1") X
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  NOV 08, 1991
  • HELP-PROMPT:  Answer 'Yes' if this is the primary station number for this date. Only 1 entry may be a primary station number for a date.
  • DESCRIPTION:  Each station has one primary divison. This normally is the divison where the station number is 3 numberic characters with no suffix. If this is the primary division then this field should be set to 'YES'.
    Only one division may be the primary division at a time.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  389.9^AIVDT1^MUMPS
    1)= I $P(^VA(389.9,DA,0),"^",2) S ^VA(389.9,"AIVDT1",X,-$P(^(0),"^",2),DA)=""
    2)= I $P(^VA(389.9,DA,0),"^",2) K ^VA(389.9,"AIVDT1",X,-$P(^(0),"^",2),DA)
.06 INACTIVE 0;6 SET
  • '1' FOR YES - INACTIVE;
  • '0' FOR NO - ACTIVE;

  • LAST EDITED:  NOV 07, 1991
  • DESCRIPTION:  This field is used to inactivate a station number. A new entry for a station number for the date it became inactive is required, and this field should be made set to 'YES' for the entry that inactivates the station
    number.
.07 OTHER INSTITUTION 0;7 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^VA(389.9,DA,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 08, 1991
  • DESCRIPTION:  If this entry in the Station Number file is for a station that is not a Medical Center Division then this is the institution pointer to this entry.
    This field isn't currently used but could be used for possibly Record Tracking, Outpatient Pharmacy CMOP's, or Reference Lab work and others if only I knew what else to do with it.
  • SCREEN:  S DIC("S")="I '$P(^VA(389.9,DA,0),U,3)"
  • EXPLANATION:  Other institution can only be used if this is not a Medical Center Division!
17000 INTEGRATION NAME INTEG;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  JAN 29, 1998
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
  • DESCRIPTION:  
    This will be used for the new name for sites that have integrated.

Found Entries, Total: 1

REFERENCE NUMBER: 50    

External References

Name Field # of Occurrence
^%DT .02+1
^DIC .07+1
Y^DIQ ID.03+1
YN^VASITE .05+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(40.8 ID.03+1
^DG(40.8 - [#40.8] ID.03+1
^VA(389.9 - [#389.9] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K)
.03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .05(XREF 1S), .05(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1, ID.04+1, .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S)
.05(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*
%I ID.03+1*!
>> C ID.03+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K)
.03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .05(XREF 1S), .05(XREF 1K)
DIC ID.03+1, .07+1!*
DIC("S" .07+1*, .07SCR+1*
>> DIE .07+1
U ID.02+1, ID.03+1, ID.04+1, .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 2S), .03(XREF 2K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
.03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04+1!, .04(XREF 1S), .04(XREF 1K), .05+1!, .05(XREF 1S), .05(XREF 1K)
, .07+1*!, 17000+1!
>> Y ID.03+1*, .02+1, .05OT+1*, .07+1
>> Y(0 .05OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All