Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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) ;

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
Info |  Source |  Entry Points |  Interaction Calls