PSJPDRTP ;BIR/MV - PRINT PADE TRANSACTION REPORT; Jun 29, 2022@12:45
Source file <PSJPDRTP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(PSJINP) | ; Write PADE Inventory Report
; Required : PSJINP array ; Input PSJINP("PADEV") = PADE device(s) (pointer to PADE DISPENSING DEVICE #58.63) selected by user ; PSJINP("PSDRG") = Drug(s) (pointer to DRUG #50) selected by user ; PSJINP("PSJCSUB") = CS Federal Schedule(s) selected by user ; PSJINP("PSJDEV",CABIEN) = Pointer to PADE DISPENSING DEVICE (#58.63) file ; PSJINP("PSJDELM") = (D)elimited or formatted (R)eport, selected by user ; PSJINP("PSJDIV") = Division (pointer to MEDICAL CENTER DIVISION #40.8) selected by user ; PSJINP("PSJPSYS" = PADE INVENTORY SYSTEM (#58.601) selected by user ; PSJINP("PSJSUM" = (S)ummary or (D)etail report, selected by user |
|
| DELIM(PSJINP) | ; Output delimited report
|
|
| FORMAT(PSJINP,PSJIOSL) | ; Output formatted report
|
|
| PROCSUM(PSJINP) | ; Gather report data
|
|
| BLDSTR(PSJINP,PSLNOD,PSJCOMM) | ; Build output data string
; INPUT: PSJINP() = array of user report input/selections ; PSLNOD = header node from PADE INBOUND TRANSACTION file (#58.6), by way of LIST^DIC call output in ^TMP($J,"TSCREEN" ; OUTPUT: PSLNDSTR = string of report output to be stored in ^TMP($J,"PSJPDRTR" |
|
| SRHEAD(PSJINP,PSJLNCNT,PSJPGCNT,PSJPGTOT) | ; Report Header
|
|
| PHEAD(PSJINP,PSJLNCNT,PSJPGCNT,PSJPGTOT,PSADDPG) | ; Page header
|
|
| EXIT | ; Clean up.
|
|
| POCKDRG(PSJPSYS,PSJCAB,DRUG,DRWPCK) | ; Get Drawer.Pocket location of DRUG in PSJCAB cabinet
|
|
| PGTOT() | ; Return calculated number of pages for this report
|
|
| CSCHED(PSJINP) | ; Return string of CS Federal Schedules from array PSJINP("PSJCSUB",SCHEDULE)
|
|
| CABSTR(PSJINP) | ; Return string of PADE cabinets from array PSJINP("PADEV",CABINET)
|
|
| DRGSTR(PSJINP) | ; Return string of PADE drugs selected by user from PSJINP("PSDRG",DRUG IEN)
|
|
| PTSTR(PSJINP) | ; Return string of patients selected by user from PSJINP("PSJPAT",DFN)
|
|
| USRSTR(PSJINP) | ; Return string of Users selected by user from PSJINP("PSJUSER")
|
|
| TSCREEN(PSJY,PSJINP) | ; Screen PADE TRANSACTION file (#58.6) using user input criteria
|
|
| SETCOLS(PSJINP,COL) | ; Report column widths
|
|
| SECTHD1() | ; Sub-header line 1
|
|
| SECTHD2() | ; Sub-header line 2
|
|
| CONTRAN(PSLNHSTR,PSJPGCNT,PSJLNCNT,PSJINP) | ; Print "Continued" message when listing spans multiple pages
; Don't output "Cont" text if delimited output |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
