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
Print Page as PDF
Routine: PSJMON

Package: Inpatient Medications

Routine: PSJMON


Information

PSJMON ;BIR/MV - Display/Print Monograph ;6 Jun 07 / 3:37 PM

Source Information

Source file <PSJMON.m>

Entry Points

Name Comments DBIA/ICR reference
MON(PSJMON) ;Process monographs
ASK(X) ;Ask if user want to see the monograph
DSPMON ;
OUT ;Print the Professional Monograph
LSTMON(PSJMON) ;Display a list of monographs to the user & store mon for printing to screen/printer
SELLST(PSJMONLI) ;Only present selection pair if there are more than 1 pair in the list
SETMON(PSJNUM,PSJMONV) ;Setup monograph for screen/prt
NUMLST ;Set the monograph into a number selectable list
STOREMON(PSJX,PSJSERVR) ;Store the formatted Monograph

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"NOTHING PRINTED"
  • Line Location: DSPMON+3
Function Call: WRITE
  • Prompt: !,"Monograph Queued to Print!",!
  • Line Location: DSPMON+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: OUT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUT+10
Function Call: WRITE
  • Prompt: !,PSJMONV
  • Line Location: OUT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: SELLST+2
Function Call: WRITE
  • Prompt: !,PSJX,". ",$$VAGEN^PSJMISC(PSJS(5))," and ",$P(PSJS(11),"+")," ("_PSJSEV1_" - "_PSJPON1_")"
  • Line Location: SELLST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SELLST+9
Info |  Source |  Entry Points |  Interaction Calls