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

Package: Inpatient Medications

Routine: PSGOEV


Information

PSGOEV ;BIR/CML3-VERIFY (MAKE ACTIVE) ORDERS ;29-May-2012 14:31;PLS

Source Information

Source file <PSGOEV.m>

Call Graph

Call Graph Total: 27

Package Total Call Graph
Inpatient Medications 17 (,NEWUDAL)^PSGAL5  ($$DDOK,$$OIOK)^PSGOE2  $$CHECK^PSGOE8  ENDRG^PSGOEF1  EXPOE^PSGOER  ORSET^PSGOETO1  ^PSGOT  START^PSGOTR  
EN^PSGPEN  (DW,ENOS)^PSGS0  ENL^PSGVDS  VFY^PSJCOM  (DOSECHK,SETVAR)^PSJDOSE  EN1^PSJHL2  NOTIFY^PSJHL4  ($$GETDUR,REQDT)^PSJLIVMD  
$$LASTREN^PSJLMPRI  
VA Fileman 3 %XY^%RCR  ^DIE  ^DIR  
IHS Omnicell Pyxis Interface 2 NEW^BOPCAP  ^BOPSD  
Registration 2 EN^VALM  (FULL,PAUSE)^VALM1  
Kernel 1 $$PATCH^XPDUTL  
Pharmacy Data Management 1 UNL^PSSLOCK  
Text Integration Utility 1 MAIN^TIUEDIT  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Inpatient Medications 9 PSGOD  PSGOE1  PSGOEE  PSGOEF1  PSGOESF  PSGOEVS  PSJHLV  PSJOE1  
PSJOEA2  

Entry Points

