Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PS(52.5

Package: Outpatient Pharmacy

Global: ^PS(52.5


Information

FileMan FileNo FileMan Filename Package
52.5 RX SUSPENSE Outpatient Pharmacy

Description

Accessed By FileMan Db Calls, Total: 59

Package Total Routines
Outpatient Pharmacy 49 PSOARCDE    PSOARCS2    PSOAUTOC    PSOBAIR2    PSOBPSU2    PSOBPSU4    PSOBPSUT    PSOCAN2
PSOCAN3    PSOCMOP    PSOCMOPB    PSOCMOPC    PSOCPTRH    PSODGDG2    PSOFIXVS    PSOHLDA
PSOHLDC    PSOHLEXP    PSOHLNE2    PSOLBL    PSOLBL4    PSOLLLI    PSOMAUEX    PSOORED1
PSOORUT1    PSOORUTL    PSOPRKA    PSOREJP2    PSORENW0    PSORESK    PSORXDL    PSORXED1
PSORXL1    PSOSUCH1    PSOSUCHG    PSOSUCLE    PSOSUDEL    PSOSUDP2    PSOSUDPR    PSOSULB1
PSOSULBL    PSOSUPAT    PSOSUPOE    PSOSUPRX    PSOSUSRP    PSOSUTL    PSOUTL    PSOUTLA2
PSOVERC    
CMOP 10 PSXCH    PSXEDIT    PSXEDUTL    PSXNEW    PSXRPPL    PSXRPPL1    PSXRPPL2    PSXRXU
PSXSRP    PSXSRST    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Outpatient Pharmacy 2 OUTPATIENT SITE(#59)[.06]    PRESCRIPTION(#52)[.01]    
Kernel 1 NEW PERSON(#200)[5]    
Registration 1 PATIENT(#2)[.03]    

Fields, Total: 16

Field # Name Loc Type Details
.01 RX # 0;1 POINTER TO PRESCRIPTION FILE (#52)
************************REQUIRED FIELD************************
PRESCRIPTION(#52)

  • LAST EDITED:  APR 28, 1995
  • DESCRIPTION:  
    This field is the pointer to the Prescription File (#52).
  • CROSS-REFERENCE:  52.5^B
    1)= S ^PS(52.5,"B",$E(X,1,30),DA)=""
    2)= K ^PS(52.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  52.5^AJ^MUMPS
    1)= D SET^PSOSUTL
    2)= D KILL^PSOSUTL
    This cross-reference is used to set the DEA Special Handling field. It sets piece 10 of ^PS(52.5,DA,0) to the DEA Special Handling field of the drug.
.02 SUSPENSE DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 23, 2002
  • DESCRIPTION:  
    This field is used to indicate the date the prescription will be printed from the suspense file.
  • CROSS-REFERENCE:  52.5^C
    1)= S ^PS(52.5,"C",$E(X,1,30),DA)=""
    2)= K ^PS(52.5,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  52.5^AD^MUMPS
    1)= K:+$G(^("P"))=1 ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),X,DA) S:+$G(^PS(52.5,DA,"P"))'=1&($P($G(^PS(52.5,DA,0)),"^",3))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),X,DA)=""
    2)= K ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),X,DA)
    If the suspense date is changed, the "AC" cross-reference is updated. It set the global ^PS(52.5,"AC",Patient Pointer,Suspense Date,DA)="".
  • RECORD INDEXES:  CMP (#248)
.03 PATIENT 0;3 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  DEC 23, 2002
  • DESCRIPTION:  
    Refers to whom the medication is prescribed for.
  • TECHNICAL DESCR:  
    This field contains the name of the patient for whom the prescription is written.
  • CROSS-REFERENCE:  52.5^D^MUMPS
    1)= S:$D(^DPT(X,0)) ^PS(52.5,"D",$P(^DPT(X,0),"^"),DA)=""
    2)= K:$D(^DPT(X,0)) ^PS(52.5,"D",$P(^DPT(X,0),"^"),DA)
    This cross reference lists the patients in name order. It sets the global ^PS(52.5,"D",Patient name,DA)="".
  • CROSS-REFERENCE:  52.5^AE^MUMPS
    1)= K:+$G(^("P"))=1 ^PS(52.5,"AC",X,+$P($G(^PS(52.5,DA,0)),"^",2),DA) S:+$G(^PS(52.5,DA,"P"))'=1&($P($G(^PS(52.5,DA,0)),"^",2))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",X,+$P($G(^PS(52.5,DA,0)),"^",2),DA)=""
    2)= K ^PS(52.5,"AC",X,+$P(^PS(52.5,DA,0),"^",2),DA)
    If the patient changes, the "AC" cross-reference will be changed. It sets the global ^PS(52.5,"AC",Patient,Suspense Date,DA)="".
  • CROSS-REFERENCE:  52.5^AF
    1)= S ^PS(52.5,"AF",$E(X,1,30),DA)=""
    2)= K ^PS(52.5,"AF",$E(X,1,30),DA)
    This is a cross-reference on patient internal entry number.
  • RECORD INDEXES:  CMP (#248)
.04 TYPE 0;4 SET
************************REQUIRED FIELD************************
  • 'M' FOR MAIL;
  • 'W' FOR WINDOW;
  • 'I' FOR INPATIENT;

  • DESCRIPTION:  
    `TYPE' refers to how the prescription is to be destributed. Respond by indicating M for Mail, W for Window or I for Inpatient.
  • TECHNICAL DESCR:  
    Indicate MAIL if prescription is to be mailed to patient, WINDOW if prescription is to be picked up at the site, INPATIENT for patients at the hospital.
.05 PARTIAL 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9, 0 Decimal Digits
  • DESCRIPTION:  
    Respond with Y for YES or N for NO depending upon whether or not this is a partial or full prescription.
.06 DIVISION 0;6 POINTER TO OUTPATIENT SITE FILE (#59) OUTPATIENT SITE(#59)

  • LAST EDITED:  DEC 23, 2002
  • HELP-PROMPT:  Enter division where medication is suspened.
  • DESCRIPTION:  
    This field is used to enter the division where the prescription was filled.
  • TECHNICAL DESCR:  
    pointer
  • CROSS-REFERENCE:  52.5^AO^MUMPS
    1)= D SDIVAS^PSOSUTL1
    2)= D KDIVAS^PSOSUTL1
    This cross reference is used to maintain resetting and reprinting functionality. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions it sets
    the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".
  • CROSS-REFERENCE:  52.5^ADV^MUMPS
    1)= D SDIV^PSOSUTL
    2)= Q
    This cross reference is used to keep File 52 Division updated if the Division for an Rx is changed in the Suspense File. For a partial Rx, it sets piece 9 of ^PSRX(DA(1),"P",DA,0)=Division. For an original Rx, it sets
    piece 9 of ^PSRX(DA,2)=Division. For a refill, it sets piece 9 of ^PSRX(DA(1),1,DA,0)=Division.
  • RECORD INDEXES:  CMP (#248)
1 DRUG COMPUTED

  • MUMPS CODE:  S Y(1,2)=$S($D(D0):D0,1:""),Y(1,1)=$S($D(^PS(52.5,D0,0)):^(0),1:""),D0=$P(Y(1,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1 S Y(1,101)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$S('$D(^PSDRUG(+$P(Y(1,101),U,6),0)):"",1:$P(^(0),U,1)) S D0=Y(1,
    2)
  • ALGORITHM:  RX #:DRUG
  • LAST EDITED:  JAN 18, 1983
  • DESCRIPTION:  
    `DRUG' refers to the name of the actual drug/supplies specified by the prescription.
  • TECHNICAL DESCR:  
    Respond with the name of the drug/supplies stated in the prescription.
2 PRINTED P;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 10, 1996
  • HELP-PROMPT:  Data should not be entered directly with file manager. Please use option to enter data into this field.
  • DESCRIPTION:  
    This field is used to indicate if the prescription was printed from suspense. '1' is used to indicate 'Yes' the prescription has printed, '0' for 'No' the prescription has not printed.
  • TECHNICAL DESCR:  
    set of codes.
    UNEDITABLE
  • CROSS-REFERENCE:  52.5^AC^MUMPS
    1)= K:X=1 ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^PS(52.5,DA,0),"^",2),DA) S:X'=1&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^PS(52.5,DA,0),"^",2),DA)=""
    2)= K ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^(0),"^",2),DA)
    This cross reference is used to indicate which entries in the file have not yet been printed. It sets the global ^PS(52.5,"AC",Patient,Suspense Date,DA)="".
  • CROSS-REFERENCE:  52.5^ADL^MUMPS
    1)= D SADL^PSOSUTL1
    2)= D KADL^PSOSUTL1
    This cross-reference is used for deletion of printed Rx's. It sets the global ^PS(52.5,"ADL",Print Date,DA)="".
