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 ; 12/9/18 4:26am

Source Information

Source file <PSGOEV.m>

Call Graph

Call Graph Total: 34

Package Total Call Graph
Inpatient Medications 25 (,NEWUDAL)^PSGAL5  ($$DDOK,$$OIOK)^PSGOE2  $$CHECK^PSGOE8  ENDRG^PSGOEF1  EXPOE^PSGOER  ORSET^PSGOETO1  ^PSGOT  START^PSGOTR  
EN^PSGPEN  (DW,ENOS)^PSGS0  ENDDC^PSGSICHK  ENL^PSGVDS  NEWJ^PSJADM  PROFILE^PSJBLDOC  $$ISCLOZ^PSJCLOZ  VFY^PSJCOM  
(DOSECHK,SETVAR)^PSJDOSE  EN1^PSJHL2  NOTIFY^PSJHL4  ($$GETDUR,REQDT)^PSJLIVMD  $$LASTREN^PSJLMPRI  $$CHKSCHD^PSJMISC2  SETOC^PSJNEWOC  IN^PSJOCDS  
CLOZSND^PSJOE  
VA FileMan 5 %XY^%RCR  LIST^DIC  ^DIE  $$GET1^DIQ  ^DIR  
List Manager 2 EN^VALM  (FULL,PAUSE)^VALM1  
Pharmacy Data Management 1 UNL^PSSLOCK  
Text Integration Utility 1 MAIN^TIUEDIT  

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

