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

Package: Inpatient Medications

Routine: PSJPDRTR


Information

PSJPDRTR ;BIR/JH-MAIN DRIVER PADE TRANSACTION REPORT ;18 JUN 96 / 2:58 PM

Source Information

Source file <PSJPDRTR.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 if PSJSTOP is true
PADEV(PADEV,PSJINP,PSJ58601) ; Get list of PADE device(s)
PADELST(PSJINP,PADE,PADEX,PSJ58601) ; Find selectable PADE devices for PADE Inbound System PSJPSYS
; and PADE transactions between PSJINP("PSJBDT") and PSJINP("EDT")
; INPUT: PSJINP("PSJPSYS")
; PSJINP("PSJBDT")
; PSJINP("PSJEDT")
; OUPUT: PADE(PADE NAME)=n
; PADE(n)=PADE NAME
PADELST2(PSJINP,PADE,PADEX)
SELPADE(PADE,PADEV,PADEX,PS58601) ; Prompt for one PADE device (or ALL)
SELCSUB(PSJCSUB) ; Prompt for one controlled subs schedule or (ALL)
DRUG(DRUG,PSJINP) ; Allow user to select appropriate subset of drug items
DRCAB(PSJINP,PSJDRCAB) ; Return list of drugs in each cabinet in PSJINP("PADEV")
; Input = PSJINP("PADEV",CABINET NAME) - Cabinet IEN points to PADE DISPENSING DEVICE file 58.63
; Output = PSJDRCAB(DRUG IEN) - Drug IEN points to DRUG file 50
DRUGSEL(PSJINP,INDRUG,OUTDRUG,DRWPCK,PSJSTOP) ; Select drug(s)
PATIENT(PSJINP,SELPAT) ; Get list of patients
USER(PSJINP,PSJUSER) ; Get Vista Users (e.g., nurses) involved in PADE transactions
TRANS(PSJINP,PSJTRANS,PSJOVR) ; Get Transaction Types of PADE transactions
OVRTRAN() ; Prompt if only override transactions - only prompt if DISPENSE/VEND type was selected
SELTRANS(TRANS,TRANSX) ; Prompt for one transaction type (or ALL)
LIST(NLIST,MSG,MAX,AUDIT) ; Write list in LIST(ID1)=ID1
PROCESS(PSJINP) ; Gather report data, store in ^TMP
DIVSTR(PSJINP)
TRANLIST(PSJINP,DIR)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: ?20,"PADE Transaction Report",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PADEV+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PADEV+12
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: SELPADE+24
Function Call: WRITE
  • Prompt: " ?? (No match found)"
  • Line Location: SELPADE+30
Function Call: WRITE
  • Prompt: !
  • Line Location: SELCSUB+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELCSUB+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGSEL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGSEL+11
Function Call: WRITE
  • Prompt: " ?? (No match found)"
  • Line Location: DRUGSEL+39
Function Call: WRITE
  • Prompt: !
  • Line Location: SELTRANS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SELTRANS+2
Function Call: WRITE
  • Prompt: !,MSG,!
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,MSG(II)
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: LIST+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: LIST+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(58.6 - [#58.6] LIST^DIC
^PS(58.63 - [#58.63] FIND1^DIC,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call