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

Package: Inpatient Medications

Routine: PSIVORV2


Information

PSIVORV2 ;BIR/MLM-VIEW AN ORDER (PHARMACY) ;20 Jul 98 / 2:22 PM

Source Information

Source file <PSIVORV2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 6 GT531^PSIVORFA  GT55^PSIVORFB  ($$CODES,$$GTPCI,$$WDTE)^PSIVUTL  EN^PSJLIORD  ^PSJLIVFD  ^PSJLIVMD  
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: 12

Package Total Caller Graph
Inpatient Medications 12 PSIVCHK  PSIVHIS  PSIVLBL1  PSIVOPT  PSIVORC  PSIVORC2  PSIVORV1  PSIVPGE  
PSIVPR  PSIVRD  PSIVUWL  PSJHIS  

Entry Points

Name Comments DBIA/ICR reference
EN ; Display order with numbers.
ENNONUM(DFN,PSJORD) ; Display order with no numbers.
ENPRO ; Profile view.
LONG(Y) ; Display long fields.
WTPC ; Write provider comments.
PAUSE ;Hold display if end screen, do FF if eop.
RC ; Print field by line number
1 ; Type
2 ;Syringe Size
3 ; IV Room
4 ; Start Date
5 ; Stop Date
6 ; Log-in Date
7 ; Last fill date.
8 ;Last fill qty.
9 ; Entry Code
10 ; Provider
ENNH(ON) ;

External References

Name Field # of Occurrence
^DIR PAUSE+1
GT531^PSIVORFA ENNH+1
GT55^PSIVORFB ENNH+2
$$CODES^PSIVUTL ENNONUM+4, 1+1, ENNH+3
$$GTPCI^PSIVUTL ENPRO+4
$$WDTE^PSIVUTL 4+2, 5+2, 6+1, 7+1
EN^PSJLIORD EN+1
^PSJLIVFD ENPRO+15
^PSJLIVMD ENPRO+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Patient: ",VADM(1)," (",$P(VADM(2),U,2),")",?52,"Wt (kg): ",PSJPWT," ",PSJPWTD
  • Line Location: ENNONUM+2
Function Call: WRITE
  • Prompt: !?3,"Ward: ",$S(VAIN(4):$P(VAIN(4),U,2),1:"OUTPATIENT"),?52,"Ht (cm): ",PSJPHT," ",PSJPWTD
  • Line Location: ENNONUM+3
Function Call: WRITE
  • Prompt: !,?1,"Status: ",$$CODES^PSIVUTL(P(17),$S(P("PON")'["V":53.1,1:55.01),$S(P("PON")'["V":28,1:100))
  • Line Location: ENNONUM+4
Function Call: WRITE
  • Prompt: ?47,"Order number: ",+P("PON")
  • Condition for execution: P("PON")["V"
  • Line Location: ENNONUM+4
Function Call: WRITE
  • Prompt: !,UL80,!
  • Line Location: ENNONUM+4
Function Call: WRITE
  • Prompt: !,^(PSIVX,0)
  • Line Location: ENPRO+17
Function Call: WRITE
  • Prompt: ?5,$P(Y," ",X)," "
  • Line Location: LONG+1
Function Call: WRITE
  • Prompt: ?3,Y,!
  • Line Location: WTPC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RC+1
Function Call: WRITE
  • Prompt: ?53,"IV Room: ",$P(P("IVRM"),U,2)
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: ?48-$L(X),X,?50,"Start Date: ",$$WDTE^PSIVUTL(P(2))
  • Line Location: 4+2
Function Call: WRITE
  • Prompt: ?48-$L(X),X,?51,"Stop Date: ",$$WDTE^PSIVUTL(P(3))
  • Line Location: 5+2
Function Call: WRITE
  • Prompt: ?50,"Login Date: ",$$WDTE^PSIVUTL(P("LOG"))
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: ?51,"Last Fill: ",$S(Y="******":"** Not printed **",1:Y)
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: ?52,"Quantity: ",+P("LFA")
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: ?50,"Entry Code: ",$S($P(P("CLRK"),U,2)]"":$E($P(P("CLRK"),U,2),1,18),1:"*** Undefined")
  • Line Location: 9+1
Function Call: WRITE
  • Prompt: ?48-$L(X),X,?52,"Provider: ",$S($P(P(6),U,2)]"":$E($P(P(6),U,2),1,18),1:"*** Undefined")
  • Line Location: 10+2
