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: PSXEDIT

Package: CMOP

Routine: PSXEDIT


Information

PSXEDIT ;BIR/HTW-CMOP Edit Routine for Outpatient Pharmacy ; [ 03/30/98 12:03 PM ]

Source Information

Source file <PSXEDIT.m>

Entry Points

Name Comments DBIA/ICR reference
EDITCK ; Called from PROCESS+9^PSORXED to prevent editing CMOP Rx's
DRUG
GETCMOP ; Any CMOP nodes?
PSXDIE ;
REFILL
UNLOCK
TRADE ; Did tradename change?
SUS ; If Rx is suspended and checks out to be CMOP suspend as CMOP
UNSUS ; If Rx is suspended and is not CMOP, ensure is not suspended as CMOP
PSXDIEX ;
ACT ; If no act node, make one .... determine last entry
CHECK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Now Editing Rx # ",$P(PSORXED("RX0"),"^")
  • Line Location: PSXDIE+3
Function Call: WRITE
  • Prompt: !,"ISSUE DATE: ",PSXIDT," (No editing)",!,"FILL DATE: ",PSXFDT," (No editing)"
  • Line Location: PSXDIE+12
Function Call: WRITE
  • Prompt: !,"DRUG: ",$P(^PSDRUG($P(^PSRX(PSORXED("IRXN"),0),"^",6),0),"^")," (No editing)"
  • Line Location: PSXDIE+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call