Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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)

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call