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

Package: Inpatient Medications

Routine: PSJMIV


Information

PSJMIV ;BIR/MV-IV ORDER FOR MED DUE WORKSHEET. ; 5/14/09 8:12am

Source Information

Source file <PSJMIV.m>

Entry Points

Name Comments DBIA/ICR reference
START ;*** Read IV orders
IV ;*** Process IV order based on schedule and interval
INTERVAL ;*** Calculate admin time by schedule interval.
SCHEDULE ;*** Calculate admin times for IV that has schedule defined.
IVTMP ;*** Set IV ^TMP.
P ;*** Set ^TMP when select by patient
G ;*** Goto W to set ^TMP when selected by WARD/WARD GROUP
W ;
PRT ;*** Print IV orders for Med Due Worksheet.
PRTIV ;
ADSOL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: to
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !,PSJPRT(1),?39,$E(P("LOG"),1,5)," | ",$E(P(2),1,5),$E(P(2),9,15)," | ",P(3)
  • Line Location: PRTIV+1
Function Call: WRITE
  • Prompt: !,PSJPRT(1),?39,$E(P("LOG"),1,5)," | "
  • Line Location: PRTIV+2
Function Call: WRITE
  • Prompt: "P E N D I N G"
  • Line Location: PRTIV+3
Function Call: WRITE
  • Prompt: $E(P(2),1,5),$E(P(2),9,15)," | ",P(3)
  • Line Location: PRTIV+4
Function Call: WRITE
  • Prompt: NAME(Y)
  • Line Location: PRTIV+6
Function Call: WRITE
  • Prompt: " in"
  • Line Location: PRTIV+7
Function Call: WRITE
  • Prompt: NAME(Y)
  • Line Location: PRTIV+8
Function Call: WRITE
  • Prompt: !?39,$P(P("MR"),U,2)," ",P(9)," ",P(8)
  • Line Location: PRTIV+10
Function Call: WRITE
  • Prompt: !?39
  • Line Location: PRTIV+13
Function Call: WRITE
  • Prompt: !?39
  • Condition for execution: ($L(Y1)+$X)>79
  • Line Location: PRTIV+13
Function Call: WRITE
  • Prompt: Y1_" "
  • Line Location: PRTIV+13
Function Call: WRITE
  • Prompt: !?39,"RN/LPN Init: ________"
  • Line Location: PRTIV+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTIV+15
Function Call: WRITE
  • Prompt: !?39,"*** CONTINUE ON NEXT PAGE ***"
  • Line Location: ADSOL+1
Function Call: WRITE
  • Prompt: !,$G(PSJPRT(+I)),?39
  • Line Location: ADSOL+4
Info |  Source |  Entry Points |  Interaction Calls