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

Package: Outpatient Pharmacy

Routine: PSONRXN


Information

PSONRXN ;IHS/DSD/JCM - GETS NEXT VALID RX NUMBER ;08/09/93 9:17

Source Information

Source file <PSONRXN.m>

Entry Points

Name Comments DBIA/ICR reference
MANUAL ; Entry Point to ask user for new rx #
CHECK ; Entry Point to check if valid new rx number
MANUALX
AUTO ; Entry point for getting next rx # if autonumbering
LOOP2
AUTOX
FATAL ;error in autonum queue if necessary and quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"Not a new prescription number!!!",!,"Rxn: ",Y(0,0),!,"Patient: ",$S($D(^DPT(+$P(Y(0),"^",2),0)):$P(^(0),"^"),1:"UNKNOWN"),!,"Drug: ",$S($D(^PSDRUG(+$P(Y(0),"^",6),0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !,"Issued: ",$E(PSONRXN("ID"),4,5),"-",$E(PSONRXN("ID"),6,7),"-",$E(PSONRXN("ID"),2,3)
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: $C(7),?10,"Prescription Rx# "_PSOX_" already being processed."
  • Line Location: CHECK+14
Function Call: WRITE
  • Prompt: !!,$C(7),"Fatal error in Autonumbering - No Numbers Left!",!,"See Application Package Coordinator!",!,$C(7)
  • Line Location: FATAL+1

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