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) ;05-Dec-2003 10:05;PLS

Source Information

Source file <PSIVORV2.m>

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

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

External References

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

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+3
Function Call: WRITE
  • Prompt: !!,"Patient: ",VADM(1)," (",$G(VA("PID")),")",?52,"Wt (kg): ",PSJPWT," ",PSJPWTD
  • Line Location: ENNONUM+4
Function Call: WRITE
  • Prompt: !?3,"Ward: ",$S(VAIN(4):$P(VAIN(4),U,2),1:"OUTPATIENT"),?52,"Ht (cm): ",PSJPHT," ",PSJPWTD
  • Line Location: ENNONUM+5
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+6
Function Call: WRITE
  • Prompt: ?47,"Order number: ",+P("PON")
  • Condition for execution: P("PON")["V"
  • Line Location: ENNONUM+6
Function Call: WRITE
  • Prompt: !,UL80,!
  • Line Location: ENNONUM+6
Function Call: WRITE
  • Prompt: !,^(PSIVX,0)
  • Line Location: ENPRO+15
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)
^TMP("PSJI" ENPRO+15, ENPRO+16!

Label References

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

Naked Globals

Name Field # of Occurrence
^( ENPRO+15

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+4
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+11, 4+1, 5+1, 10+1
>> P("PON" ENNONUM+6, ENPRO+3*
>> P("SYRS" 2+1
>> P(17 ENNONUM+6, 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+14~, ENPRO+15*
PSJL ENPRO+6~
PSJORD ENNONUM~
>> PSJPHT ENNONUM+5
>> PSJPRF ENNONUM+4
>> PSJPWT ENNONUM+4
>> PSJPWTD ENNONUM+4, ENNONUM+5
PSJSTAR ENPRO+1~, ENPRO+9*, ENPRO+12*
U ENNONUM+5, 3+1, 9+1, 10+2
UL ENNH+3~*
>> UL80 ENNONUM+1*, ENNONUM+6
>> VA("PID" ENNONUM+4
>> VADM(1 ENNONUM+4
>> VAIN(4 ENNONUM+5
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