Name Comments DBIA/ICR reference
DDEDIT ;
DDCHK ; dispense drug check
AESCREEN() ;
; Output: 0 - Required fields missing and DON'T allow accept
; 1 - Required fields found.
CHKM ;
ENSF ; This entry point is used by Speed finish only.
; Send SN update to CPRS if auto-verify off and from Order Set entry
EN(PSGORD) ;
DONE ;
ACTLOG(PSGORDP,DFN,PSGORD) ;Store 53.1 activity log in local array to be moved to 55
VFY ; change status, move to 55, and change label record
CONT() ;
CALLBOP ;
LBL ;
CHK(ND,DRG,ND2) ; checks for data in required fields
; Input: ND - ^(PS(53.1,PSGORD,0)
; DRG - ^(.2)
; ND2 - ^(2)

External References

Name Field # of Occurrence
%XY^%RCR DDEDIT+7
NEW^BOPCAP CALLBOP+1
^BOPSD VFY+31
^DIE VFY+19, VFY+21, VFY+25
^DIR VFY+50, DONE+3, CHKM+6, CONT+4
^PSGAL5 VFY+30
NEWUDAL^PSGAL5 VFY+32, VFY+33
$$DDOK^PSGOE2 CHK+13, DDCHK+3
$$OIOK^PSGOE2 CHK+14
$$CHECK^PSGOE8 CHK+11
ENDRG^PSGOEF1 DDEDIT+6
EXPOE^PSGOER VFY+18
ORSET^PSGOETO1 ENSF+3
^PSGOT VFY+25
START^PSGOTR VFY+20
EN^PSGPEN VFY+22, VFY+40
DW^PSGS0 VFY+10
ENOS^PSGS0 ENSF+9, VFY+13, CHK+16
ENL^PSGVDS VFY+43
VFY^PSJCOM VFY+1
DOSECHK^PSJDOSE VFY+3
SETVAR^PSJDOSE VFY+4
EN1^PSJHL2 VFY+22, VFY+52, VFY+54
NOTIFY^PSJHL4 VFY+28
$$GETDUR^PSJLIVMD VFY+35
REQDT^PSJLIVMD VFY+24
$$LASTREN^PSJLMPRI VFY+18
UNL^PSSLOCK VFY+22
MAIN^TIUEDIT DONE+5
EN^VALM ENSF+10
FULL^VALM1 ENSF+4, CHKM+1
PAUSE^VALM1 VFY+4, VFY+11
$$PATCH^XPDUTL VFY+31, CALLBOP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!," THIS FUNCTION NOT AVAILABLE TO WARD STAFF."
  • Line Location: ENSF+4
Function Call: WRITE
  • Prompt: !!,"Another terminal is editing this order."
  • Line Location: ENSF+5
Function Call: WRITE
  • Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN VERIFIED BY A PHARMACIST."
  • Line Location: ENSF+11
Function Call: WRITE
  • Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN VERIFIED BY A NURSE."
  • Line Location: ENSF+12
Function Call: WRITE
  • Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1")
  • Line Location: VFY+4
Function Call: WRITE
  • Prompt: !!,"This is a 'DAY OF WEEK' schedule and MUST have admin times.",!
  • Line Location: VFY+11
Function Call: WRITE
  • Prompt: !,"...a few moments, please..."
  • Line Location: VFY+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+19
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+25
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+30
Function Call: WRITE
  • Prompt: !,"ORDER VERIFIED.",!
  • Line Location: VFY+49
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CHK+18
Function Call: WRITE
  • Prompt: !!,"THE FOLLOWING ",$S($L(CHK)>1:"ARE",1:"IS")," EITHER INVALID OR MISSING FROM THIS ORDER:"
  • Line Location: CHKM+3
Function Call: WRITE
  • Prompt: !?5,$P("ORDERABLE ITEM^MED ROUTE^SCHEDULE TYPE^SCHEDULE^START DATE/TIME^STOP DATE/TIME^DISPENSE DRUG","^",X)
  • Condition for execution: CHK[X
  • Line Location: CHKM+3
Function Call: WRITE
  • Prompt: !,"Orders with no dispense drugs or multiple dispense drugs",!,"require dosage ordered"
  • Line Location: CHKM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: $C(7),!!,"This order must have at least one valid, active dispense drug to be verified."
  • Line Location: DDCHK+5
Routine Call
  • VALM
  • Line Location:
    • ENSF+10
Routine Call
  • DIE
  • Line Location:
    • VFY+19
    • VFY+21
    • VFY+25
Routine Call
  • DIR
  • Line Location:
    • VFY+50
    • DONE+3
    • CHKM+6
    • CONT+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101 - [#101] AESCREEN+4
^PS(50.7 - [#50.7] CHK+4
^PS(53.1 - [#53.1] ENSF+3, ENSF+5, ENSF+7, VFY+1, VFY+16, VFY+26, VFY+27, VFY+29, ACTLOG+4, ACTLOG+5
^PS(53.45 - [#53.45] DDEDIT+4!*, DDEDIT+5*
^PS(55 - [#55] ENSF+5, ENSF+11, ENSF+12, VFY+26, VFY+27, VFY+30, VFY+36*, VFY+43*, VFY+44*, VFY+45*
, VFY+46*, VFY+47!, VFY+48!, VFY+51*, ACTLOG+6, ACTLOG+7*

Label References

Name Line Occurrences
$$CONT VFY+4
ACTLOG VFY+37
CALLBOP VFY+53
CHK ENSF+7
DDCHK ENSF+6, VFY+8
DONE ENSF+5, ENSF+6, ENSF+10, ENSF+11, ENSF+12, VFY+8, VFY+9, VFY+12
VFY ENSF+11

Naked Globals

Name Field # of Occurrence
^( ENSF+7, DDEDIT+4, ACTLOG+6
^(0 ENSF+5, CHK+9, ACTLOG+6*
^(2 ENSF+7
^(4 ENSF+11, VFY+51
^(7 VFY+43*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X DDEDIT+7*
>> %Y DDEDIT+7*
CHK ENSF+5*, ENSF+6, ENSF+9*, ENSF+10, VFY+8, VFY+9, VFY+11*, VFY+12, VFY+13*, DONE+1
, DONE+2, DONE+6!, CHK+4*, CHK+5*, CHK+6*, CHK+7*, CHK+9*, CHK+10*, CHK+11*, CHK+13*
, CHK+15, CHK+16*, CHK+17, CHKM+3, CHKM+4, CHKM+5, CHKM+6*, DDCHK+1*, DDCHK+3*, DDCHK+4
, DDEDIT+7, AESCREEN+3
DA VFY+19*, VFY+21!*, VFY+25*, VFY+30*, VFY+43*, DONE+6!, AESCREEN+4
DA(1 VFY+21*, VFY+30*, AESCREEN+4
DFN VFY+17, VFY+18, VFY+21, VFY+22, VFY+26, VFY+27, VFY+28, ACTLOG~, ACTLOG+6, ACTLOG+7
DIE VFY+19*, VFY+21!*, VFY+25*, DONE+6!
DIR VFY+50!, DONE+3~, CHKM+6~, CONT+1~, CONT+2!
DIR("A" DONE+3*, CONT+3*
DIR("B" DONE+3*, CONT+3*
DIR(0 VFY+50*, DONE+3*, CHKM+6*, CONT+3*
DIRUT CONT+1~, CONT+2!
DP DONE+6!
DR VFY+19*, VFY+21!*, VFY+25*, DONE+6!
DRG CHK~, CHK+4, CHK+11, CHK+13, CHK+14, DDEDIT+8!
DRGF DDCHK+1*, DDCHK+2, DDCHK+3, DDEDIT+2, DDEDIT+4, DDEDIT+7*, DDEDIT+8!
>> DTOUT CHKM+6
>> DUOUT CHKM+6
DUR VFY+34~, VFY+35*, VFY+36
DURON VFY+34~*, VFY+35
DUZ VFY+43, VFY+44
F DONE+6!
FILE55 VFY+17~*, VFY+21
FILE55N0 VFY+17~*, VFY+18
ND DONE+6!, CHK~, CHK+6, CHK+7, CHK+10
ND2 CHK~, CHK+9, CHK+10
OEORD VFY+17~, VFY+18*, VFY+20, VFY+21
OOEORD VFY+17~, VFY+18*
PND0 VFY+16~*, VFY+17, VFY+18
>> PSGACT ENSF+11*, ENSF+12*, VFY+51*
PSGAL DONE+6!
PSGAL("C" VFY+30*
PSGAL531 ACTLOG+3~, ACTLOG+5*, ACTLOG+7
PSGALFN VFY+38!
>> PSGAT VFY+11
>> PSGCANFL VFY+51*
PSGDFLG CHK+12!, CHK+13*
>> PSGDI CHK+12*, CHK+13*
>> PSGDT VFY+43, VFY+44
PSGODA DONE+6!
>> PSGODDD(1 VFY+39
>> PSGOEAV ENSF+2*, ENSF+3
>> PSGOEEF(109 VFY+5*
PSGOES ENSF+3, ENSF+9~*, VFY+13~*, CHK+16~*
>> PSGONF VFY+39
PSGORD EN~, ENSF+3, ENSF+5*, ENSF+7, ENSF+11, ENSF+12, VFY+1, VFY+15, VFY+16, VFY+18
, VFY+19, VFY+20, VFY+23, VFY+24, VFY+25, VFY+26, VFY+27, VFY+28, VFY+30, VFY+32
, VFY+33, VFY+34, VFY+36, VFY+37, VFY+40, VFY+43, VFY+44, VFY+45, VFY+46, VFY+47
, VFY+48, VFY+51, VFY+52, VFY+54, DDCHK+1, ACTLOG~, ACTLOG+6, ACTLOG+7
PSGORDP VFY+19*, VFY+23*, VFY+29, VFY+37, ACTLOG~, ACTLOG+4, ACTLOG+5
PSGORDR VFY+16~*, VFY+17, VFY+18, VFY+20, VFY+21, VFY+22
>> PSGP ENSF+5, ENSF+11, ENSF+12, VFY+22, VFY+30, VFY+32, VFY+33, VFY+35, VFY+36, VFY+37
, VFY+43, VFY+44, VFY+45, VFY+46, VFY+47, VFY+48, VFY+51, VFY+52, VFY+54, DONE+5
, DDCHK+1
>> PSGPD DDCHK+2*, DDCHK+3, DDEDIT+6
PSGPFLG CHK+12!, CHK+14*
>> PSGRDTX VFY+29*, VFY+32, VFY+33, VFY+35
PSGRFD VFY+38!
PSGRSD VFY+38!
PSGS0XT ENSF+9~, VFY+10*, VFY+11, VFY+13~, CHK+16~
PSGS0Y ENSF+9~, VFY+13~, CHK+16~
>> PSGSCH ENSF+8, ENSF+9, VFY+9, VFY+10, VFY+12, VFY+13, CHK+15, CHK+16
>> PSGST VFY+9
>> PSGTOL VFY+43*
>> PSGTOO VFY+43*
>> PSGUOW VFY+43*
PSGX ACTLOG+3~, ACTLOG+4*, ACTLOG+5
PSGXDA ACTLOG+3~, ACTLOG+6*, ACTLOG+7
>> PSJACEPT ENSF+10, VFY+4, VFY+6*
>> PSJCOM VFY+1*
PSJDOSE VFY+2~, DONE+6!
PSJDOSE("WARN" VFY+4
PSJDOSE("WARN1" VFY+4
PSJDSFLG VFY+2~, VFY+4
>> PSJHLDFN VFY+26, VFY+27
>> PSJPRI DONE+2
PSJPRIO VFY+16~, VFY+26*, VFY+28
PSJSCHED VFY+16~, VFY+27*, VFY+28
>> PSJSPEED ENSF+10, VFY+49, VFY+50, DONE+2
>> PSJSYSL VFY+43
>> PSJSYSP CHK+11, CHK+13, DDEDIT+4, DDEDIT+5, DDEDIT+7
>> PSJSYSP0 ENSF+2
>> PSJSYSU ENSF+2, ENSF+4, ENSF+6, ENSF+11, ENSF+12, VFY+30, VFY+40, VFY+41, VFY+44, VFY+51
, VFY+52, VFY+54, DONE+2
PSJVAR DONE+6!
Q DDEDIT+4*, ACTLOG+3~, ACTLOG+6*
QQ ACTLOG+3~, ACTLOG+6*
QX VFY+10~
SDW VFY+10~
SWD VFY+10~
>> TIUDA DONE+5
U VFY+16, VFY+17, VFY+18, VFY+21, VFY+33, VFY+35, VFY+41, VFY+43, VFY+45, VFY+46
, VFY+47, VFY+48, CHK+11, AESCREEN+4, ACTLOG+6
>> VALMBCK VFY+52*, DONE+6*
VND4 VFY+30*, VFY+40, VFY+41*, VFY+44*, VFY+45, VFY+46, VFY+47, VFY+48, DONE+6!
X ENSF+5*, ENSF+9~*, VFY+10~*, VFY+13~*, VFY+39~*, VFY+40, DONE+6!, CHK+16~*, CHKM+3*, DDEDIT+4*
, DDEDIT+5, DDEDIT+6
XABB VFY+10~
Y ENSF+9~, VFY+13~, DONE+4, CHK+16~, CONT+1~, CONT+5, DDEDIT+4*, AESCREEN+4*, AESCREEN+5
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