Function Call: WRITE
  • Prompt: !!,?5,UL,!,?5,"Patient: ",PSGP(0),?54,"Status: ",$S(P(17)="DE":"DC (EDIT)",1:$$CODES^PSIVUTL(P(17),$S(ON'["V":53.1,1:55.01),$S(ON'["V":28,1:100))),!
  • Line Location: ENNH+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.45 - [#53.45] ENPRO+9!, ENPRO+11!, ENPRO+13!, ENPRO+15!
^TMP("PSJI" ENPRO+17, ENPRO+18!

Label References

Name Line Occurrences
@( RC+1
ENPRO ENNH+4
RC LONG+1

Naked Globals

Name Field # of Occurrence
^( ENPRO+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+1, ENNONUM~, ENNH+1
DIR PAUSE+1~
DIR(0 PAUSE+1*
>> DTOUT PAUSE+1
>> DUOUT PAUSE+1
IOF ENNONUM+2
IOSL PAUSE+1
IOST PAUSE+1
>> LN LONG+1, RC+1*
ON EN+1, ENPRO+3, ENNH~, ENNH+1, ENNH+2, ENNH+3
>> P("CLRK" 9+1
>> P("DTYP" 4+1, 5+1, 10+1
>> P("IVRM" 3+1
>> P("LF" 7+1
>> P("LFA" 8+1
>> P("LOG" 6+1
>> P("OT" ENPRO+5*, ENPRO+8, ENPRO+12, 4+1, 5+1, 10+1
>> P("PON" ENNONUM+4, ENPRO+3*
>> P("SYRS" 2+1
>> P(17 ENNONUM+4, 4+1, 5+1, ENNH+3
>> P(2 4+2, ENNH+1*
>> P(23 1+1
>> P(3 5+2, ENNH+1*
>> P(4 ENPRO+5, 1+1, ENNH+1*
>> P(5 1+1
>> P(6 10+2
PSGEBN ENPRO+1~, ENPRO+2*
PSGLI ENPRO+1~, ENPRO+2*
>> PSGP(0 ENNH+3
PSIV531 ENPRO+1~, ENNH+1~*
PSIVAC ENPRO+1~, ENPRO+3*, 4+1, 5+1, 10+1
PSIVNUM EN+2~*, ENPRO+7~*, 4+1, 5+1, 10+1
>> PSIVUP ENPRO+4*
PSIVX ENPRO+16~, ENPRO+17*
PSJL ENPRO+6~
PSJORD ENNONUM~
>> PSJPHT ENNONUM+3
>> PSJPRF ENNONUM+2
>> PSJPWT ENNONUM+2
>> PSJPWTD ENNONUM+2, ENNONUM+3
PSJSTAR ENPRO+1~, ENPRO+10*, ENPRO+14*
>> PSJSYSP ENPRO+9, ENPRO+11, ENPRO+13, ENPRO+15
U ENNONUM+2, ENNONUM+3, 3+1, 9+1, 10+2
UL ENNH+3~*
>> UL80 ENNONUM+1*, ENNONUM+4
>> VADM(1 ENNONUM+2
>> VADM(2 ENNONUM+2
>> VAIN(4 ENNONUM+3
X LONG+1*, PAUSE+1~, RC+1~, 1+1*, 4+1*, 4+2, 5+1*, 5+2, 10+1*, 10+2
Y ENPRO+1~, LONG~, LONG+1, WTPC+1, PAUSE+1~, RC+1~, 7+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All