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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSJLIFN

Package: Inpatient Medications

Routine: PSJLIFN


Information

PSJLIFN ;BIR/MV-IV FINISH USING LM ;13 Jan 98 / 11:32 AM

Source Information

Source file <PSJLIFN.m>

Call Graph

Call Graph

Call Graph Total: 23

Package Total Call Graph
Inpatient Medications 16 $$ENIVUD^PSGOEF1  Q2^PSGS0  (ENSTOP,ENT)^PSIVCAL  (ORDERCHK,SAVEDRG)^PSIVEDRG  EDIT^PSIVEDT  OC^PSIVOC  (53,CKFLDS,COMPLTE)^PSIVORC1  GTIVDRG^PSIVORC2  
(GT531,GTDRG)^PSIVORFA  ($$GTPCI,GTOT)^PSIVUTL  ORDCHK^PSJLIFNI  UDVARS^PSJLIORD  $$SCHREQ^PSJLIVFD  $$CHKSCHD^PSJMISC2  HOLDHDR^PSJOE  $$ENPC^PSJUTL  
List Manager 3 EN^VALM  PAUSE^VALM1  RE^VALM4  
VA FileMan 3 ^%DT  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 1 DRGCHK^PSOORDRG  

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 11 PSIVOPT  PSIVORC  PSIVORC2  PSJCOMR  PSJI LM FINISH  PSJLIACT  PSJLIFNI  PSJLIORD  
PSJLIPRF  PSJOE  PSJOEA  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; Display order with numbers.
PENDING ; Process pending order.
DISPLAY ;
GTDATA ;
FINISH ; Prompt for missing data
MULTADDS ; If there are multiple IV Additives per Orderable Item, it will prompt for selection
ORDCHK ;* Do order check for Inpatient Meds IV.
; PSGORQF is defined (CONT^PSGSICHK) if not log an intervention
; No longer use after PSJ*5*181
ORDCHKA ;* Do order check against existing orders on the profile
OCORD ;* Do order check for each drug against the drugs within the order.
IVADDCNT(OI,IVLIST) ; Returns the number of IV Addtives Associated to the OI and Marked for IV Order Dialog

External References

Name Field # of Occurrence
^%DT GTDATA+5, GTDATA+6
$$GET1^DIQ MULTADDS+10, MULTADDS+17, MULTADDS+18, MULTADDS+23, IVADDCNT+8, IVADDCNT+10
^DIR MULTADDS+21
$$ENIVUD^PSGOEF1 FINISH+12
Q2^PSGS0 FINISH+28
ENSTOP^PSIVCAL GTDATA+6, FINISH+36, FINISH+48
ENT^PSIVCAL GTDATA+5
ORDERCHK^PSIVEDRG ORDCHKA+8
SAVEDRG^PSIVEDRG MULTADDS+3, MULTADDS+4, OCORD+4, OCORD+29
EDIT^PSIVEDT FINISH+43
OC^PSIVOC FINISH+46
53^PSIVORC1 FINISH+22
CKFLDS^PSIVORC1 FINISH+43
COMPLTE^PSIVORC1 FINISH+55
GTIVDRG^PSIVORC2 FINISH+36
GT531^PSIVORFA PENDING+13, FINISH+51
GTDRG^PSIVORFA FINISH+10
$$GTPCI^PSIVUTL PENDING+13
GTOT^PSIVUTL PENDING+14
ORDCHK^PSJLIFNI OCORD+24, OCORD+27
UDVARS^PSJLIORD FINISH+11
$$SCHREQ^PSJLIVFD FINISH+23
$$CHKSCHD^PSJMISC2 FINISH+26
HOLDHDR^PSJOE FINISH+13
$$ENPC^PSJUTL FINISH+19
DRGCHK^PSOORDRG OCORD+22, OCORD+26
EN^VALM PENDING+22, PENDING+24, DISPLAY+3, DISPLAY+4
PAUSE^VALM1 EN+1, FINISH+33
RE^VALM4 FINISH+34, FINISH+38, FINISH+59

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"This order is being edited by another user. Try later."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"More than one dispense IV Additives are available for:"
  • Line Location: MULTADDS+9
Function Call: WRITE
  • Prompt: !,"Orderable Item: ",$$GET1^DIQ(50.7,OI,.01)
  • Line Location: MULTADDS+10
Function Call: WRITE
  • Prompt: !," Ordered Dose: ",$P(DRG("AD",PSIDX),"^",3)
  • Line Location: MULTADDS+11