3 CMOP INDICATOR 0;7 SET
  • 'Q' FOR QUEUED FOR TRANSMISSION;
  • 'X' FOR TRANSMISSION COMPLETED;
  • 'L' FOR LOADING FOR TRANSMISSION;
  • 'P' FOR PRINTED LOCALLY;

  • LAST EDITED:  DEC 23, 2002
  • DESCRIPTION:  
    This field indicates the current status of a Consolidated Mail Outpatient Pharmacy prescription.
  • TECHNICAL DESCR:  
    Set of codes.
  • CROSS-REFERENCE:  52.5^AQ^MUMPS
    1)= S:X="Q" ^PS(52.5,"AQ",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="Q" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)
    2)= K ^PS(52.5,"AQ",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)
    This cross reference indicates the prescription is 'Queued' for transmission to a Consolidated Mail Outpatient Pharmacy system.
  • CROSS-REFERENCE:  52.5^AX^MUMPS
    1)= S:X="X" ^PS(52.5,"AX",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="X" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)
    2)= K ^PS(52.5,"AX",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)
    This cross reference indicates the data has been 'Transmitted' to a Consolidated Mail Outpatient system.
  • CROSS-REFERENCE:  52.5^AL^MUMPS
    1)= S:X="L" ^PS(52.5,"AL",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="L" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)
    2)= K ^PS(52.5,"AL",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)
    This cross reference indicates the data is building for transmission to a Consolidated Mail Outpatient system.
  • CROSS-REFERENCE:  52.5^AF^MUMPS
    1)= S:X="P" ^PS(52.5,"AP",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="P" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)
    2)= K ^PS(52.5,"AP",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)
    This cross reference indicates a label was printed locally for this entry.
  • CROSS-REFERENCE:  52.5^AG^MUMPS
    1)= S:$G(X)="P"!($G(X)="Q") ^PS(52.5,"AG",+$P(^PS(52.5,DA,0),"^",3),DA)="" K:$G(X)="Q"!($G(X)="P") ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)
    2)= K ^PS(52.5,"AG",$P(^PS(52.5,DA,0),"^",3),DA)
    This cross reference is by DFN first and is set if the rx is flagged as 'Queued' or 'Printed'. It is used to quickly locate records that fit either category.
  • RECORD INDEXES:  CMP (#248)
4 PRINT DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 11, 1995
  • HELP-PROMPT:  Data should not be entered with File Manager. This data is entered by the Outpatient package when the label is printed from suspense.
  • DESCRIPTION:  
    This indicates the date/time that this entry was queued to print. It is entered by the Outpatient package at the time of label print.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52.5^AS^MUMPS
    1)= D SPDTAS^PSOSUTL1
    2)= D KPDTAS^PSOSUTL1
    This cross-reference is used for batching suspense prints, so different batches within a day can be reset. This cross-reference also sets the 'APR' cross-reference. The 'APR' cross-reference will list CMOP Rx's by batch
    for reseting. Only the 'AS' or the 'APR' will exist for an Rx. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets the global
    ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".
