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

Package: Inpatient Medications

Routine: PSGOE2


Information

PSGOE2 ;BIR/MV-CHECK INACTIVE DRUG ; 23 Sep 98 / 8:38 AM

Source Information

Source file <PSGOE2.m>

Entry Points

Name Comments DBIA/ICR reference
CHKDRG ;*** Check inactive Orderable Item/disp drug and also if marked for UD
CHKDD(F) ;*** Check inactive dispense drug within the order.
STUFFDD() ;*** Stuff DD in ^PS(53.1 only if a valid DD is 1 to 1 link to OI.
CHK ; check for valid reply and questions
DDOK(PSJF,OI) ;Check to be sure all dispense drugs that are active in the
OIOK(X) ; Check to be sure orderable item is valid
; input: X - IEN of orderable item
; Output: 0 - invalid
; 1 - valid

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S(PSGOEA="P":"RINT",1:"HOW")
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: "OPY"
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: " (DISCONTINUE)"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: $S(PSGOEA="R"&PSGRRF:"EINSTATE",1:$P("^YPASS^ISCONTINUE^DIT^INISH^OLD^NCOMPLETE^OG DISPLAY^ENEW^ERIFY","^",$F("BDEFHILRV",PSGOEA)))
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK+5
Info |  Source |  Entry Points |  Interaction Calls