Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSORESUS

Package: Outpatient Pharmacy

Routine: PSORESUS


Information

PSORESUS ;BIR/EJW - Queue/Requeue an Rx to CMOP ;Jan 04, 2022@07:41:19

Source Information

Source file <PSORESUS.m>

Entry Points

Name Comments DBIA/ICR reference
TOP ;
END
CM ; ENTRY POINT FOR SPEED QUEUE/REQUEUE TO CMOP
OS
KILL ; CLEAN UP VARIABLES
SENDRX ; SET RX INTO SUSPENSE FILE FOR CMOP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Rx # "_RX_" not found"
  • Line Location: TOP+6
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(PSOIEN,0),"^")," cannot be suspended for CMOP. Make sure the last fill has a Mail routing, the drug is marked for CMOP, the last fill has not been released, etc...",!!
  • Line Location: TOP+8
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(PSOIEN,0),"^")," is not active or suspended"
  • Line Location: OS+5
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(PSOIEN,0),"^")," is not active or suspended"
  • Line Location: OS+9
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(PSOIEN,0),"^")," is not active or suspended. Prescription must be unparked to be filled."
  • Line Location: OS+10
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(PSOIEN,0),"^")_" cannot be suspended for CMOP. Make sure the last fill has a Mail routing, the drug is marked for CMOP, the last fill has not been released, etc...",!
  • Line Location: OS+16
Function Call: WRITE
  • Prompt: !,"Cannot suspend for CMOP. Patient's mail status not a CMOP mail status"
  • Line Location: SENDRX+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call