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.03

Package: Pharmacy Data Management

PHARMACY PATIENT(#55)-->55.03

Sub-Field: 55.03


Information

Parent File Name Number Package
PHARMACY PATIENT(#55) PRESCRIPTION PROFILE 55.03 Pharmacy Data Management

Details

Field # Name Loc Type Details
.01 PRESCRIPTION PROFILE 0;1 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  MAY 19, 1993
  • DESCRIPTION:  
    This field is used to indicate prescription history.
  • TECHNICAL DESCR:  
    pointer.
  • GROUP:  PSO
  • CROSS-REFERENCE:  55.03^A^MUMPS
    1)= D SREF^PSOHELP1
    2)= D KREF^PSOHELP1
    3)= DO NOT DELETE!
    This cross reference is used to index prescriptions by expiration or cancel date.  Expiration or Cancel date is the date all activity stops for this prescription.  In the form of:
    ^PS(55,DA(1),"P","A",$P(^PSRX(X,2),"^",6),X)
  • CROSS-REFERENCE:  55.03^CP^MUMPS
    1)= I $P(^PSRX(X,0),"^",15)'=12,$D(^PSRX(X,9999999)) S:$P(^PSRX(X,9999999),"^",2)="Y" ^PS(55,DA(1),"P","CP",X)=""
    2)= K ^PS(55,DA(1),"P","CP",X)
1 DRUG COMPUTED

  • MUMPS CODE:  X ^DD(55.03,1,9.2) S X=$S('$D(^PSDRUG(+$P(Y(55.03,1,101),U,6),0)):"",1:$P(^(0),U,1)) S D0=Y(55.03,1,2)
    9.2 = S Y(55.03,1,2)=$S($D(D0):D0,1:""),Y(55.03,1,1)=$S($D(^PS(55,D0,"P",D1,0)):^(0),1:""),D0=$P(Y(55.03,1,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1 S Y(55.03,1,101)=$S($D(^PSRX(D0,0)):^(0),1:"")
  • ALGORITHM:  .01:DRUG
  • DESCRIPTION:  
    This field is used to indicate the medication for the prescription.
  • TECHNICAL DESCR:  
    computed.
  • GROUP:  PSO
2 STATUS COMPUTED

  • MUMPS CODE:  X ^DD(55.03,2,9.3) S D0=Y(55.03,2,2)
    9.2 = S Y(55.03,2,2)=$S($D(D0):D0,1:""),Y(55.03,2,1)=$S($D(^PS(55,D0,"P",D1,0)):^(0),1:""),D0=$P(Y(55.03,2,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1
    9.3 = X ^DD(55.03,2,9.2) S X="UNKNOWN" I D0>0 S J=+D0,RX0=^PSRX(J,0),RX2=$S($D(^(2)):^(2),1:"") D STAT^PSOEXDT S X=ST
  • ALGORITHM:  .01:STATUS
  • DESCRIPTION:  
    This field is used to indicate the status of the prescription.
  • TECHNICAL DESCR:  
    computed.
  • GROUP:  PSO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 ACTIVE BOOLEAN COMPUTED

  • MUMPS CODE:  X ^DD(55.03,3,9.2) S X=X["NON-VERIFIED",Y=X,X=Y(55.03,3,3),X=X!Y,Y(55.03,3,4)=X S X=Y(55.03,3,1)["SUSPEND",Y=X,X=Y(55.03,3,4),X=X!Y
    9.2 = X $P(^DD(55.03,2,0),U,5,99) S Y(55.03,3,1)=X S X=Y(55.03,3,1)="ACTIVE",Y(55.03,3,2)=X S X=Y(55.03,3,1)="HOLD",Y=X,X=Y(55.03,3,2),X=X!Y,Y(55.03,3,3)=X S X=Y(55.03,3,1)
  • ALGORITHM:  STATUS="ACTIVE"!(STATUS="HOLD")!(STATUS["NON-VERIFIED")!(STATUS["SUSPEND")
  • LAST EDITED:  APR 28, 1984
  • DESCRIPTION:  
    The field is boolean in nature, that is, it's value is 1 if the prescription is active, suspended, or on hold.
  • GROUP:  PSO
Info |  Details |  All