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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSIVORC2

Package: Inpatient Medications

Routine: PSIVORC2


Information

PSIVORC2 ;BIR/MLM - PROCESS INCOMPLETE IV ORDER - CONT ;Apr 30, 2019@10:46:26

Source Information

Source file <PSIVORC2.m>

Call Graph

Call Graph Total: 31

Package Total Call Graph
Inpatient Medications 25 NEWNVAL^PSGAL5  $$FNP^PSGOE1  ENGNN^PSGOETO  (ENSTOP,ENT)^PSIVCAL  EDIT^PSIVEDT  ENLBL^PSIVOPT  DC^PSIVORA  (53,CKFLDS,COMPLTE)^PSIVORC1  
EN^PSIVORE  GSTRING^PSIVORE1  (DEL55,GTPD)^PSIVORE2  (NATURE,ORPARM,RUPDATE)^PSIVOREN  (GT531,GTDRG,PUT531,UPD100)^PSIVORFA  SETNEW^PSIVORFB  GTFLDS^PSIVORFE  ^PSIVORV2  
($$GETOPI,FILEOPI,MVOPI,MVOPIAL)^PSJBCMA5  (IV,VFYIV)^PSJCOMV  EN1^PSJHL2  CIMOI^PSJIMO1  VF1^PSJLIACT  MULTADDS^PSJLIFN  ($$COMPARE,TMPDRG1)^PSJMISC  SETOC^PSJNEWOC  
$$ENPC^PSJUTL  
VA FileMan 3 ^%DT  NOW^%DTC  (FIND,LIST)^DIC  
List Manager 1 EN^VALM  
Order Entry Results Reporting 1 EN1^ORCFLAG  
Pharmacy Data Management 1 $$LS^PSSLOCK  

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

Package Total Caller Graph
Inpatient Medications 10 PSIVOPT  PSIVORC  PSIVORC1  PSIVORE  PSJHLV  PSJLIACT  PSJLIFN  PSJLIFNI  
PSJOE  PSJOEA  

Entry Points

Name Comments DBIA/ICR reference
EDCHK ;Update or create new order in 55.
ACTIVE ;
CKORD ;Check if new order is to be created.
CKPC ;
OLDORD ; Update old order, update order links.
NEWORD ; Create new order, update order links.
GTIVDRG ; Try to find an IV drug from the Orderable Item.
; If there is only 1 match to OI then stuff in DRG otherwise prompt user to select which
; ad/sol matched to OI
EDIT ; Edit incomplete order
FINISH ; Ask only for missing data in incomplete IV order.
NONVF() ; Updated 53.1 status to non-verified after finish.
NWNONVF ;Create non-verified due to edit
VF ; Display Verify screen
RESET ;Reset PSIVOI("DILIST") for additives with quick codes

External References

Name Field # of Occurrence
^%DT FINISH+4, FINISH+5
NOW^%DTC GTIVDRG+4
FIND^DIC GTIVDRG+6
LIST^DIC GTIVDRG+9
EN1^ORCFLAG VF+10
NEWNVAL^PSGAL5 NONVF+13, NONVF+14, NONVF+17, NONVF+18, NWNONVF+10
$$FNP^PSGOE1 VF+9
ENGNN^PSGOETO NWNONVF+1
ENSTOP^PSIVCAL FINISH+5
ENT^PSIVCAL FINISH+4
EDIT^PSIVEDT FINISH+13
ENLBL^PSIVOPT ACTIVE+14
DC^PSIVORA NEWORD+2, NWNONVF+3
53^PSIVORC1 EDIT+4, FINISH+3
CKFLDS^PSIVORC1 FINISH+13
COMPLTE^PSIVORC1 FINISH+13
EN^PSIVORE ACTIVE+11
GSTRING^PSIVORE1 EDIT+5
DEL55^PSIVORE2 NONVF+19
GTPD^PSIVORE2 NONVF+7, NWNONVF+7
NATURE^PSIVOREN EDCHK+2
ORPARM^PSIVOREN EDCHK+1
RUPDATE^PSIVOREN ACTIVE+8
GT531^PSIVORFA VF+3
GTDRG^PSIVORFA FINISH+1
PUT531^PSIVORFA OLDORD+6, NONVF+12, NWNONVF+8
UPD100^PSIVORFA OLDORD+6
SETNEW^PSIVORFB ACTIVE+9
GTFLDS^PSIVORFE EDIT+5
^PSIVORV2 EDIT+4
$$GETOPI^PSJBCMA5 ACTIVE+5, ACTIVE+6, ACTIVE+7
FILEOPI^PSJBCMA5 ACTIVE+5, ACTIVE+6, ACTIVE+7, NWNONVF+2
MVOPI^PSJBCMA5 ACTIVE+10
MVOPIAL^PSJBCMA5 ACTIVE+10
IV^PSJCOMV EDCHK+4
VFYIV^PSJCOMV ACTIVE+2
EN1^PSJHL2 ACTIVE+15, NEWORD+4, NWNONVF+11
CIMOI^PSJIMO1 ACTIVE+12
VF1^PSJLIACT ACTIVE+13
MULTADDS^PSJLIFN FINISH+10
$$COMPARE^PSJMISC CKORD+11
TMPDRG1^PSJMISC CKORD+10
SETOC^PSJNEWOC VF+17
$$ENPC^PSJUTL FINISH+2
$$LS^PSSLOCK NWNONVF+13
EN^VALM EDIT+7, VF+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Either the Inpatient Medications or the IV Medications package is not on, please check the Order Parameters file"
  • Line Location: EDCHK+1
