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

Package: Lab Service

NON WKLD PROCEDURES(#64.05)-->64.06-->64.61

Sub-Field: 64.61


Information

Parent File Name Number Package
64.06 DATE 64.61 Lab Service

Details

Field # Name Loc Type Details
.01 DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EP" D ^%DT S X=Y K:Y<1 X S:$D(X) X=$E(X,1,5)_"00"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  64.61^B
    1)= S ^LAB(64.05,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(64.05,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1 Hrs. 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 500, 2 Decimal Digits
Info |  Details