5 PRINTED BY 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 11, 1995
  • HELP-PROMPT:  Data should not be entered through FileMan. The Outpatient package will make the entry when the label for this entry prints from suspense.
  • DESCRIPTION:  
    This indicates the user who queued this entry to print from suspense.
    UNEDITABLE
  • CROSS-REFERENCE:  52.5^AH^MUMPS
    1)= D SPBYAS^PSOSUTL1
    2)= D KPBYAS^PSOSUTL1
    This cross reference is used to set printed Rx's from suspense in a batch,for resetting and reprinting capabilities. It is entered by the Outpatient package at the time of label print from suspense. The 'APR'
    cross-reference is also set to list the CMOP Rx's that were printed locally. The 'APR' cross-reference is used for resetting CMOP Rx's by batch. Only the 'AS" or the 'APR' will exist for an Rx. For non-CMOP prescriptions,
    it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".
6 DEA, SPECIAL HDLG 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  APR 26, 1995
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This is taken from the DRUG File(#50) and entered by the Outpatient Package when the entry goes into the suspense file.
7 SEQUENCE 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 11, 1995
  • HELP-PROMPT:  This will be entered by the Outpatient Package, and is used for the Reset and Reprint functionality.
  • DESCRIPTION:  
    This field is used by Outpatient for printing labels in the proper sequence when labels are Reset for Reprinting. This field should not be edited through FileMan.
    UNEDITABLE
  • CROSS-REFERENCE:  52.5^AW^MUMPS
    1)= D SSEQAS^PSOSUTL1
    2)= D KSEQAS^PSOSUTL1
    This cross reference is used to batch printed Rx's from suspense for resetting and reprinting purposes. It is set by the Outpatient package at the time of label print. The 'APR' cross-reference is also set to list the CMOP
    Rx's that were printed locally. The 'APR' cross-reference is used to reset CMOP Rx's. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it
    sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".