Package Total Caller Graph
Inpatient Medications 10 PSGOD  PSGOE1  PSGOEE  PSGOEF1  PSGOESF  PSGOEVS  PSJHLV  PSJOE1  
PSJU LM ACCEPT MENU  PSJU LM VERIFY  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN(PSGORD) ;
ENSF ; This entry point is used by Speed finish only.
; Send SN update to CPRS if auto-verify off and from Order Set entry
VFY ; change status, move to 55, and change label record **ENHANCEMENTS MADE IN PSJ*5.0*260 **CCR 6214 **CCR 6244
DONE ;
LBL ;
ALLERGY(PSGORD,PSJALLGY) ;setup PSJALLGY when non-vf was selected to verify
CHK(ND,DRG,ND2) ; checks for data in required fields
; Input: ND - ^(PS(53.1,PSGORD,0)
; DRG - ^(.2)
; ND2 - ^(2)
CHKM ;
CONT() ;
DDCHK ; dispense drug check
DDEDIT ;
AESCREEN() ;
; Output: 0 - Required fields missing and DON'T allow accept
; 1 - Required fields found.
ACTLOG(PSGORDP,DFN,PSGORD)

External References

Name Field # of Occurrence
%XY^%RCR DDEDIT+7
LIST^DIC ALLERGY+3
^DIE VFY+33, VFY+35, VFY+39, VFY+66
$$GET1^DIQ VFY+7, VFY+64, ALLERGY+5, ALLERGY+6
^DIR VFY+72, DONE+3, CHKM+7, CONT+4
^PSGAL5 VFY+44
NEWUDAL^PSGAL5 VFY+45, VFY+46
$$DDOK^PSGOE2 CHK+14, DDCHK+3
$$OIOK^PSGOE2 CHK+15
$$CHECK^PSGOE8 CHK+12
ENDRG^PSGOEF1 DDEDIT+6
EXPOE^PSGOER VFY+32
ORSET^PSGOETO1 ENSF+4
^PSGOT VFY+39
START^PSGOTR VFY+34
EN^PSGPEN VFY+36, VFY+53
DW^PSGS0 VFY+24
ENOS^PSGS0 ENSF+14, VFY+27, CHK+17
ENDDC^PSGSICHK VFY+15
ENL^PSGVDS VFY+55
NEWJ^PSJADM VFY+77
PROFILE^PSJBLDOC VFY+8
$$ISCLOZ^PSJCLOZ VFY+63
VFY^PSJCOM VFY+1
DOSECHK^PSJDOSE VFY+3
SETVAR^PSJDOSE VFY+18
EN1^PSJHL2 VFY+36, VFY+69, VFY+79
NOTIFY^PSJHL4 VFY+42
$$GETDUR^PSJLIVMD VFY+48
REQDT^PSJLIVMD VFY+38
$$LASTREN^PSJLMPRI VFY+32
$$CHKSCHD^PSJMISC2 ENSF+11
SETOC^PSJNEWOC VFY+74
IN^PSJOCDS VFY+15
CLOZSND^PSJOE VFY+77
UNL^PSSLOCK VFY+36
MAIN^TIUEDIT DONE+5
EN^VALM ENSF+15, VFY+15
FULL^VALM1 ENSF+5, VFY+17, CHKM+1
PAUSE^VALM1 VFY+18, VFY+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!," THIS FUNCTION NOT AVAILABLE TO WARD STAFF."
  • Line Location: ENSF+5
Function Call: WRITE
  • Prompt: !!,"Another terminal is editing this order."
  • Line Location: ENSF+6
Function Call: WRITE
  • Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN VERIFIED BY A PHARMACIST."
  • Line Location: ENSF+16
Function Call: WRITE
  • Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN VERIFIED BY A NURSE."
  • Line Location: ENSF+17
Function Call: WRITE
  • Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1")
  • Line Location: VFY+18
Function Call: WRITE
  • Prompt: !!,"This is a 'DAY OF WEEK' schedule and MUST have admin times.",!
  • Line Location: VFY+25
Function Call: WRITE
  • Prompt: !,"...a few moments, please..."
  • Line Location: VFY+28
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+33
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+39
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+44
Function Call: WRITE
  • Prompt: !,"ORDER VERIFIED.",!
  • Line Location: VFY+71
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CHK+19
Function Call: WRITE
  • Prompt: !!,"THE FOLLOWING ",$S($L(CHK)>1:"ARE",1:"IS")," EITHER INVALID OR MISSING FROM THIS ORDER:"
  • Line Location: CHKM+4
Function Call: WRITE
  • Prompt: !?5,$P("ORDERABLE ITEM^MED ROUTE^SCHEDULE TYPE^SCHEDULE^START DATE/TIME^STOP DATE/TIME^DISPENSE DRUG^DOSAGE ORDERED","^",X)
  • Condition for execution: CHK[X
  • Line Location: CHKM+4
Function Call: WRITE
  • Prompt: !,"Orders with no dispense drugs or multiple dispense drugs",!,"require dosage ordered"
  • Line Location: CHKM+5
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
  • DIC
  • Line Location:
    • ALLERGY+3
Routine Call
  • DIE
  • Line Location:
    • VFY+33
    • VFY+35
    • VFY+39
    • VFY+66
Routine Call
  • DIR
  • Line Location:
    • VFY+72
    • DONE+3
    • CHKM+7
    • CONT+4
Routine Call
  • VALM
  • Line Location:
    • ENSF+15
    • VFY+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(53.1 - [#53.1] Classic Fileman Calls
53.11 GET1^DIQ,  LIST^DIC
55.06 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101 - [#101] AESCREEN+4
^PS(50.7 - [#50.7] CHK+5
^PS(53.1 - [#53.1] ENSF+4, ENSF+6, ENSF+9, ENSF+12, VFY+1, VFY+5, VFY+6, VFY+30, VFY+40, VFY+41
VFY+43, ACTLOG+4, ACTLOG+5, ACTLOG+8, ACTLOG+9, ACTLOG+10
^PS(53.45 - [#53.45] DDEDIT+4!*, DDEDIT+5*
^PS(55 - [#55] ENSF+6, ENSF+9, ENSF+16, ENSF+17, VFY+40, VFY+41, VFY+44, VFY+49*, VFY+55*, VFY+56*
VFY+57*, VFY+58*, VFY+59!, VFY+60!, VFY+61*, ACTLOG+6, ACTLOG+7*, ACTLOG+9*, ACTLOG+10*
^TMP("PSODAOC" VFY+70*
^TMP($J VFY+9, VFY+11, VFY+15!, VFY+64, VFY+66, VFY+67!

Label References

Name Line Occurrences
$$CONT VFY+18
ACTLOG VFY+50
ALLERGY VFY+15
CHK ENSF+12
DDCHK ENSF+7, VFY+22
DONE ENSF+6, ENSF+7, ENSF+11, ENSF+15, ENSF+16, ENSF+17, VFY+22, VFY+23, VFY+26
VFY ENSF+16

Naked Globals

Name Field # of Occurrence
^( ENSF+12, DDEDIT+4, ACTLOG+6
^(0 ENSF+6, CHK+10, ACTLOG+6*
^(2 ENSF+12
^(4 ENSF+16, VFY+61
^(7 VFY+55*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X DDEDIT+7*, DDEDIT+8!
%Y DDEDIT+7*, DDEDIT+8!
ARR ALLERGY+1~
ARR("DILIST" ALLERGY+4
CHK ENSF+6*, ENSF+7, ENSF+11*, ENSF+14*, ENSF+15, VFY+22, VFY+23, VFY+25*, VFY+26, VFY+27*
DONE+1, DONE+2, DONE+6!, CHK+5*, CHK+6*, CHK+7*, CHK+8*, CHK+10*, CHK+11*, CHK+12*
, CHK+14*, CHK+16, CHK+17*, CHK+18, CHKM+1, CHKM+4, CHKM+5, CHKM+6, CHKM+7*, DDCHK+1*
DDCHK+3*, DDCHK+4, DDEDIT+7, AESCREEN+3
CLOZFLG VFY+63~*, VFY+64, VFY+77
DA VFY+33*, VFY+35!*, VFY+39*, VFY+44*, VFY+55*, VFY+65~*, DONE+6!, AESCREEN+4
DA(1 VFY+35*, VFY+44*, VFY+65*, AESCREEN+4
DFN VFY+8, VFY+31, VFY+32, VFY+35, VFY+36, VFY+40, VFY+41, VFY+42, ACTLOG~, ACTLOG+6
, ACTLOG+7, ACTLOG+9, ACTLOG+10
DIE VFY+33*, VFY+35!*, VFY+39*, VFY+65~*, DONE+6!
DIR VFY+72!, DONE+3~, CHKM+7~, CONT+1~, CONT+2!
DIR("A" DONE+3*, CONT+3*
DIR("B" DONE+3*, CONT+3*
DIR(0 VFY+72*, DONE+3*, CHKM+7*, CONT+3*
DIRUT CONT+1~, CONT+2!
DP DONE+6!
DR VFY+33*, VFY+35!*, VFY+39*, VFY+65~, VFY+66*, DONE+6!
DRG CHK~, CHK+5, CHK+12, CHK+14, CHK+15, DDEDIT+8!
DRGF DDCHK+1*, DDCHK+2, DDCHK+3, DDEDIT+2, DDEDIT+4, DDEDIT+7*, DDEDIT+8!
DT ALLERGY+6
DTOUT CHKM+7~
DUOUT CHKM+7~
DUR VFY+47~, VFY+48*, VFY+49
DURON VFY+47~*, VFY+48
DUZ VFY+55, VFY+56
F DONE+6!
FILE55 VFY+31~*, VFY+35
FILE55N0 VFY+31~*, VFY+32
>> I ALLERGY+4*
LIST VFY+2~*, VFY+8, VFY+9, VFY+11, VFY+15
ND DONE+6!, CHK~, CHK+7, CHK+8, CHK+11
ND2 CHK~, CHK+10, CHK+11
OEORD VFY+31~, VFY+32*, VFY+34, VFY+35
OOEORD VFY+31~, VFY+32*
PND0 VFY+30~*, VFY+31, VFY+32
>> PSGACT ENSF+16*, ENSF+17*, VFY+61*
PSGAL DONE+6!
PSGAL("C" VFY+44*
PSGAL531 ACTLOG+3~, ACTLOG+5*, ACTLOG+7
PSGALFN VFY+51!
>> PSGAT VFY+25
>> PSGCANFL VFY+61*
>> PSGCOPY VFY+14
PSGDDI ALLERGY+1~, ALLERGY+4*, ALLERGY+5
PSGDFLG CHK+13!, CHK+14*
>> PSGDI CHK+13*, CHK+14*
PSGDN VFY+2~*, VFY+6*, VFY+7
>> PSGDT VFY+55, VFY+56
PSGODA DONE+6!
>> PSGODDD(1 VFY+52
>> PSGOEAV ENSF+3*, ENSF+4
>> PSGOEEF(109 VFY+19*
PSGOES ENSF+4, ENSF+14~*, VFY+27~*, CHK+17~*
>> PSGONF VFY+52
PSGORD EN~, ENSF+4, ENSF+6*, ENSF+9, ENSF+12, ENSF+16, ENSF+17, VFY+1, VFY+4, VFY+8
VFY+11, VFY+15, VFY+29, VFY+30, VFY+32, VFY+33, VFY+34, VFY+37, VFY+38, VFY+39
VFY+40, VFY+41, VFY+42, VFY+44, VFY+45, VFY+46, VFY+47, VFY+49, VFY+50, VFY+53
VFY+55, VFY+56, VFY+57, VFY+58, VFY+59, VFY+60, VFY+61, VFY+63, VFY+64, VFY+65
VFY+66, VFY+69, VFY+70, VFY+74, VFY+79, ALLERGY~, ALLERGY+2, ALLERGY+3, ALLERGY+5, DDCHK+1
, ACTLOG~, ACTLOG+6, ACTLOG+7, ACTLOG+9, ACTLOG+10
PSGORDP VFY+33*, VFY+37*, VFY+43, VFY+50, ACTLOG~, ACTLOG+4, ACTLOG+5, ACTLOG+8, ACTLOG+9, ACTLOG+10
PSGORDR VFY+30~*, VFY+31, VFY+32, VFY+34, VFY+35, VFY+36
PSGORQF VFY+2~, VFY+15, VFY+16
>> PSGP ENSF+6, ENSF+9, ENSF+16, ENSF+17, VFY+15, VFY+36, VFY+44, VFY+45, VFY+46, VFY+48
VFY+49, VFY+50, VFY+55, VFY+56, VFY+57, VFY+58, VFY+59, VFY+60, VFY+61, VFY+63
VFY+64, VFY+65, VFY+66, VFY+67, VFY+69, VFY+79, DONE+5, DDCHK+1
PSGPD DDCHK+2*, DDCHK+3, DDEDIT+6, DDEDIT+8!
PSGPFLG CHK+13!, CHK+15*
>> PSGRDTX VFY+43*, VFY+45, VFY+46, VFY+48
PSGRFD VFY+51!
PSGRSD VFY+51!
PSGS0XT ENSF+14~, VFY+24*, VFY+25, VFY+27~, CHK+17~
PSGS0Y ENSF+14~, VFY+27~, CHK+17~
>> PSGSCH ENSF+10, ENSF+13, ENSF+14, VFY+23, VFY+24, VFY+26, VFY+27, CHK+16, CHK+17
>> PSGST VFY+23
PSGTOL VFY+55*, DONE+6!
PSGTOO VFY+55*, DONE+6!
PSGUOW VFY+55*, DONE+6!
PSGX ACTLOG+3~, ACTLOG+4*, ACTLOG+5, ACTLOG+8, ACTLOG+9, ACTLOG+10
PSGXDA ACTLOG+3~, ACTLOG+6*, ACTLOG+7, ACTLOG+9, ACTLOG+10
>> PSJACEPT ENSF+15, VFY+18, VFY+20*
PSJAGYSV VFY+74!
PSJALLGY VFY+15, ALLERGY~
PSJALLGY( ALLERGY+8*
PSJCNT VFY+2~*, VFY+5*, VFY+6
PSJCNT1 VFY+2~*, VFY+9*, VFY+10, VFY+11
PSJCNT2 VFY+2~*, VFY+10*, VFY+11
>> PSJCOM VFY+1*
PSJDD ALLERGY+1~, ALLERGY+5*, ALLERGY+6, ALLERGY+8
PSJDIS VFY+2~*, VFY+9, VFY+11*, VFY+14, VFY+15
PSJDOSE VFY+2~, DONE+6!
PSJDOSE("WARN" VFY+18
PSJDOSE("WARN1" VFY+18
PSJDSFLG VFY+2~, VFY+18
>> PSJDSVFY VFY+15
PSJFLG VFY+2~*, VFY+4*, VFY+5, VFY+6
>> PSJHLDFN VFY+40, VFY+41
>> PSJLMFIN VFY+14
>> PSJNEWOE VFY+14
PSJOLDNM ENSF+2~, ENSF+11
PSJOLDNM("ORD_SCHD" ENSF+10*
PSJOLDX ENSF+2~, ENSF+9*, ENSF+11
>> PSJORD VFY+15, VFY+64, VFY+67, VFY+70
>> PSJPRI DONE+2
PSJPRIO VFY+30~, VFY+40*, VFY+42
PSJSCHED VFY+30~, VFY+41*, VFY+42
>> PSJSPEED ENSF+15, VFY+14, VFY+71, VFY+72, DONE+2
>> PSJSTARI VFY+14, VFY+15
>> PSJSYSL VFY+55
>> PSJSYSP CHK+12, CHK+14, DDEDIT+4, DDEDIT+5, DDEDIT+7
>> PSJSYSP0 ENSF+3
>> PSJSYSU ENSF+3, ENSF+5, ENSF+7, ENSF+16, ENSF+17, VFY+44, VFY+53, VFY+54, VFY+56, VFY+61
VFY+69, VFY+79, DONE+2
PSJVAR DONE+6!
PSJX ALLERGY+1~, ALLERGY+6*, ALLERGY+7
Q DDEDIT+4*, ACTLOG+3~, ACTLOG+6*
QQ ACTLOG+3~, ACTLOG+6*
QX VFY+24~
SDW VFY+24~
SWD VFY+24~
>> TIUDA DONE+5
TXTLN ACTLOG+8~*, ACTLOG+9, ACTLOG+10
U ENSF+9, VFY+6, VFY+11, VFY+30, VFY+31, VFY+32, VFY+35, VFY+46, VFY+48, VFY+54
VFY+55, VFY+57, VFY+58, VFY+59, VFY+60, CHK+12, AESCREEN+4, ACTLOG+6
>> VALMBCK VFY+69*, DONE+6*
VND4 VFY+44*, VFY+53, VFY+54*, VFY+56*, VFY+57, VFY+58, VFY+59, VFY+60, DONE+6!
X ENSF+6*, ENSF+14~*, VFY+24~*, VFY+27~*, VFY+52~*, VFY+53, DONE+6!, CHK+17~*, CHKM+4*, DDEDIT+4*
DDEDIT+5, DDEDIT+6
XABB VFY+24~
Y ENSF+14~, VFY+27~, DONE+4, CHK+4*, CHK+17~, CHKM+1!, CONT+1~, CONT+5, DDEDIT+4*, AESCREEN+4*
, AESCREEN+5
ZZND DONE+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