Function Call: WRITE
  • Prompt: !!,"Please select the correct dispense IV Additive below for this order:"
  • Line Location: MULTADDS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: MULTADDS+24
Routine Call
  • DIR
  • Line Location:
    • MULTADDS+21
Routine Call
  • VALM
  • Line Location:
    • PENDING+22
    • PENDING+24
    • DISPLAY+3
    • DISPLAY+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(52.6 - [#52.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.2 - [#51.2] GTDATA+7
^PS(52.6 - [#52.6] OCORD+7, IVADDCNT+6
^PS(52.7 - [#52.7] OCORD+13
^PS(53.1 - [#53.1] EN+1, EN+5, FINISH+7
^PSDRUG - [#50] OCORD+23
^TMP($J OCORD+23*

Label References

Name Line Occurrences
GTDATA PENDING+24, FINISH+35
IVADDCNT MULTADDS+8
MULTADDS FINISH+41
PENDING EN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT GTDATA+5!*, GTDATA+6!*
DDRUG OCORD+3~, OCORD+7*, OCORD+8, OCORD+13*, OCORD+14, OCORD+22, OCORD+26
DDRUG( OCORD+8*, OCORD+14*, OCORD+22!, OCORD+26!
>> DFN PENDING+12*, PENDING+13, FINISH+51, OCORD+20, OCORD+28*
DIR MULTADDS+13~
DIR("?" MULTADDS+14*
DIR("A" MULTADDS+19*, MULTADDS+20*
DIR(0 MULTADDS+21*
DIRUT MULTADDS+13~, MULTADDS+21
>> DNE FINISH+36*, FINISH+38*
>> DONE FINISH+52
DRG FINISH+39!, MULTADDS+3, MULTADDS+4, OCORD+4, OCORD+29
DRG( ORDCHKA+4, ORDCHKA+5, ORDCHKA+9
DRG("AD" FINISH+36, MULTADDS+3, MULTADDS+6, MULTADDS+7, MULTADDS+11, MULTADDS+23*, OCORD+6, OCORD+7
DRG("SOL" FINISH+36, OCORD+12, OCORD+13
DRGOC FINISH+9~
DRGOC( ORDCHKA+8, ORDCHKA+9*
DRGTMP FINISH+9~, ORDCHKA+5*, ORDCHKA+7, ORDCHKA+10
DT IVADDCNT+10
DUOUT MULTADDS+13~, MULTADDS+21
>> EDIT FINISH+43
FIL FINISH+9~, ORDCHKA+3*
INTERVEN OCORD+19~*
IVADD MULTADDS+13~, MULTADDS+16*, MULTADDS+17, MULTADDS+18, IVADDCNT+4~, IVADDCNT+5*, IVADDCNT+6*, IVADDCNT+8, IVADDCNT+10, IVADDCNT+12
IVADDCNT IVADDCNT+4~, IVADDCNT+5*, IVADDCNT+12*
IVCNT MULTADDS+13~, MULTADDS+15*, MULTADDS+16, MULTADDS+17, MULTADDS+19, MULTADDS+20, MULTADDS+21
IVLIST MULTADDS+5~, MULTADDS+8!, IVADDCNT~
IVLIST( MULTADDS+15, MULTADDS+16, MULTADDS+23, IVADDCNT+12*
IVLIST("" MULTADDS+8
NSFF FINISH+9~*, FINISH+12!, FINISH+60!
OI MULTADDS+5~, MULTADDS+7*, MULTADDS+8, MULTADDS+10, IVADDCNT~, IVADDCNT+6
>> ON PENDING+12*, PENDING+13, PENDING+17, PENDING+18, PENDING+19, FINISH+10*, FINISH+29, FINISH+51, ORDCHKA+8, ORDCHKA+9
, OCORD+23
ON55 FINISH+9~, FINISH+10*
>> P FINISH+23
>> P("DTYP" GTDATA+2*
>> P("MR" GTDATA+7*
>> P("OPI" FINISH+19*
>> P("OT" PENDING+14, PENDING+20, DISPLAY+3, DISPLAY+4, FINISH+35, FINISH+38
>> P("PON" PENDING+12*
>> P("RES" GTDATA+4, FINISH+22, FINISH+26
>> P(11 FINISH+30, FINISH+31
>> P(15 FINISH+23, FINISH+28
>> P(2 GTDATA+3, GTDATA+5*
>> P(23 GTDATA+2
>> P(3 GTDATA+6*, FINISH+36*
>> P(4 PENDING+14, GTDATA+2, FINISH+23, FINISH+34, FINISH+39*
>> P(5 GTDATA+2
>> P(9 FINISH+23, FINISH+25, FINISH+27*, FINISH+28
>> PSGACT DISPLAY+1*
>> PSGORD FINISH+10*
PSGORQF FINISH+9~!, FINISH+23, FINISH+26*, FINISH+38, FINISH+39, FINISH+51, FINISH+59, ORDCHK+3!, ORDCHKA+3, ORDCHKA+4
>> PSGP PENDING+12, ORDCHKA+8
PSGRDTX FINISH+8!
PSGS0XT FINISH+28~*
>> PSGS0Y FINISH+30
PSIDX MULTADDS+5~, MULTADDS+6*, MULTADDS+7, MULTADDS+11, MULTADDS+23
>> PSIVAC PENDING+12*
PSIVACEP PENDING+6~, FINISH+56, FINISH+58
>> PSIVAS ORDCHKA+3*, ORDCHKA+4, ORDCHKA+5, ORDCHKA+9
PSIVEDIT FINISH+6~, FINISH+8!, FINISH+42*, FINISH+46
PSIVFN1 PENDING+6~
PSIVNUM PENDING+16~*
PSIVOCON FINISH+9~, FINISH+10*
PSIVOI PENDING+6~
>> PSIVOK FINISH+43*
PSIVS FINISH+9~
>> PSIVUP PENDING+13*, FINISH+19
PSIVX ORDCHKA+4*, ORDCHKA+5, ORDCHKA+9, OCORD+3~, OCORD+21*, OCORD+22, OCORD+23, OCORD+25*, OCORD+26
PSIVXD FINISH+9~
PSJAD OCORD+3~
PSJAD( OCORD+8*, OCORD+21, OCORD+23
PSJADTMP ORDCHKA+11!
PSJADTMP( ORDCHKA+7, ORDCHKA+10*
PSJCOM FINISH+6~, FINISH+7*
PSJDFN OCORD+19~, OCORD+20*, OCORD+22, OCORD+24, OCORD+26, OCORD+27, OCORD+28
PSJDISP DISPLAY+5!
PSJFNDS PENDING+6~, PENDING+11*, FINISH+58*
>> PSJHIS DISPLAY+6
PSJIVBD PENDING+7!, FINISH+8!
PSJL PENDING+15~
PSJLMX PENDING+6~
>> PSJLYN PENDING+18, FINISH+10
PSJMAI PENDING+19*, PENDING+25!, FINISH+10
PSJNSS FINISH+28~*
PSJOCCHK PENDING+6~, PENDING+9*
PSJOCFG EN+2~, EN+3*, EN+4!
PSJOLDNM FINISH+6~, FINISH+26
PSJOLDNM("NEW_SCHD" FINISH+27, FINISH+29, FINISH+30, FINISH+32
PSJOLDNM("ORD_SCHD" FINISH+25*
>> PSJORD EN+1, EN+5, PENDING+12, PENDING+17, FINISH+7, FINISH+10, FINISH+12
>> PSJPROT FINISH+12
PSJQUIT FINISH+41~*, MULTADDS+2*, MULTADDS+3, MULTADDS+6, MULTADDS+15, MULTADDS+21*
PSJREN EN+4!, GTDATA+4*
PSJSOL OCORD+3~
PSJSOL( OCORD+14*, OCORD+25
PSJSTAR PENDING+16~, PENDING+21*, PENDING+23*
TMPDRG MULTADDS+1~, MULTADDS+3, MULTADDS+4, OCORD+3~, OCORD+4, OCORD+29
TYPE OCORD+24~*, OCORD+27~*
U OCORD+7, OCORD+13, OCORD+23
>> VALMBCK DISPLAY+6*, FINISH+26*, FINISH+39*, FINISH+41*, FINISH+52*, FINISH+56*
>> VALMBG FINISH+37*, FINISH+59*
>> VALMSG DISPLAY+2*
X GTDATA+5*, GTDATA+6*, FINISH+28~*, MULTADDS+13~, MULTADDS+17*, MULTADDS+18*, MULTADDS+19, OCORD+3~, OCORD+6*, OCORD+7
, OCORD+12*, OCORD+13
Y GTDATA+5, GTDATA+6, MULTADDS+13~, MULTADDS+22, MULTADDS+23, OCORD+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All