Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 130

Package Total Routines
Outpatient Pharmacy 101 PSO126EN    PSO126IX    PSO525AP    PSOARCDE    PSOARCS2    PSOARX    PSOATRF    PSOATRFC
PSOATRFV    PSOAUTOC    PSOBAIR2    PSOBPSU2    PSOBPSU4    PSOBPSUT    PSOBSET    PSOBUILD
PSOCAN2    PSOCAN3    PSOCAN4    PSOCMOP    PSOCMOPA    PSOCMOPB    PSOCMOPC    PSOCPTRH
PSOCSRL    PSODGDG2    PSODISP    PSODISPS    PSOEXBCH    PSOEXDT    PSOFIXDT    PSOFIXSU
PSOFIXVS    PSOFUNC    PSOHCSUM    PSOHLDA    PSOHLDC    PSOHLDS    PSOHLEXP    PSOHLNE2
PSOHLSG    PSOHLSG2    PSOHPOST    PSOLBL    PSOLBL4    PSOLBLN2    PSOLBLS    PSOLLL5
PSOLLLI    PSOMAUEX    PSOORDER    PSOORED1    PSOORED2    PSOORNE2    PSOORUT1    PSOORUTL
PSOPOS13    PSOPOST    PSOPOST3    PSOPRKA    PSOREF0    PSOREJP2    PSORENW    PSORENW0
PSORESK    PSORREF0    PSORRPA1    PSORXDL    PSORXED1    PSORXL1    PSORXPA1    PSORXRP1
PSORXRP2    PSORXRPT    PSOSUBCH    PSOSUCAT    PSOSUCH1    PSOSUCHG    PSOSUCLE    PSOSUDCN
PSOSUDEL    PSOSUDP1    PSOSUDP2    PSOSUDPR    PSOSULB1    PSOSULBL    PSOSULOG    PSOSUPAT
PSOSUPOE    PSOSUPRX    PSOSURST    PSOSUSRP    PSOSUTL    PSOSUTL1    PSOTRLBL    PSOUTIL
PSOUTL    PSOUTLA    PSOVERC    ^PS(52.5    SORT GROUP    
CMOP 22 PSX41PST    PSXBLD    PSXBPSUT    PSXCH    PSXCPOST    PSXEDIT    PSXEDUTL    PSXMISC1
PSXNEW    PSXOPUTL    PSXRCVRY    PSXRHLP    PSXRPPL    PSXRPPL1    PSXRPPL2    PSXRSTAT
PSXRSUS    PSXRTRAN    PSXRXU    PSXSRP    PSXSRST    PSXSUDCN    
Controlled Substances 2 PSDOPT0    PSDOPT1    
My HealtheVet 1 MHVPRNA    

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.

    External References

    Name Field # of Occurrence
    ^%DT .02+1, 4+1, 10+1
    $$CMPRXTYP^PSOCMOP IXCMPP2CC+1
    KILL^PSOSUTL .01(XREF 2K)
    SDIV^PSOSUTL .06(XREF 2S)
    SET^PSOSUTL .01(XREF 2S)
    KADL^PSOSUTL1 2(XREF 2K)
    KDIVAS^PSOSUTL1 .06(XREF 1K)
    KPBYAS^PSOSUTL1 5(XREF 1K)
    KPDTAS^PSOSUTL1 4(XREF 1K)
    KSEQAS^PSOSUTL1 7(XREF 1K)
    SADL^PSOSUTL1 2(XREF 2S)
    SDIVAS^PSOSUTL1 .06(XREF 1S)
    SPBYAS^PSOSUTL1 5(XREF 1S)
    SPDTAS^PSOSUTL1 4(XREF 1S)
    SSEQAS^PSOSUTL1 7(XREF 1S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] ID.03+1, .03(XREF 1S), .03(XREF 1K)
    ^PS(52.5 - [#52.5] ID.03+1, IXCMPSL+1*, IXCMPKL+1!, IXCMPKEIC+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
    .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), 1+1, 2(XREF 1S), 2(XREF 1K), 3(XREF 1S)
    3(XREF 1K), 3(XREF 2S), 3(XREF 2K), 3(XREF 3S), 3(XREF 3K), 3(XREF 4S), 3(XREF 4K), 3(XREF 6S), 3(XREF 6K)
    ^PSDRUG - [#50] 1+1
    ^PSRX - [#52] 1+1

    Naked Globals

    Name Field # of Occurrence
    ^("0" ID.02+1, ID.03+1
    ^("P" .02(XREF 2S), .03(XREF 2S)
    ^(0 ID.03+1, 1+1, 2(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .02+1*, 4+1*, 10+1*
    >> D0 1+1*
    >> DA IXCMPSL+1, IXCMPKL+1, IXCMPP2CC+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S)
    .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 3(XREF 2S)
    3(XREF 2K), 3(XREF 3S), 3(XREF 3K), 3(XREF 4S), 3(XREF 4K), 3(XREF 6S), 3(XREF 6K)
    U ID.02+1, ID.03+1, 1+1
    X IXCMPP2CC+1*, .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .05+1!, 1+1*, 2(XREF 1S), 3(XREF 1S), 3(XREF 2S), 3(XREF 3S)
    3(XREF 4S), 3(XREF 6S), 4+1*!, 6+1!, 7+1!, 9+1!, 10+1*!
    X(1 IXCMPSL+1, IXCMPKL+1
    X(2 IXCMPSL+1, IXCMPKL+1
    X(3 IXCMPSL+1, IXCMPKL+1
    X(4 IXCMPSL+1, IXCMPKL+1
    X(5 IXCMPSL+1, IXCMPKL+1
    >> Y ID.03+1, .02+1, 4+1, 10+1
    >> Y(1 1+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All