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

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.
Info |  Desc |  Pointer To FileMan Files |  Fields