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

Package: Outpatient Pharmacy

Routine: PSOCSRL


Information

PSOCSRL ;BIR/BHW - release interface for control substance pkg ; 1/29/20 12:46pm

Source Information

Source file <PSOCSRL.m>

Entry Points

Name Comments DBIA/ICR reference
EN(RXP,XTYPE,PSRH) ;
ORI ;orig
REF ;release ref or par
EX
UPDATE
QTY
ASK ;confirm

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"Site Parameters must be defined to use the Release option!",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7),$C(7)," NON-EXISTENT PRESCRIPTION"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7)," PRESCRIPTION IS A DELETED PERSCRIPTION NUMBER"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!?7,$C(7),$C(7),"ORIGINAL PRESCRIPTION WAS LAST RELEASED ON "_Y,!
  • Line Location: ORI+1
Function Call: WRITE
  • Prompt: !,"Original Fill returned to stock on "_$E(RESK,4,5)_"/"_$E(RESK,6,7)_"/"_$E(RESK,2,3),!
  • Line Location: ORI+2
Function Call: WRITE
  • Prompt: $C(7),!!?7,$S($P(XTYPE,"^")=1:"RE",$P(XTYPE,"^")="P":"PARTIAL ",1:"ORIGINAL")_"FILL ON SUSPENSE !",!,$C(7)
  • Line Location: UPDATE+0
Function Call: WRITE
  • Prompt: !?7,"PRESCRIPTION NUMBER "_$P(^PSRX(RXP,0),"^")_" RELEASED"
  • Line Location: UPDATE+2

FileMan Files Accessed Via FileMan Db Call

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