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

Package: Pharmacy Data Management

PHARMACY PATIENT(#55)-->55.06-->55.09

Sub-Field: 55.09


Information

Parent File Name Number Package
55.06 ACTIVITY LOG 55.09 Pharmacy Data Management

Details

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

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 13, 1985
  • DESCRIPTION:  
    This is the date (to the second) that the activity took place.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  55.09^AL35^MUMPS
    1)= I '$D(DIU(0)) D:$D(PSGAL(35))#2 KILL^PSGAL5:PSGAL(35)=X K PSGAL
    2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(35)=X,PSGAL("C")=6000,PSGALFF=.01,PSGALFN=55.09 D ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
1 USER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 13, 1985
  • DESCRIPTION:  
    This is the user who effected the activity.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  55.09^AL36^MUMPS
    1)= I '$D(DIU(0)) D:$D(PSGAL(36))#2 KILL^PSGAL5:PSGAL(36)=X K PSGAL
    2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(36)=X,PSGAL("C")=6000,PSGALFF=1,PSGALFN=55.09 D ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
2 ACTION 0;3 POINTER TO ACTIVITY LOG REASON FILE (#53.3)
************************REQUIRED FIELD************************
ACTIVITY LOG REASON(#53.3)

  • LAST EDITED:  FEB 28, 1986
  • DESCRIPTION:  
    This is the activity that has taken place on the order.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  55.09^AL37^MUMPS
    1)= I '$D(DIU(0)) D:$D(PSGAL(37))#2 KILL^PSGAL5:PSGAL(37)=X K PSGAL
    2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(37)=X,PSGAL("C")=6000,PSGALFF=2,PSGALFN=55.09 D ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
3 FIELD 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X)
  • LAST EDITED:  AUG 25, 1986
  • DESCRIPTION:  
    This is field that was changed due to the activity.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  55.09^AL78^MUMPS
    1)= I '$D(DIU(0)) D:$D(PSGAL(78)) KILL^PSGAL5:PSGAL(78)=X K PSGAL
    2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(78)=X,PSGAL("C")=6000,PSGALFF=3,PSGALFN=55.09 D ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
4 OLD DATA 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>170!($L(X)<1) X
  • LAST EDITED:  AUG 25, 1986
  • DESCRIPTION:  
    This is the previous data that was in the field that was changed.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  55.09^AL79^MUMPS
    1)= I '$D(DIU(0)) D:$D(PSGAL(79)) KILL^PSGAL5:PSGAL(79)=X K PSGAL
    2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(79)=X,PSGAL("C")=6000,PSGALFF=4,PSGALFN=55.09 D ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
Info |  Details |  All