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 |  All
Print Page as PDF
Routine: PSIVORE

Package: Inpatient Medications

Routine: PSIVORE


Information

PSIVORE ;BIR/PR,MLM-ORDER ENTRY ;29-May-2012 14:34;PLS

Source Information

Source file <PSIVORE.m>

Call Graph

Call Graph Total: 27

Package Total Call Graph
Inpatient Medications 20 ENQL^PSGLW  ENGNN^PSGOETO  (ENCHS1,ENGETP,ENQ,Q)^PSIV  ^PSIVCHK  ^PSIVHLP  (,ENLBL)^PSIVOPT  VF^PSIVORC2  (DEL55,GTPD,NEW)^PSIVORE2  
(CLINIC,NATURE,ORPARM)^PSIVOREN  PUT531^PSIVORFA  (NEW55,SET55)^PSIVORFB  SET^PSIVORFE  ^PSIVORLB  ($$GTPCI,GTOT)^PSIVUTL  ^PSIVXU  WP^PSJAC  
EN1^PSJHL2  VF1^PSJLIACT  (HOLDHDR,LOCKERR)^PSJOE  ($$ENORL,EFDIV)^PSJUTL  
Registration 2 (DEM,INP)^VADPT  EN^VALM  
VA Fileman 2 FILE^DICN  ^DIR  
IHS Changes To Pharmacy 1 SETPTCX^APSPFUNC  
Order Entry Results Reporting 1 (LK,ULK)^ORX2  
Pharmacy Data Management 1 ($$L,UL)^PSSLOCK  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSIVOPT1  PSIVORC  PSIVORC2  PSJCOMR  PSJI ORDER  PSJLIACT  PSJOE0  

Entry Points

