PSJPDRUT ;BIR/MV-PADE REPORT UTILITIES ; 3/22/18 9:36am
Source file <PSJPDRUT.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | FIND1^DIC |
^PSDRUG - [#50] | Classic Fileman Calls |
^PS(58.64 - [#58.64] | FIND1^DIC, GETS^DIQ |