PSJPDRIN ;BIR/MV-MAIN DRIVER PADE INVENTORY REPORT ;11/15/2015
Source file <PSJPDRIN.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Main Entry point
|
|
ENLOOP | ; Prompt loop
|
|
START | ; Queued entry
|
|
EXIT | ; Clean up
|
|
ASK(PSJINP) | ;Prompt for selection criteria. Quit when PSJSTOP is true
|
|
PSYS() | ; Get PADE Inventory System
|
|
DIV() | ; Get Division
|
|
PADEV(PADEV,PSJINP) | ; Get PADE dispensing device(s), screen for Division and PADE Inventory System
|
|
CAB(PSJINP,PADEV) | ; Get PADE (cabinets)
|
|
PSJCSUB(PSJINP,PSJCSUB) | ; Get Controlled Subs (CS) Schedules
|
|
DRUG(DRUG,PSJINP) | ; Allow user to select appropriate subset of drug items
|
|
SUMM() | ; Prompt user for Detailed or Summary report
|
|
DELIM() | ; Prompt user for delimited output or formatted report.
|
|
GETCLASS(DRGIEN) | ; Get Controlled Substance Federal Schedule from VA PRODUCT FILE for DRUG FILE (#50) entry DRGIEN
; Input : pointer to DRUG (#50) file ; Output : Value from CS FEDERAL SCHEDULE field (#19) in VA PRODUCT (#50.68) file |
|
LISTDRG(SCREEN,DRGARAY) | ; Get list of drugs from drug file screened by SCREEN, outpat DRGARAY
|
|
PROCESS(PSJINP) | ; Gather report data, store in ^TMP
|
|
PROCSUM(PSJINP) | ; Gather SUMMARY report data
|
|
PROCDET(PSJINP) | ; Gather DETAIL report data
|
|
QTY(SYS,PSJCAB,PSJDRG) | ; Return quantity of drug PSJDRG in cabinet PSJCAB
|
|
DFORM(SYS,PSJCAB,PSJDRG) | ; Return Dose Form of drug PSJDRG in cabinet PSJCAB
|
|
DRCAB(PSJINP,PSJDRCAB) | ; Return list of drugs in each cabinet in PSJINP("PADEV")
; Input = PSJINP("PADEV",CABINET IEN) - Cabinet IEN points to PADE DISPENSING DEVICE file 58.63 ; Output = PSJDRCAB(DRUG IEN) - Drug IEN points to DRUG file 50 |
|
LISTALL(DRGLIST) | ; Write list of drugs in DRGLIST("IEN",DRUG IEN)
|
|
DRUGLIST(PSJINP,DRGLIST) | ; Return DRGLIST array with "IEN" and "NAME" cross referenced
|
|
SELDEV(RTN,PSJINP,PSJWIDE,ZTSK) | ; Select Device
|
|
CONT(PGCNT,PSJQUIT,TMPLN) | ; Press return to continue
|
|
ALPHADRG(SYS,CAB,DRG,DRGX) | ||
POCKET(PSJINP,PSDRG,OUTPOCK) | ; Get pocket(s)
|
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 |
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | LIST^DIC |
^PS(50.606 - [#50.606] | Classic Fileman Calls |