Function Call: WRITE
  • Prompt: $C(7),"Order unchanged"
  • Line Location: EDCHK+2
Function Call: WRITE
  • Prompt: !,"...transcribing this non-verified order...."
  • Line Location: NONVF+10
Routine Call
  • DIC
  • Line Location:
    • GTIVDRG+6
Routine Call
  • DIC
  • Line Location:
    • GTIVDRG+9
Routine Call
  • VALM
  • Line Location:
    • EDIT+7
    • VF+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
52.61 LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( GTIVDRG+15
^PS(51.2 - [#51.2] FINISH+6
^PS(53.1 - [#53.1] ACTIVE+3, ACTIVE+16, CKORD+2, CKORD+3, CKORD+7, CKPC+8, OLDORD+2, OLDORD+5, OLDORD+6*, NEWORD+2*
NEWORD+3, NONVF+9, NONVF+11*, NONVF+16, NWNONVF+3*, NWNONVF+5*, NWNONVF+9*
^PS(53.45 - [#53.45] ACTIVE+8, NWNONVF+2
^PS(55 - [#55] ACTIVE+15, ACTIVE+16, OLDORD+2*, OLDORD+3, OLDORD+4, NEWORD+3*
^SC - [#44] NONVF+17
^TMP("PSODAOC" NONVF+2*, NWNONVF+12*

Label References

Name Line Occurrences
$$NONVF EDCHK+5
@( ACTIVE+9
CKORD EDCHK+1
GTIVDRG EDIT+3, FINISH+2
NWNONVF NONVF+5
RESET GTIVDRG+12
VF NONVF+20, NWNONVF+14

Naked Globals

Name Field # of Occurrence
^(0 OLDORD+4*, OLDORD+5*
^(2 OLDORD+2*, OLDORD+3*, NEWORD+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GTIVDRG+4
%DT FINISH+4!*, FINISH+5!*
CNT RESET+1~*, RESET+2*, RESET+4*, RESET+6
DA NWNONVF+1!
>> DFN ACTIVE+5, ACTIVE+6, ACTIVE+7, ACTIVE+8, ACTIVE+10, ACTIVE+12, ACTIVE+14, ACTIVE+15, ACTIVE+16, CKORD+10
OLDORD+2, OLDORD+3, OLDORD+4, NEWORD+3, NEWORD+4, NWNONVF+2, NWNONVF+11, VF+3
>> DNE CKPC+6*, CKPC+7, CKPC+8, CKPC+9*, CKPC+10*, GTIVDRG+15*, FINISH+2*
>> DONE EDIT+6
>> DRG CKORD+11, CKPC+9*, GTIVDRG+14*, GTIVDRG+15
>> DRG( CKPC+6, CKPC+7, CKPC+9, GTIVDRG+15*
>> DRG("AD" EDIT+3, FINISH+2
>> DRG("SOL" EDIT+3, FINISH+2
>> DRGI CKPC+7*, CKPC+9*
>> DRGT CKPC+6*, CKPC+7, CKPC+8, CKPC+9, GTIVDRG+7*, GTIVDRG+15
DUZ ACTIVE+14, VF+6
>> EDIT FINISH+13
FIL CKPC+6*, GTIVDRG+3~, GTIVDRG+6*, GTIVDRG+7, GTIVDRG+15
LYN RESET+8!
LYN( RESET+2*, RESET+4*, RESET+7
ND CKORD+2~, CKORD+4*, CKORD+5*, CKORD+6, CKORD+8~, CKPC+7~, CKPC+8*, CKPC+9, CKPC+10!, GTIVDRG+3~
GTIVDRG+15*
ND("CNT" CKPC+8*, CKPC+10
ND("PD" CKORD+2*, CKORD+4
ND(0 CKORD+2*, CKORD+4, CKORD+5
NWCLN NONVF+8~, NONVF+16*, NONVF+17, NONVF+18
>> OD ACTIVE+11*
OLCLN NONVF+8~, NONVF+9*, NONVF+17, NONVF+18
>> ON ACTIVE+3, ACTIVE+8, ACTIVE+9, ACTIVE+11*, CKORD+2, CKORD+3, CKORD+7, CKORD+10, CKPC+8, OLDORD+2
OLDORD+6*, NEWORD+2, NEWORD+3*, NONVF+2, NONVF+9, NONVF+11, NONVF+13, NONVF+14, NONVF+16, NONVF+17
, NONVF+18, NONVF+19, NWNONVF+3, NWNONVF+4*, NWNONVF+9, NWNONVF+10, NWNONVF+11, NWNONVF+12, NWNONVF+13, VF+1
VF+3, VF+4, VF+9, VF+17
ON1 CKPC+7~, CKPC+8*
>> ON55 ACTIVE+6, ACTIVE+9, ACTIVE+10, ACTIVE+11*, ACTIVE+12, ACTIVE+14, ACTIVE+15, ACTIVE+16, OLDORD+2, OLDORD+3
OLDORD+4, OLDORD+5, OLDORD+6, NEWORD+3, NEWORD+4, VF+4*
>> ORSTS ACTIVE+9*
>> P("21FLG" EDCHK+3*
>> P("CLRK" CKORD+5, VF+6
>> P("DO" NWNONVF+7*
>> P("DTYP" CKORD+7, CKORD+11, FINISH+3*
>> P("MR" CKORD+6, FINISH+6*
>> P("NAT" EDCHK+2, NEWORD+2, NWNONVF+3
>> P("NEWON" ACTIVE+4*, ACTIVE+5, ACTIVE+7, ACTIVE+9*, ACTIVE+11, NEWORD+2, NEWORD+3*, NWNONVF+1*, NWNONVF+2, NWNONVF+3
NWNONVF+4, NWNONVF+5
>> P("OLDON" ACTIVE+4, OLDORD+2*, OLDORD+3, OLDORD+4, OLDORD+5, NWNONVF+4*, NWNONVF+5, NWNONVF+9, VF+6
>> P("OPI" FINISH+2*
>> P("OT" CKORD+4, CKORD+6, CKPC+3, EDIT+3, FINISH+2, VF+11, VF+12
>> P("PD" CKORD+6, GTIVDRG+6
>> P("PON" ACTIVE+6
>> P("PRNTON" ACTIVE+1
>> P("REN" NONVF+6*, NWNONVF+1*
>> P("RES" ACTIVE+3*, ACTIVE+4, ACTIVE+9, OLDORD+1, OLDORD+2, OLDORD+3, OLDORD+4, OLDORD+5, NEWORD+1, NWNONVF+6*
>> P(17 ACTIVE+9*, NONVF+6*, NWNONVF+1*, VF+6
>> P(2 ACTIVE+8, ACTIVE+11, FINISH+4*
>> P(23 FINISH+3
>> P(3 FINISH+5*
>> P(4 EDIT+4, FINISH+3
>> P(5 FINISH+3
>> P(6 ACTIVE+9, CKORD+5, CKORD+6
>> P(8 CKORD+3, CKORD+4, CKORD+6
>> P(9 CKORD+7
>> PSGACT VF+5*, VF+6*, VF+8*, VF+9*, VF+10*
PSGOEAV NONVF+1~*, NONVF+3, NONVF+4
>> PSGP NWNONVF+13
>> PSIVAC NEWORD+2*, EDIT+2*, NWNONVF+3*
>> PSIVCHG EDCHK+2, EDCHK+3, ACTIVE+9, CKORD+1*, CKORD+2*, CKORD+6*, CKORD+7*, CKORD+9, CKORD+11*, CKORD+13
CKPC+3, CKPC+9*, CKPC+10*, NONVF+5
>> PSIVCOPY CKORD+1
>> PSIVDSFG CKORD+7*
PSIVENO EDIT+1!, EDIT+7*, VF+17
PSIVOI GTIVDRG+3!, GTIVDRG+7*, GTIVDRG+8, GTIVDRG+16!
PSIVOI("DILIST" GTIVDRG+6, GTIVDRG+9, GTIVDRG+10*, GTIVDRG+13, GTIVDRG+14, GTIVDRG+16, RESET+2, RESET+3, RESET+4, RESET+5!
RESET+6*, RESET+7*
>> PSIVOK FINISH+12*
PSIVORFA NONVF+19~*
PSIVQC("DILIST" GTIVDRG+10, GTIVDRG+11!
>> PSIVUP FINISH+2
PSJCHG CKORD+2~
>> PSJCOM EDCHK+4, ACTIVE+1*, ACTIVE+2
PSJEDFLG VF+13, VF+15!
>> PSJINFIN NONVF+14
>> PSJIOPIV ACTIVE+10
PSJIVBD VF+2!
>> PSJIVORF EDCHK+1, EDCHK+2, NEWORD+4
>> PSJNOL NWNONVF+13*
PSJNOW GTIVDRG+3~, GTIVDRG+4*
PSJNVO ACTIVE+5~*, ACTIVE+6*
>> PSJOCFG VF+17
>> PSJORD ACTIVE+9*, ACTIVE+10, ACTIVE+12, ACTIVE+16, NEWORD+3, NWNONVF+3*, VF+4*
>> PSJORNAT NEWORD+2*, NWNONVF+3*
>> PSJORNP ACTIVE+9*
>> PSJOSTOP ACTIVE+4*
PSJQUIT FINISH+10~*
>> PSJSTAR VF+11*, VF+12*
>> PSJSYSP ACTIVE+8, NWNONVF+2
>> PSJSYSP0 NONVF+1
>> PSJSYSU NONVF+3, NONVF+4, NONVF+13, NWNONVF+10, VF+8, VF+9, VF+10
PSJTROPI ACTIVE+5~*, ACTIVE+6*, ACTIVE+7*
QC GTIVDRG+9~, GTIVDRG+10*
SCR GTIVDRG+3~
SCR("S" GTIVDRG+5*, GTIVDRG+6
TDRG CKORD+8~, CKPC+7~, CKPC+10!
TDRG( CKPC+7*, CKPC+9
TDRG("CNT" CKPC+7*, CKPC+10
TMPDRG CKORD+8~, CKORD+10, CKORD+11, CKORD+12!
U ACTIVE+3, CKORD+2, CKORD+3, CKORD+4, CKORD+5, CKORD+6, CKORD+7, CKPC+7, CKPC+9, OLDORD+2
OLDORD+3, OLDORD+4, OLDORD+5, OLDORD+6, NEWORD+2, NEWORD+3, GTIVDRG+15, NONVF+1, NONVF+11, NWNONVF+3
NWNONVF+9
>> VALMBCK EDIT+7*, FINISH+10*
X CKORD+3~*, CKORD+4, FINISH+4*, FINISH+5*
XX GTIVDRG+9~*, GTIVDRG+10, RESET+1~, RESET+2*, RESET+3, RESET+4, RESET+7*
XXX GTIVDRG+9~*, RESET+1~, RESET+3*, RESET+4
>> Y FINISH+4, FINISH+5

Marked Items

Name Field # of Occurrence
$T(EN1^ORCFLAG VF+10
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 |  Naked Globals |  Local Variables |  Marked Items  | All