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

Package: Inpatient Medications

Routine: PSJPDRUT


Information

PSJPDRUT ;BIR/MV-PADE REPORT UTILITIES ; 3/22/18 9:36am

Source Information

Source file <PSJPDRUT.m>

Entry Points

Name Comments DBIA/ICR reference
DATE(BEGEND,PSJSTOP,PSJINP) ; Prompt for Start Date
SELUSER(PSJINP,USER,SELUSER,USERX,PSJSTOP) ; Prompt for one user (or ALL)
LIST(LIST,MSG) ; Write list in LIST(ID1)=ID1
USERLIST(PSJINP,USER,USERX) ; Get list of selectable users in transactions matching date range, PADE device, and drug item criteria
; INPUT: PSJINP("
; OUTPUT: USER
DRUGSEL(PSJINP,INDRUG,OUTDRUG,DRWPCK,PSJSTOP) ; Select drug(s) via screened ^PSDRUG lookup
PSYS(PSLAYGO) ; Get PADE Inventory System
ENSYS() ; Get PADE Inventory System
PTIX(PS586IEN,PSJOMS)
DRGIX(PS586IEN,PSJOMS)
DISPDOTS(PSJHTM,PSJDOTS,SECONDS) ; Check to see if more than SECONDS seconds has elapsed in $H, since PSJHTM.
; INPUT - PSJHTM = the 2nd comma piece of $H (seconds)
; PSJDOTS = flag indicating whether initial message "Searching for matching transactions.." has (1) or has not 0 or "" already been displayed
PADEUP(PADEV,PADEVUP)
DIV(PSJDIV,PSJSTOP)
DIVLKUP(DIVAR)
DIVLIST(DIVAR,DIVARX)
UPPER(PSTEXT)
GETSYS(PSYSLST,PSYSLSTX,PSYSNAM,PSYSALT)
SELSYS(PSYSLST,PSYSLTX,PSYSNAM,PSYS)
PADEUSR(PSJPSYS,PSJPDUSR) ; Return Vista user ID for PADE user PSJPDUSER, if it exists
DEVSCRN(PSJINP,PSPDIEN)
UNIQUE(PSJY,PADE)
PSB(PSJOMS)
PATSSN(PSSN)
TTYPDIR(PSJPSYS,BDT,EDT)
TTYPES(PSJPSYS,BDT,EDT,OUTTYP)
DEFTRAN(DEFTRAN)
TTEX(TTCODE)
EXTT(TTNAME)
DISPENSE ;;V
VEND ;;V
LOAD ;;L
UNLOAD ;;U
REFILL ;;F
EMPTY ;;B
COUNT ;;C
RETURN ;;R
WASTE ;;W
EXPIRED ;;E
DESTOCK ;;D
DISCREPA ;;A
CANCEL ;;N
UNKNOWN ;;O
OTHER ;;O

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SELUSER+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELUSER+3
Function Call: WRITE
  • Prompt: " ?? (No match found)"
  • Line Location: SELUSER+24
Function Call: WRITE
  • Prompt: !,MSG,!
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,MSG(II)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !,$E(TAB,1,10)_ID1
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGSEL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGSEL+11
Function Call: WRITE
  • Prompt: !?2,"Searching for matching transactions.."
  • Line Location: DISPDOTS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIND1^DIC
^PSDRUG - [#50] Classic Fileman Calls
^PS(58.64 - [#58.64] FIND1^DIC,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call