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

Package: Inpatient Medications

Routine: PSJUTL3


Information

PSJUTL3 ;BIR/MLM-MISC. INPATIENT UTILITIES ;29 OCT 01 / 4:29 PM

Source Information

Source file <PSJUTL3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
QUEIV ;
XTMP ;
MARKIV(DFN) ;
VF(ON,DFN,PSJPINIT,PSJNOW) ; Update verifying pharm and date fields.
SEND(START) ;
DMACTN ;Entry point for DM hidden action from backdoor LM OE *353
PICKDR ;Entry point for Selecting a diff Drug
SHOWDR ;Entry point to Display Drug hidden action info (via defaulted IFN)
DMOITXT ;Get Pharmacy Orderable Item drug text fields
FULL ;Screen is full, pause
FSCRN ;User Wait as screen if full
INACDATE() ;Check Inactive date
VPACTN
PICKVP
SHOWVP
DELNV(DFN,ORDER) ; Deletes/Resets Nurse Verification in PHARMACY PATIENT file (#55), used by BCMA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #
  • Line Location: DMACTN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PICKDR+2
Function Call: WRITE
  • Prompt: "Return to continue or"
  • Line Location: PICKDR+2
Function Call: WRITE
  • Prompt: !!,"** NO Dispense Drug entered for this order",!
  • Line Location: SHOWDR+2
Function Call: WRITE
  • Prompt: "** MULTIPLE DISP DRUGS **"
  • Line Location: SHOWDR+3
Function Call: WRITE
  • Prompt: !,"DRUG NAME: ",$$GET1^DIQ(50,IFN_",","GENERIC NAME")," (IEN: "_IFN_")"
  • Line Location: SHOWDR+4
Function Call: WRITE
  • Prompt: !," ORDERABLE ITEM TEXT: ",!
  • Line Location: SHOWDR+6
Function Call: WRITE
  • Prompt: !," MESSAGE: ",$$GET1^DIQ(50,IFN_",","MESSAGE")
  • Line Location: SHOWDR+7
Function Call: WRITE
  • Prompt: !," QTY DISP MESSAGE: ",$$GET1^DIQ(50,IFN_",","QUANTITY DISPENSE MESSAGE"),!
  • Line Location: SHOWDR+8
Function Call: WRITE
  • Prompt: " ",TEXT,!
  • Line Location: DMOITXT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PICKVP+2
Function Call: WRITE
  • Prompt: !,"Return to continue or"
  • Line Location: PICKVP+2
Function Call: WRITE
  • Prompt: !,"No provider entered for this order",!
  • Line Location: SHOWVP+2
Function Call: WRITE
  • Prompt: #,"PROVIDER TITLE: ",$$GET1^DIQ(200,IFN_",","TITLE")
  • Line Location: SHOWVP+3
Function Call: WRITE
  • Prompt: !!,"PROVIDER REMARKS: ",$$GET1^DIQ(200,IFN_",","REMARKS")
  • Line Location: SHOWVP+4
Function Call: WRITE
  • Prompt: !!,"PROVIDER SPECIALTY: ",$$GET1^DIQ(200,IFN_",","PROVIDER CLASS"),!," "_$$GET1^DIQ(200,IFN_",","SERVICE/SECTION")
  • Line Location: SHOWVP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call