PSJPDRIP ;BIR/MV-MAIN DRIVER PADE INVENTORY REPORT ;18 JUN 96 / 2:58 PM
Source file <PSJPDRIP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(PSJINP) | ; Write PADE Inventory Report
; Required : ^TMP("PSJPDRIN",$J global array containing report data in delimited format. ; PSJINP array ; 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) | ; Output formatted report
|
|
RHEAD(PSJINP,PSJPCNT,PSJPGTOT,CABCONT) | ; Report Header
|
|
SUMHEAD(PSJINP,CABCONT) | ; Summary specific header
|
|
DETHEAD(PSJINP) | ; Detail specific header
|
|
EXIT | ; Clean up.
|
|
POCKDRG(PSJPSYS,PSJCAB,DRUG,DRWPCK) | ; Get Drawer.Pocket location of DRUG in PSJCAB cabinet
|
|
CONT(PGCNT,PSJQUIT,TMPLN) | ; Press return to continue
|
|
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)
|
|
SETCOLS(PSJINP,COL) | ; Set column widths
|
|
TRANSTR(PSJINP) | ; Return string of transaction types selected
|
|
CABST(PSJPSYS,PSJPADE) | ; Return PADE Status : (I)=Inactive or null
|
|
XALL(IN) | ; Convert partial ^ALL to ALL
|
|
CONT2(PGCNT,PSJQUIT,PSJEND) | ; Press return to continue
|
|
CNVTYP(INTYP,PSJOUT) | ; Convert Transaction Types to external format from raw HL7
|
|
ALLSCHED(PSJCSUB,SCHLST) | ; Return all CS Federal Schedules in PSJCSUB(SCHEDULE)
|
|
DIV(PSJDIV,PSJSTOP) | ; Get Division
|
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 |
---|---|
^DG(40.8 - [#40.8] | LIST^DIC |
58.6011 | FIND1^DIC |
^PS(58.63 - [#58.63] | FIND1^DIC |