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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJLMUT2

Package: Inpatient Medications

Routine: PSJLMUT2


Information

PSJLMUT2 ;BIR/JLC-DISPLAY UTILITIES ;22 Jun 05

Source Information

Source file <PSJLMUT2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJLMUT1  

Entry Points

Name Comments DBIA/ICR reference
FSTART
SHOR(PSJT,PSJI)
PAUSE ;
FQUIT
FSIG(FSIG) ;Format sig from remote site

External References

Name Field # of Occurrence
^DIR PAUSE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PSJULN,!
  • Line Location: SHOR+10
Function Call: WRITE
  • Prompt: PSJRS
  • Line Location: SHOR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOR+11
Function Call: WRITE
  • Prompt: ?14,"Rx #: ",$E(PSJRX,1,$L(PSJRX)-1)
  • Line Location: SHOR+12
Function Call: WRITE
  • Prompt: $E(PSJRX,$L(PSJRX))
  • Line Location: SHOR+12
Function Call: WRITE
  • Prompt: ?39,PSJDN,!
  • Line Location: SHOR+13
Function Call: WRITE
  • Prompt: ?39,$P(PSJD0,"^",4)," INTERACTION",!
  • Line Location: SHOR+13
Function Call: WRITE
  • Prompt: $J("Status: ",20),$P(PSJD1,"^",2),?40,$J("Issued: ",20),$P(PSJD1,"^",9)
  • Line Location: SHOR+14
Function Call: WRITE
  • Prompt: ?20,FSIG(I),!
  • Line Location: SHOR+16
Function Call: WRITE
  • Prompt: $J("QTY: ",20)_$P(PSJD1,"^",5)
  • Line Location: SHOR+17
Function Call: WRITE
  • Prompt: !,$J("Provider: ",20),$P(PSJD1,"^",8),?40,$J("Refills remaining: ",20),$P(PSJD1,"^",6)
  • Line Location: SHOR+18
Function Call: WRITE
  • Prompt: !?40,$J("Last filled on: ",20),PSJLF
  • Line Location: SHOR+19
Function Call: WRITE
  • Prompt: !?40,$J("Days Supply: ",20)_$P(PSJD1,"^",4)
  • Line Location: SHOR+20
Function Call: WRITE
  • Prompt: !,PSJULN
  • Line Location: SHOR+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J SHOR+5, FSIG+3

Label References

Name Line Occurrences
FSIG SHOR+15

Naked Globals

Name Field # of Occurrence
^( FSIG+3
^(1 SHOR+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT FSIG+2~, FSTART+1*, FSTART+2
DIR PAUSE+1!
DIR("A" PAUSE+1*
DIR(0 PAUSE+1*
FFF FSIG+2~, FSTART+1*, FSTART+2
FLIM FSIG+2~, FSTART+1, FSTART+3*
FSIG SHOR+4~, SHOR+15, FSIG~
FSIG( SHOR+16, FSTART+1*, FSTART+5*
FSIG(1 FSTART+6*
FSIG(2 FSTART+6!
FVAR FSIG+2~, FSTART*, FSTART+1*, FSTART+3, FSTART+4*, FSTART+5
FVAR1 FSIG+2~, FSTART*, FSTART+1, FSTART+2*, FSTART+4
HSIG FSIG+2~
HSIG( FSIG+3*, FSTART+1, FSTART+2
I SHOR+16*, FSIG+2~, FSIG+3*
II FSIG+2~, FSTART*, FSTART+1*, FSTART+5
NNN FSIG+2~, FSTART+1*
PSJD0 SHOR+4~, SHOR+5*, SHOR+6, SHOR+7, SHOR+8, SHOR+13
PSJD1 SHOR+4~, SHOR+5*, SHOR+9, SHOR+14, SHOR+17, SHOR+18, SHOR+20
PSJDN SHOR+4~, SHOR+6*, SHOR+7*, SHOR+8*, SHOR+13
PSJI SHOR~, SHOR+5, FSIG+3
PSJLF SHOR+4~, SHOR+9*, SHOR+19
PSJRS SHOR+4~, SHOR+6*, SHOR+7*, SHOR+8*, SHOR+11
PSJRX SHOR+4~, SHOR+6*, SHOR+7*, SHOR+8*, SHOR+12
PSJT SHOR~, SHOR+5, SHOR+6, SHOR+7, SHOR+8, SHOR+13, FSIG+3
PSJULN SHOR+4~, SHOR+9*, SHOR+10, SHOR+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All