8 REPRINT 0;12 SET
  • '1' FOR YES;

  • LAST EDITED:  OCT 20, 1995
  • HELP-PROMPT:  This indicates if the Rx is a suspended Reprint.
  • DESCRIPTION:  
    If set to Yes, it means the entry is a suspended reprint, either through the Edit option or the Reprint option.
    UNEDITABLE
9 FILL 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>11)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 17, 1997
  • HELP-PROMPT:  Type a Number between 0 and 11, 0 Decimal Digits
  • DESCRIPTION:  
    This field indicates the fill number for the Rx if the Rx is not a partial.
10 SUSPENSE HOLD DATE 0;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 11, 2008
  • HELP-PROMPT:  Enter the date/time when 3/4 of days supply will elapse.
  • DESCRIPTION:  This field is populated when the Print from Suspense function is executed and for ePharmacy prescriptions only. It will contain the date when 3/4 of the Days Supply will have elapsed. ePharmacy prescriptions will be left
    on suspense until this date. Otherwise, the prescription will print on or after the date stored in this field.
    Non-ePharmacy prescriptions are not affected by this functionality.
  • TECHNICAL DESCR:  This field is used for ePharmacy prescriptions only. If 3/4 of the days supply has not yet elapsed this field will be populated with the date that the prescription will be allowed to be printed from suspense. Note that
    prescriptions may be pulled early from suspense without regard to this field.

ICR, Total: 4

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #786
  • Mental Health
  • Controlled Substances
  • E Claims Management Engine
  • PRINTED (2).
    Access: Direct Global Read & w/Fileman

    RX# (.01).
    Access: Direct Global Read & w/Fileman

    SUSPENSE DATE (.02).
    Access: Direct Global Read & w/Fileman

    PARTIAL (.05).
    Access: Direct Global Read & w/Fileman

    ICR #1222
  • CMOP
  • RX # (.01).
    Access: Direct Global Read & w/Fileman

    SUSPENSE DATE (.02).
    Access: Direct Global R/W & w/Fileman

    PATIENT (.03).
    Access: Direct Global Read & w/Fileman

    TYPE (.04).
    Access: Direct Global Read & w/Fileman

    PARTIAL (.05).
    Access: Direct Global Read & w/Fileman

    DIVISION (.06).
    Access: Direct Global Read & w/Fileman

    CMOP INDICATOR (3).
    Access: Direct Global R/W & w/Fileman

    PRINT DATE (4).
    Access: Direct Global R/W & w/Fileman

    PRINTED BY (5).
    Access: Direct Global Read & w/Fileman

    DEA SPECIAL HDLG (6).
    Access: Direct Global Read & w/Fileman

    SEQUENCE (7).
    Access: Direct Global Read & w/Fileman

    REPRINT (8).
    Access: Direct Global Read & w/Fileman

    FILL (9).
    Access: Direct Global Read & w/Fileman

    PRINTED (2).
    Access: Direct Global R/W & w/Fileman

    This cross reference is used by the CMOP package tolookup prescription entries in file # 52.5. SUSDT is the suspense date of theprescription and DA is the internal entry number of the record.This cross reference is used by the CMOP package tomanage RX SUSPENSE file entries for CMOP data transmissions. This crossreference is both set and killed by the CMOP package. The kills and sets aredetermined by the screening criteria for designating a CMOP prescription. DFNis the internal entry numb of the Patient file #2, SUSDT is the suspensedate/time, and DA is the internal entry number of the record.This cross reference is used by the CMOP package tolookup prescription entries in the Rx Suspense file #52.5. RXIEN is the .01field of the entry, and DA is the internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to LOADING FOR TRANSMISSION. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field is set to PRINTED LOCALLY. SUSDT is the suspensedate/time DFN is he Patient file #2 internal entry number, and DA is theinternal entry number of the record.This cross-reference is used for batching suspenseprints, so different batches within a day can be reset. This cross-referencealso sets the 'APR' cross-reference. The 'APR' cross-reference will list CMOPRx's by batch for reseting. Only the 'AS' or the 'APR' will exist for an Rx.For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",PrintDate,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets theglobal ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to QUEUED FOR TRANSMISSION. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to TRANSMISSION COMPLETED. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.
    ICR #1978
  • CMOP
  • ICR #4703
  • E Claims Management Engine
  • CMOP INDICATOR (3).
    Access: Direct Global Read & w/Fileman

    This cross reference is used by the ECME package tolookup prescription entries in the Rx Suspense file #52.5.
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All