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

Package: Outpatient Pharmacy

Routine: PSOCMOPB


Information

PSOCMOPB ;BIR/HTW-CMOP Release/Edit Utility ; 6/17/97 [ 12/15/97 2:11 PM ]

Source Information

Source file <PSOCMOPB.m>

Entry Points

Name Comments DBIA/ICR reference
OREL(RXP) ; Called from PSODISP to check for CMOP during manual Release
; IF ePharmacy Rx and it was returned to Stock, allow release
RREL(RXP,RFL) ; This for Release Refills PSODISP
; IF ePharmacy Rx and it was returned to Stock, allow release
RREL1 ; No release of fills unless cancelled
CS(RXP)
LAST ; Find last event, Find last fill
D1 ;
SUS ; From SUP^PSORXED1 If suspense date edited to future date resuspend
EQTY ;W !,"Y=",Y
EQTY2 ;
QTY ;Check quantity
HELP ; QTY HELP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"RX# "_$P(RX0,"^")_" HAS BEEN SUSPENDED FOR CMOP UNTIL "_$E(SD,4,5)_"-"_$E(SD,6,7)_"-"_$E(SD,2,3)_".",!
  • Line Location: SUS+9
Function Call: WRITE
  • Prompt: $C(7)," Sorry no ^ jumping allowed"
  • Line Location: EQTY+4
Function Call: WRITE
  • Prompt: $C(7)," Sorry no ^ jumping allowed"
  • Line Location: EQTY2+5
Function Call: WRITE
  • Prompt: !!,"This is a CMOP drug. The quantity may not contain alpha characters (i.e.; ML) or more than two decimal places (i.e.; .01)."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter a whole number between 0 and 99999999 inclusive. The total entry cannot exceed 11 characters."
  • Line Location: HELP+2

FileMan Files Accessed Via FileMan Db Call

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