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

Package: Inpatient Medications

Routine: PSIVORE1


Information

PSIVORE1 ;BIR/RGY,PR,MLM-ACT,NEW ORDER ;26-Mar-2013 11:29;PB

Source Information

Source file <PSIVORE1.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 8 ENQ^PSIV  ^PSIVHLP  ^PSIVHYPL  ^PSIVLABL  ^PSIVLTR  ($$CONVER,C,K,TL)^PSIVORE2  ENP3^PSIVWL  $$LASTREN^PSJLMPRI  
Kernel 2 ^%ZTLOAD  $$FMADD^XLFDT  
Registration 1 FULL^VALM1  
VA Fileman 1 (C,NOW)^%DTC  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 5 PSIVCHK  PSIVOPT1  PSIVORC2  PSJLIACT  PSJOEA2  

Entry Points

Name Comments DBIA/ICR reference
B
SS ;
EC ;
P ;
S ;
B1 ;
STR ;
ACT ; Prompt and process label action.
GSTRING ; Setup edit "^" string.

External References

Name Field # of Occurrence
C^%DTC EC+1, EC+2, SS+7
NOW^%DTC S+11, P+5, SS+4, SS+9
^%ZTLOAD SS+12
ENQ^PSIV B1+2, SS+1
^PSIVHLP B1+2
^PSIVHYPL SS+10
^PSIVLABL SS+10
^PSIVLTR SS+9, SS+10
$$CONVER^PSIVORE2 P+4
C^PSIVORE2 B1+3
K^PSIVORE2 B, B1+2
TL^PSIVORE2 P+5
ENP3^PSIVWL S+3, EC+4
$$LASTREN^PSJLMPRI S+2
FULL^VALM1 P+2
$$FMADD^XLFDT S+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" "_$E(X#1_"000",2,5)_" : "
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !!,"Next delivery time is "
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !!,"Next delivery time is "
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !!,"There ",$S(SNM>1:"are",1:"is")," already ",SNM," LABEL",$E("S",SNM>1)," suspended for this order."
  • Line Location: B1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SS+1
Function Call: WRITE
  • Prompt: !,"Enter # labels, less than 100, to act on."
  • Line Location: SS+2
Function Call: WRITE
  • Prompt: " No action taken ***"
  • Line Location: SS+3
Function Call: WRITE
  • Prompt: $C(7),"NO Labels suspended, Wait 8 seconds and try again."
  • Line Location: SS+4
Function Call: WRITE
  • Prompt: " ... ",PSIVLABN," Label",$E("s",PSIVLABN>1)," suspended !"
  • Line Location: SS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SS+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] B1+3, SS+4, SS+5, SS+6, SS+9*, SS+10
^PS(59.5 - [#59.5] STR+2, EC+3, P+5, GSTRING+3, GSTRING+4

Label References

Name Line Occurrences
B SS+9, SS+10, SS+12
B1 P+5, B1+2, SS+3, SS+4
EC EC+3
SS SS+2
STR EC+1

Naked Globals

Name Field # of Occurrence
^( P+5
^(0 STR+2, SS+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+11, P+5, SS+4, SS+9
>> ACTION SS+9*, SS+10*
BEG S+4~*, S+5
CD S+3~*, EC+4*
>> D S+6*, S+7
DAT B1+3!
DAY S+4~*, S+5*
DAY( S+5*, S+6
>> DFN S+2, B1+3, SS+4, SS+5, SS+6, SS+9, SS+10
DL S+4~
DT S+11
>> EDIT GSTRING+4*
>> HELP B1+2*
>> I STR+2*
ION SS+10
>> IONOFF SS+10*
LBLPC S+4~*, S+5
NEXTX S+4~*, S+5
NXTLBL S+4~*, S+6, S+7*, S+8
>> OD S+3*, S+8*, S+9*, S+11*, EC+4
OLDX S+4~*, S+5*
>> ON S+2, B1+3, SS+4, SS+5, SS+6, SS+9, SS+10
OP2 S+2~, S+8*, B
>> P("IVRM" GSTRING+3, GSTRING+4
>> P("OT" GSTRING+3, GSTRING+4
>> P(16 SS+6*, SS+9*, SS+10*, SS+11*
>> P(2 S+3, S+8*, S+9*, S+11, EC+4, B*
>> P(3 S+3, EC+4
>> P(4 S+11, STR+2, SS+10
>> P16 SS+10*, SS+11*
>> PLAST SS+5*
>> PNOW S+11*, STR+2, EC+1*, P+5*, SS+4*, SS+9*
>> PSGCNT S+11*, P+3, B, B1+1, SS+1, SS+5*
PSGSA S+3~, S+4, S+11!, P+1*, P+4, SS+5*, SS+7*, SS+8*
PSI STR+2!
PSI("E" STR+2*, EC+1
PSI("S" STR+2*, EC+2*, EC+3
>> PSIVA SS+1*, SS+2, SS+4, SS+9
>> PSIVDOSE SS+5*, SS+7, SS+8, SS+9
>> PSIVEC EC+1*, EC+2, EC+3, EC+4
>> PSIVLABN SS+2*, SS+9
>> PSIVNOL SS+5*, SS+9*
>> PSIVOK GSTRING+3*
>> PSIVPL SS+10, SS+11
>> PSIVSITE P+5, B1+1
>> PSIVSN STR+2, EC+3, P+5, B1+3, SS+4, SS+9
>> PSJPRI B1+1
>> PSJSYSU S+1
RNDT S+2~*, S+7, S+9, B
SNM B1+3!
>> TRACK SS+9*, SS+10*
U STR+2, EC+3, P+5, B1+1, SS+5, SS+6, SS+9, SS+10
UP1 SS+5*, SS+7, SS+8, SS+9!
X EC+1, EC+2*, P+4*, P+5*, B1+1*, B1+2*, B1+3, SS+1*, SS+2*, SS+3
, SS+5, SS+7, SS+9!, SS+11
>> X1 EC+1*, EC+2*, SS+7*
>> X2 EC+1*, EC+2*, SS+7*
XX1 SS+7*!
XX2 SS+7*!
>> Y S+11*, EC+1, EC+3*, P+4*, P+5*, SS+4*, SS+9*, SS+11*
>> ZTDESC SS+12*
>> ZTDTH SS+11*
>> ZTIO SS+11*
>> ZTRTN SS+12*
>> ZTSAVE( SS+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All