Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Inpatient Medications 1 ($$PAUSE1,$$VAGEN)^PSJMISC  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJOCDI  

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

External References

Name Field # of Occurrence
^%ZIS DSPMON+2
^%ZISC DSPMON+7, DSPMON+8
^%ZTLOAD DSPMON+7
^DIR ASK+3, SELLST+10
$$PAUSE1^PSJMISC OUT+10, OUT+13
$$VAGEN^PSJMISC SELLST+8, SETMON+10

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
Routine Call
  • %ZIS
  • Line Location:
    • DSPMON+2
Routine Call
  • DIR
  • Line Location:
    • ASK+3
    • SELLST+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J MON+6!, OUT+4, OUT+5, OUT+6, LSTMON+17!, SETMON+6, SETMON+12, SETMON+13, STOREMON+6*, STOREMON+9*
, STOREMON+11*

Label References

Name Line Occurrences
$$ASK MON+3
$$SELLST LSTMON+20
DSPMON MON+5
LSTMON MON+4
NUMLST LSTMON+18
OUT DSPMON+8
SETMON LSTMON+26, LSTMON+28
STOREMON SETMON+9, SETMON+11, SETMON+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DSPMON+2!*
DIR ASK+1~, ASK+3!, DSPMON+3!, LSTMON+15~, SELLST+1~, SELLST+10!
DIR("A" ASK+3*, SELLST+10*
DIR("B" ASK+3*
DIR(0 ASK+3*, SELLST+10*
DIRUT ASK+1~, DSPMON+3!, LSTMON+15~, SELLST+1~
DTOUT ASK+1~, DSPMON+3!, LSTMON+15~, SELLST+1~
DUOUT ASK+1~, DSPMON+3!, LSTMON+15~, SELLST+1~
IO OUT+2
IO("Q" DSPMON+4
IOF OUT+8, OUT+10, OUT+13
IOP DSPMON+2!
IOSL OUT+13
IOST OUT+10, OUT+13
MONT DSPMON+3!
POP DSPMON+2!, DSPMON+3
PSJCNT LSTMON+15~, LSTMON+23*, SETMON+14*, STOREMON+4*, STOREMON+6*, STOREMON+9*, STOREMON+11
PSJDNM LSTMON+15~, NUMLST+1~, NUMLST+3*, NUMLST+4, NUMLST+8
PSJIOF MON+1~, MON+2*, OUT+8!, OUT+10, OUT+13*
PSJMFLG NUMLST+1~, NUMLST+3*, NUMLST+4, NUMLST+5, NUMLST+16*
PSJMON MON~, MON+4, MON+6!, ASK+4!, LSTMON~
PSJMON( NUMLST+3, NUMLST+4, NUMLST+8
PSJMONLI LSTMON+16~, LSTMON+20, SELLST~
PSJMONLI( LSTMON+25, SELLST+3, SELLST+4, NUMLST+4*, NUMLST+6*, NUMLST+7*, NUMLST+9, NUMLST+14*, NUMLST+15*
PSJMONLI("" LSTMON+19, SELLST+10
PSJMONS LSTMON+16~
PSJMONS( LSTMON+27, LSTMON+28, NUMLST+8*, NUMLST+10, NUMLST+15
PSJMONTI LSTMON+15~, LSTMON+27*, LSTMON+28, NUMLST+1~, NUMLST+3*, NUMLST+4, NUMLST+8, NUMLST+10, NUMLST+15
PSJMONV OUT+1~, OUT+6*, OUT+7, OUT+12, LSTMON+15~, LSTMON+25*, LSTMON+26, LSTMON+27, LSTMON+28*, SELLST+1~
, SELLST+4*, SELLST+5, SETMON~, SETMON+3, SETMON+5, SETMON+10*, SETMON+11, SETMON+13*, SETMON+15
PSJN LSTMON+15~, NUMLST+1~, NUMLST+2*, NUMLST+4*, NUMLST+6, NUMLST+7, NUMLST+8, NUMLST+9, NUMLST+10, NUMLST+14
, NUMLST+15
PSJNUM OUT+1~, OUT+4*, OUT+5, OUT+6, SETMON~, SETMON+4, STOREMON+2, STOREMON+6, STOREMON+9, STOREMON+11
PSJON1 NUMLST+1~, NUMLST+9*, NUMLST+12, NUMLST+13, NUMLST+17!
PSJON2 NUMLST+1~, NUMLST+10*, NUMLST+17!
PSJONFG NUMLST+1~, NUMLST+11*, NUMLST+12*, NUMLST+13*, NUMLST+14, NUMLST+17!
PSJPN OUT+1~, OUT+5*, OUT+6, LSTMON+15~, SETMON+2~, SETMON+12*, SETMON+13
PSJPON1 LSTMON+15~, SELLST+1~, SELLST+7*, SELLST+8
PSJPRTFL MON+1~, MON+2*, MON+5, LSTMON+22*
PSJQUIT OUT+1~, OUT+3*, OUT+5, OUT+7*, OUT+10*, OUT+11, OUT+13*
PSJS LSTMON+15~, SELLST+1~, SETMON+2~
PSJS( SELLST+5*, SETMON+5*
PSJS(1 SETMON+6, SETMON+12, SETMON+13
PSJS(10 SELLST+7
PSJS(11 SELLST+8, SETMON+8, SETMON+10
PSJS(2 SETMON+6, SETMON+12, SETMON+13
PSJS(5 SELLST+8, SETMON+10
PSJS(6 SELLST+7, SETMON+6, SETMON+12, SETMON+13
PSJS(7 SELLST+6, SETMON+6, SETMON+12, SETMON+13
PSJS(9 SELLST+6
PSJSERVR MON+1~, OUT+5*, OUT+6, SETMON+8*, SETMON+9, SETMON+11, SETMON+15, STOREMON~, STOREMON+3*, STOREMON+6
, STOREMON+9, STOREMON+11
PSJSEV1 LSTMON+15~, SELLST+1~, SELLST+6*, SELLST+8
PSJX ASK+1~, ASK+2*, ASK+3, LSTMON+15~, LSTMON+24*, LSTMON+25, LSTMON+27, LSTMON+28, SELLST+1~, SELLST+3*
, SELLST+4, SELLST+8, STOREMON~, STOREMON+6*, STOREMON+8
PSJX1 LSTMON+15~, LSTMON+24*, LSTMON+26, LSTMON+28, STOREMON+1~, STOREMON+7*, STOREMON+9*, STOREMON+10*, STOREMON+11, STOREMON+12!
PSJY LSTMON+15~, LSTMON+19*, LSTMON+20*, LSTMON+21, LSTMON+24
SEL DSPMON+3!
U LSTMON+27, SELLST+5, SETMON+5, NUMLST+7, NUMLST+9, NUMLST+10, NUMLST+14, NUMLST+15
X ASK~, ASK+2, LSTMON+15~, SELLST+1~, SELLST+5*, SETMON+2~, SETMON+5*, SETMON+6*, SETMON+7*, SETMON+8
, STOREMON+1~, STOREMON+5*, STOREMON+6
Y ASK+1~, ASK+4, ASK+5, LSTMON+15~, SELLST+1~, SELLST+11, STOREMON+1~, STOREMON+8*
Y1 STOREMON+1~, STOREMON+8*, STOREMON+9, STOREMON+10
ZTDESC DSPMON+1~, DSPMON+5*
>> ZTQUEUED DSPMON+7
>> ZTREQ DSPMON+7*
ZTRTN DSPMON+1~, DSPMON+5*
ZTSAVE DSPMON+1~
ZTSAVE("LIST" DSPMON+6*
ZTSAVE("^TMP($J,""PSJPMON""," DSPMON+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All