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 |
