Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 60.021661

Package: Lab Service

LABORATORY TEST(#60)-->60.021661

Sub-Field: 60.021661


Information

Parent File Name Number Package
LABORATORY TEST(#60) CPRS SCREEN 60.021661 Lab Service

Details

Field # Name Loc Type Details
.01 CPRS SCREEN 0;1 POINTER TO LR CPRS PARAMETERS FILE (#69.71) LR CPRS PARAMETERS(#69.71)

  • INPUT TRANSFORM:  S DIC("S")="N LRSS S LRSS=$P(^LAB(60,D0,0),U,4) I $P(^LAB(60,D0,0),U,5)="""",$P(^LAB(69.71,Y,0),U,3),$P(^(0),U,4)=LRSS" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 2015
  • HELP-PROMPT:  Select the subscript that matches the CPRS Dialog
  • DESCRIPTION:  This field contains the LR CPRS PARAMETERS (#69.71) sreen that links this test to a specific CPRS Dialog Test. 102-BRONCHIAL CYTOLOGY. This will prevent user linking test that do not have the same subscript as the CPRS
    AP Dialog parameter.
  • SCREEN:  S DIC("S")="N LRSS S LRSS=$P(^LAB(60,D0,0),U,4) I $P(^LAB(60,D0,0),U,5)="""",$P(^LAB(69.71,Y,0),U,3),$P(^(0),U,4)=LRSS"
  • EXPLANATION:  CPRS AP DIALOG SCREEN
  • CROSS-REFERENCE:  60.021661^B
    1)= S ^LAB(60,DA(1),21661,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(60,DA(1),21661,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  60^AV1^MUMPS
    1)= S ^LAB(60,"AV1",DA(1),$E(X,1,30),DA)=""
    2)= K ^LAB(60,"AV1",DA(1),$E(X,1,30),DA)
Info |  Details