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

Package: Lab Service

Global: ^LAR("Z"


Information

FileMan FileNo FileMan Filename Package
63.9999 ARCHIVED LR DATA Lab Service

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
Lab Service 15 LRAR01    LRAR03    LRAR04    LRAR05    LRARCHD    LRARCHE    LRARCHK    LRARNPX
LRCHIV    LRCHIVD    LRCHIVE    LRCHIVK    LRNPXA    ^LAR("Z"    LRPOS    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[#63.999904(.04)#63.999904(.1)#63.9999041(1)]
Lab Service 1 TOPOGRAPHY FIELD(#61)[#63.999904(.05)]    
VA Fileman 1 FILE(#1)[.02]    

Fields, Total: 5

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
  • LAST EDITED:  JUL 24, 1984
  • HELP-PROMPT:  Enter the application entry number.
  • DESCRIPTION:  
    The internal file number of the "patient" (or other entity)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.9999^B
    1)= S ^LAR("Z","B",$E(X,1,30),DA)=""
    2)= K ^LAR("Z","B",$E(X,1,30),DA)
.02 PARENT FILE 0;2 POINTER TO FILE FILE (#1)
************************REQUIRED FIELD************************
FILE(#1)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(""%"",""B"",""LR""))" D ^DIC:X'?1"?".E K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DDIFN=X
  • LAST EDITED:  JAN 17, 1984
  • DESCRIPTION:  
    The file where the name of this entry may be found.
  • SCREEN:  S DIC("S")="I $D(^(""%"",""B"",""LR""))"
  • EXPLANATION:  Enter the appropriate parent you wish this entry associated with.
  • EXECUTABLE HELP:  W !!,"Allowable Entries: " F IIX=0:0 S IIX=$O(^DIC("AC","LR",IIX)) Q:IIX'>0 W ?20,IIX,?30,$P(^DIC(IIX,0),"^",1),!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.9999^AZZ^MUMPS
    1)= Q
    2)= S DOLP=X,L1=^LAR("Z",DA,0),X=$P(L1,"^",3) X ^DD(63.9999,.03,1,1,2) S ^LAR("Z",DA,0)=$P(L1,"^",1,2)_"^^"_$P(L1,"^",4,99) K DOLP,L1,L Q
.03 NAME 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S PDA=DA,PDIC=DIC,DIC(0)="QEM",DIC=$S($D(DDIFN):DDIFN,$D(^LAR("Z",DA,0)):+$P(^LAR("Z",DA,0),"^",2),1:""),DDIFN=DIC K:DIC<1 X D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDIC I $D(Y) S X=+Y K:Y'>0 X,Y I $D(Y) X ^DD(63.9999,.03,.00
    01)
  • OUTPUT TRANSFORM:  S L1=$S($D(DA):DA,$D(D0):D0,1:"") I L1>0 S L=^LAR("Z",L1,0),Y="" I +$P(L,"^",2)>0 S Y=$P($S($D(@(^DIC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_",0)")):^(0),1:""),"^",1)
  • LAST EDITED:  JAN 13, 1984
  • DESCRIPTION:  
    The internal file number in the parent file for this entry.
  • EXECUTABLE HELP:  S X="?",PDA=DA,PDIC=DIC,DIC=$S($D(DDIFN):DDIFN,$D(^LAR("Z",DA,0)):+$P(^LAR("Z",DA,0),"^",2),1:0),DIC(0)="QEM" D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDI,X
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.9999^CZZ^MUMPS
    1)= S L=^LAR("Z",DA,0),@(^DIC(+$P(L,"^",2),0,"GL")_(+X)_",""LR"")")=DA
    2)= I '$D(DIU(0)) S L=$S($D(DOLP):"^"_DOLP_"^"_X,1:^LAR("Z",DA,0)) K @(^DIC(+$P(L,"^",2),0,"GL")_(+X)_",""LR"")")
  • CROSS-REFERENCE:  63.9999^CZX^MUMPS
    1)= S %=^LAR("Z",DA,0),%=@(^DIC(+$P(%,U,2),0,"GL")_(+X)_",0)"),^LAR("NAME",$P(%,U,1),DA)="",^LAR("SSN",$P(%,U,9),DA)=""
    2)= S %=^LAR("Z",DA,0),%=@(^DIC(+$P(%,U,2),0,"GL")_(+X)_",0)") K ^LAR("NAME",$P(%,U,1),DA),^LAR("SSN",$P(%,U,9),DA)
4 CHEM, HEM, TOX, RIA, SER, etc. CH;0 DATE Multiple #63.999904 63.999904

  • DESCRIPTION:  
    This is data for Chemistry, Hematology, Toxicology, RIA, Serology, to be archived.
5 MICROBIOLOGY MI;0 DATE Multiple #63.999905 63.999905

  • DESCRIPTION:  
    This field contains microbiology data which has been archived from the active on line data base.

External References

Name Field # of Occurrence
^DIC .02+1, .03+1, .03(HELP )

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.9999 .02(XREF 1K), .03+1
^DIC - [#1] .02(HELP ), .03OT+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
^DIC("AC" .02(HELP )
^LAR("NAME" .03(XREF 2S), .03(XREF 2K)
^LAR("SSN" .03(XREF 2S), .03(XREF 2K)
^LAR("Z" - [#63.9999] .01(XREF 1S), .01(XREF 1K), .02(XREF 1K), .03+1, .03OT+1, .03(HELP ), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 .03OT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % .03(XREF 2S), .03(XREF 2K)
>> D0 .03OT+1
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1K), .03+1*, .03OT+1, .03(HELP ), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
>> DDIFN .02+1*, .03+1*, .03(HELP )
DIC .02+1!*, .03+1*, .03(HELP )
DIC("S" .02+1*, .02SCR+1*
DIC(0 .03+1*, .03(HELP )
>> DIE .02+1
>> DINUM .01+1*
>> DIU(0 .03(XREF 1K)
DOLP .02(XREF 1K), .03(XREF 1K)
>> IIX .02(HELP )
L .02(XREF 1K), .03OT+1*, .03(XREF 1S), .03(XREF 1K)
L1 .02(XREF 1K), .03OT+1*
PDA .03+1*!, .03(HELP )
PDI .03(HELP )
PDIC .03+1*!, .03(HELP )
U .03(XREF 2S), .03(XREF 2K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(XREF 1K), .03+1!*, .03(HELP ), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S)
.03(XREF 2K)
Y .02+1, .03+1!, .03OT+1*
Y(0 .03OT+1*
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All