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 |
