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

Package: Inpatient Medications

Routine: PSJPDRIN


Information

PSJPDRIN ;BIR/MV-MAIN DRIVER PADE INVENTORY REPORT ;11/15/2015

Source Information

Source file <PSJPDRIN.m>

Entry Points

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)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: ?20,"PADE On-Hand Inventory Report",!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PSJCSUB+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PSJCSUB+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELDEV+18
Function Call: WRITE
  • Prompt: !,"This report is designed for a "_$S($G(PSJWIDE):132,1:80)_" column format."
  • Line Location: SELDEV+20
Function Call: WRITE
  • Prompt: !,"You may queue this report to print at a later time.",!
  • Line Location: SELDEV+21
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] LIST^DIC
^PS(50.606 - [#50.606] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call