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 |  Local Variables |  All
Print Page as PDF
Routine: PSJMIV

Package: Inpatient Medications

Routine: PSJMIV


Information

PSJMIV ;BIR/MV-IV ORDER FOR MED DUE WORKSHEET. ;20 DEC 96 / 3:12 PM

Source Information

Source file <PSJMIV.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 10 ($$ENDTC,$$ENPDN)^PSGMI  EN^PSGS0  GT531^PSIVORFA  GT55^PSIVORFB  NAME^PSIVUTL  $$ONE^PSJBCMA  SI^PSJMPEND  (,HDR)^PSJMPRTU  
NAMENEED^PSJMUTL  ENIV^PSJPL0  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSJMEDS  PSJMPRT  

Entry Points

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

External References

Name Field # of Occurrence
$$ENDTC^PSGMI PRT+5
$$ENPDN^PSGMI IVTMP+1
EN^PSGS0 SCHEDULE+1
GT531^PSIVORFA PRT+4
GT55^PSIVORFB IV+1, PRT+2
NAME^PSIVUTL PRTIV+6, PRTIV+8
$$ONE^PSJBCMA IV+5
SI^PSJMPEND PRT+4
^PSJMPRTU PRT+13, ADSOL+1
HDR^PSJMPRTU PRT+14, ADSOL+1
NAMENEED^PSJMUTL PRT+9
ENIV^PSJPL0 SCHEDULE+3
$$FMADD^XLFDT INTERVAL+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] START+2
^TMP($J P+1*, W+1*, W+2*, W+3*

Label References

Name Line Occurrences
@( IVTMP+2
ADSOL PRTIV+6, PRTIV+7, PRTIV+8
INTERVAL IV+8
IV START+2
IVTMP INTERVAL+4, SCHEDULE+4
PRTIV PRT+15
SCHEDULE IV+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM IV+1!, INTERVAL+3*
>> ADMIN IVTMP+2*
>> DFN IV+1*, PRT+1*, PRT+4
DRG IVTMP+1*, P+1, W+1, W+2, W+3, PRT+1~
DRG("AD" IVTMP+1, PRT+11, PRTIV+6
DRG("SOL" IVTMP+1, PRT+11, PRTIV+7, PRTIV+8
>> I INTERVAL+3*, ADSOL+4*, ADSOL+5
MN INTERVAL+1~, SCHEDULE+2*
>> NAME PRTIV+6, PRTIV+8
>> NAME( PRTIV+6, PRTIV+8
ND INTERVAL+1~, SCHEDULE+2*
ND1 INTERVAL+1~, SCHEDULE+2*
NEED PRT+8~, PRT+9
>> ON START+1*, START+2*, IV+5, INTERVAL+4*, IVTMP+1, P+1, W+1, W+2, W+3, PRT+4
, PRTIV+9
ON55 IV+1~, PRT+1~
P START+1~, PRT+1~
P( PRT+5*
P("LOG" PRTIV+2, ADSOL+2
P("MR" IV+4, PRTIV+10
P("OPI" PRT+4*, PRT+7, PRT+10
P(11 SCHEDULE+2
P(15 IV+8, INTERVAL+3
P(17 IV+2
P(2 IV+3, IV+5, INTERVAL+3, SCHEDULE+2, PRTIV+4, ADSOL+2
P(3 IV+5, INTERVAL+3, SCHEDULE+2, PRTIV+4, ADSOL+2
P(4 SCHEDULE+2, PRT+10, PRTIV+12
P(8 PRTIV+10
P(9 IV+5, IV+6, IV+7, SCHEDULE+1, SCHEDULE+2, PRTIV+10
PLSD INTERVAL+1~, SCHEDULE+2*
>> PPN P+1, W+1, W+2, W+3
>> PSGEXPDT START+2*
PSGMAR INTERVAL+2!, SCHEDULE+1!
PSGMAR( INTERVAL+3*, IVTMP+2
>> PSGOES SCHEDULE+1*
>> PSGON IV+8*
>> PSGP START+2, IV+1, IV+5, P+1, W+1, W+2, W+3, PRT+1
PSGPLC INTERVAL+1~, SCHEDULE+1*, SCHEDULE+2*
>> PSGPLF IV+3, INTERVAL+3
>> PSGPLS START+2, INTERVAL+3
>> PSGRBADM W+1, W+2, W+3
>> PSGS0XT SCHEDULE+1
>> PSGSS IVTMP+2
>> PSGWN W+1, W+2, W+3
>> PSJADT IVTMP+2*, P+1, W+1, W+2, W+3
>> PSJASTR PRTIV+9*
>> PSJATME IVTMP+2*, P+1, W+1, W+2, W+3
PSJLABEL IV+1~*, PRT+1~*
>> PSJLN PRT+14, PRTIV+16*, ADSOL+1, ADSOL+3*
>> PSJNEED PRT+8*, PRT+9*, PRT+12*, PRT+14, PRTIV+16, ADSOL+3*
>> PSJONETM PRT+6*, PRT+12, PRTIV+11
>> PSJPPID P+1, W+1, W+2, W+3
>> PSJPRB P+1, W+1, W+2, W+3
>> PSJPRT( ADSOL+4, ADSOL+5!
>> PSJPRT(1 PRTIV+2, ADSOL+2, ADSOL+4
>> PSJPWDN P+1
>> PSJSI PRT+4, PRT+7*, PRTIV+13
>> PSJSTOP PRT+14
>> PSJTOTLN PRT+14, ADSOL+1
>> PST START+2, IV+4
>> QST IV+5*, IV+6*, P+1, W+1, W+2, W+3, PRT+2, PRT+4, PRT+6, PRTIV+3
ST INTERVAL+1~, SCHEDULE+2*
T INTERVAL+1~, SCHEDULE+1*, SCHEDULE+2
>> TM W+1, W+2, W+3
TS INTERVAL+1~, SCHEDULE+2*
U IV+4, IVTMP+1, P+1, W+1, W+2, W+3, PRTIV+10
X IV+1~, IV+4*, SCHEDULE+1*, IVTMP+1*, PRT+5*, PRT+9*, PRT+10*, PRT+11*, PRT+12, PRTIV+5~
, PRTIV+6*, PRTIV+8*, ADSOL+1~
>> XTYPE IV+4, IV+6
Y PRTIV+5~, PRTIV+6*, PRTIV+8*, PRTIV+13*
>> Y1 PRTIV+13*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All