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: 67.999991148

Package: Lab Service

ARCHIVED LAB MONTHLY WORKLOADS(#67.99999)-->67.9999901-->67.9999911-->67.99999114-->67.999991148

Sub-Field: 67.999991148


Information

Parent File Name Number Package
67.99999114 TREATING SPECIALTY 67.999991148 Lab Service

Details

Field # Name Loc Type Details
.01 TREATING SPECIALTY CODE 0;1 FREE TEXT

  • INPUT TRANSFORM:  Q:(X="XX "!(X="XY ")) S:$E(X)="X"&($L(X)=2) X=X_" " S X=$S($L(X)=1:0_0_X,$L(X)=2:0_X,1:X) K:$L(X)>3!($L(X)<2)!('$D(^DIC(42.4,+X,0))#2) X
  • LAST EDITED:  NOV 03, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length. Or 'XX' for AMBULATORY CARE Treating Specialty.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  67.999991148^B
    1)= S ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
.03 TREATING SPECIALTY NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 03, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
1 CNT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 27, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits
Info |  Details