PSJPDRTR ;BIR/JH-MAIN DRIVER PADE TRANSACTION REPORT ;18 JUN 96 / 2:58 PM
Source file <PSJPDRTR.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 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) |
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 |
|
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 |
---|---|
^PS(58.6 - [#58.6] | LIST^DIC |
^PS(58.63 - [#58.63] | FIND1^DIC, GETS^DIQ |