Name Comments DBIA/ICR reference
OK1
DEL55 ;
EN ;Update schedule interval P(15) only on continuous orders.
OK ;Print example label, run order through checker, ask if it is ok.
ULK ;
ENIN1 ;
SETN ;Set up patient 0 node if needed.
DOA
SPSOL
BEG ;Get patient and make sure he is living.
BAD ;; I X["N" D GSTRING^PSIVORE1,^PSIVORV2,GTFLDS^PSIVORFE G OK
SITE ;See if site parameters are ok.
Q ; Kill and exit.
INMED
HK ;Queue job to print MAR labels generated for this patient.
ENIN ;Entry for Combined IV/UD order entry. Called by PSJOE0.
CAL ;Calculate doses.
ASK ;See if patient has been admitted.
NEW ;Ask to enter new order.
ENQ
NONVF(PSJOC) ;If file at NonVF then quit with 1

External References

Name Field # of Occurrence
SETPTCX^APSPFUNC SETN+1
FILE^DICN SETN+2
^DIR ASK+2, NEW+2, ENIN1+3
LK^ORX2 NEW+3
ULK^ORX2 ULK+2
ENQL^PSGLW BEG+6, HK+3
ENGNN^PSGOETO NONVF+4
ENCHS1^PSIV SETN+6
ENGETP^PSIV BEG+5
ENQ^PSIV OK+8
Q^PSIV Q+1
^PSIVCHK OK+2
^PSIVHLP BAD+3
^PSIVOPT CAL+2
ENLBL^PSIVOPT OK1+7
VF^PSIVORC2 NONVF+13
DEL55^PSIVORE2 INMED+1, DOA, OK1+2, DEL55+5
GTPD^PSIVORE2 OK+1, NONVF+5
NEW^PSIVORE2 INMED+1
CLINIC^PSIVOREN OK1+4, NONVF+7
NATURE^PSIVOREN OK1+2, NONVF+6
ORPARM^PSIVOREN SITE+3, OK1+1
PUT531^PSIVORFA NONVF+9
NEW55^PSIVORFB INMED
SET55^PSIVORFB OK1+3
SET^PSIVORFE OK1+5
^PSIVORLB OK+4
$$GTPCI^PSIVUTL INMED+1
GTOT^PSIVUTL OK+1
^PSIVXU SITE+1
WP^PSJAC HK+3
EN1^PSJHL2 OK1+5, NONVF+10
VF1^PSJLIACT OK1+6
HOLDHDR^PSJOE ENIN+1
LOCKERR^PSJOE BEG+1
$$ENORL^PSJUTL OK1
EFDIV^PSJUTL OK+6
$$L^PSSLOCK BEG+5
UL^PSSLOCK BEG+5
DEM^VADPT NEW+1
INP^VADPT HK+3
EN^VALM BAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Patient has died."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"You have no IV ROOM parameters ... PLEASE ... PLEASE ...",!,"Exit this package and reenter properly !!",!!
  • Line Location: SITE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENIN+2
Function Call: WRITE
  • Prompt: !,"...transcribing this non-verified order...."
  • Line Location: NONVF+8
Routine Call
  • VALM
  • Line Location:
    • BAD+2
Routine Call
  • DIR
  • Line Location:
    • ASK+2
    • NEW+2
    • ENIN1+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(55 - [#55] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OK+4
^PS(53.1 - [#53.1] DEL55+3*
^PS(53.45 - [#53.45] BEG+1, Q+1
^PS(55 - [#55] SETN+2*, SETN+4*, INMED+2, EN+2, EN+3*, EN+4*, SPSOL, DEL55+2, DEL55+3

Label References

Name Line Occurrences
$$NONVF DOA+1
@( ENIN1+6
ASK BEG+5
BAD OK+3
DEL55 NONVF+6, NONVF+11
DOA OK+2
EN CAL+2
ENIN ENIN1+7
ENQ EN+3
HK SETN+6
INMED ENIN1+7
NEW INMED, INMED+1, INMED+2
OK INMED+2, BAD+3
OK1 OK+8
Q BEG+1, BEG+7, INMED
SITE PSIVORE+14
SPSOL EN+3
ULK INMED, INMED+1, INMED+2

Naked Globals

Name Field # of Occurrence
^( SPSOL
^(0 EN+2
^(2 DEL55+3*
^(5.1 SETN+2!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SETN+2!, ENIN1+1~, NONVF+4!
DD SETN+2!
DFN BEG+5, SETN+1, SETN+2, SETN+4, SETN+6, NEW+3, INMED+2, ULK+2, HK+1, HK+2~*
, HK+4, OK1+5, OK1+7, EN+2, EN+3, EN+4, SPSOL, NONVF+10, DEL55+2, DEL55+3
DIC SETN+2!*
DIC(0 SETN+2*
DIK ASK+2!
DINUM SETN+2*!
DIR ASK+2!, NEW+2!, ENIN1+1~
DIR("??" ASK+2*, NEW+2*
DIR("A" ASK+2*, NEW+2*, ENIN1+3*
DIR("B" ASK+2*, NEW+2*
DIR(0 ASK+2*, NEW+2*, ENIN1+3*
DO SETN+2!
>> DONE ENIN+3*
>> DTOUT ENIN1+5
>> DUOUT OK+2
DUZ BEG+1, Q+1, OK1+7
>> ERR OK+3, OK+8
FIL Q+2!
FLAG PSIVORE+12~, ENIN+3*, ENIN1+5, ENIN1+6*
>> HELP BAD+3*
I1 Q+2!
ND Q+2!
>> OD OK1+5*, CAL+2*
>> ON BAD+2*, OK1*, OK1+5*, NONVF+4*, NONVF+10, NONVF+12, DEL55+3
ON55 INMED!, INMED+1, INMED+2, BAD+1, BAD+2, OK1, OK1+5, OK1+7, EN+2, EN+3
, EN+4, SPSOL, NONVF+6, NONVF+11, NONVF+12*, DEL55+1, DEL55+2, DEL55+3
>> ORNATR OK1+5*
>> ORSTS OK1*
P NEW+2!, ENIN1+2!
P("FRES" INMED*
P("INS" BAD+2*
P("NAT" OK1+2, OK1+5, NONVF+6
P("OT" INMED*
P("PD" OK+1
P("PON" INMED+1*
P("REN" NONVF+4*
P("RES" INMED+1*
P(15 EN+3*, EN+4*
P(17 BAD+1*, OK1*, NONVF+4*
P(2 INMED+1, OK+4, OK1+5, CAL+2
P(21 BAD+1
P(22 OK1+4
P(23 ENIN1+6*
P(3 OK+4
P(4 INMED*, OK+1
P(5 ENIN1+6*
P(6 OK1
>> P16 OK+1*
PC Q+2!
PDM Q+2!
PPAGE PSIVORE+12~, BEG+5*
PSGDT Q+2!
PSGEBN BAD+2~*
PSGID Q+2!
PSGLI BAD+2~*
PSGLMT Q+2!
PSGOEAV NONVF+1~*, NONVF+2, NONVF+3
>> PSGOP PSIVORE+14*, BEG+6, HK+1, HK+2, HK+4*
>> PSGP SETN+6*
PSGPTMP PSIVORE+12~, BEG+5*
PSGSI Q+2!
PSIVAC SETN+6*, INMED+1*, Q+2!, OK+8, ENIN+3*
>> PSIVBR SETN+6*
PSIVCHG NEW+2!, Q+2!, OK+7, ENIN1+2!
>> PSIVCOPY OK+8
>> PSIVCT OK+1*
PSIVEXAM OK+1*, OK+4!
PSIVFN SETN+2!*
>> PSIVNOL OK+1*
PSIVORFA DEL55+4~*
PSIVQ PSIVORE+14!, SITE+1!, SITE+3*
>> PSIVSITE SITE+2
>> PSIVSN SITE+2
PSIVTYPE NEW+2!, ENIN1+6*
PSIVUP INMED+1*, Q+2!
PSIVX Q+2!
PSJACNWP HK+2~
PSJACPF HK+2~, HK+3*
PSJCOM ENIN1+2!
>> PSJIVBD OK+9*
>> PSJIVORF OK1+1, OK1+2, OK1+4, OK1+5
PSJLK BEG+4~, BEG+5*
PSJLSORX NEW+3*, ULK+1, ULK+2!
PSJNARC SETN+5*, Q+2!
PSJNEW PSIVORE+12~*
>> PSJNKF Q+1*
PSJOC NONVF~, NONVF+10
PSJOE NEW+2!, INMED, INMED+1, INMED+2, Q+1, ENIN1+1~, ENIN1+3*
>> PSJOEPF ENIN1+4*
PSJOPC Q+2!
PSJORD BAD+2*, NONVF+12~*
>> PSJORL OK1*
>> PSJORNP OK1*
>> PSJORQF ENIN1+5*, ENIN1+7*
PSJOUT PSIVORE+12~, INMED!, ENIN+3~, ENIN1+7
PSJPCAF ENIN1+1~
PSJPWD SETN+6*, HK+2~, HK+3*
PSJSYSL BEG+6, HK+2~, HK+3, ENIN1+1~
>> PSJSYSP0 NONVF+1
>> PSJSYSU NONVF+2, NONVF+3
PSJSYSW HK+2~
PSJSYSW0 HK+2~
SPSOL EN+3, ENQ!, SPSOL*
U HK+3, EN+2, EN+3, EN+4, SPSOL, ENIN1+6, NONVF+1, DEL55+3
>> VADM(1 NEW+1, NEW+2
>> VADM(6 ASK+1
VAERR HK+2~
VAIN HK+2~
VAIN(4 ASK+2, ASK+3, SETN+6, HK+3, OK1, ENIN1+1, NONVF+7
>> VALMBCK BAD+2*
WSCHADM BEG+5!, ASK+3*, ENIN1+1~*
X SETN+2*, NEW+3~*, ULK+2~*, OK+2*, OK+3*, OK+8*, BAD+2, BAD+3, DOA, ENIN1+4
, ENIN1+5*, DEL55+2*, DEL55+3
>> XQUIT SITE+1
XXX EN+3*, EN+4, ENQ!, SPSOL*, SPSOL+1!
>> Y ASK+2, NEW+2, NEW+3, OK+4*, ENIN1+6
>> ZZND OK+6
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 |  All