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

Package: Inpatient Medications

Routine: PSJPDRIP


Information

PSJPDRIP ;BIR/MV-MAIN DRIVER PADE INVENTORY REPORT ;18 JUN 96 / 2:58 PM

Source Information

Source file <PSJPDRIP.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RHEAD+6
Function Call: WRITE
  • Prompt: !,"Run Date: "_$P($TR($$FMTE^XLFDT($$NOW^XLFDT,2),"@"," "),":",1,2)
  • Line Location: RHEAD+7
Function Call: WRITE
  • Prompt: ?27,"PADE On Hand Amounts Report ",$S(($G(PSJSUM)="S"):"(Summary)",1:"(Detail)")
  • Line Location: RHEAD+8
Function Call: WRITE
  • Prompt: ?66,"Page ",PSJPCNT," of ",PSJPGTOT
  • Line Location: RHEAD+9
Function Call: WRITE
  • Prompt: !,"Run By: ",$P($G(^VA(200,+$G(DUZ),0)),"^")
  • Line Location: RHEAD+10
Function Call: WRITE
  • Prompt: ?35,"Division: ",$E($$DIVSTR^PSJPDRTR(.PSJINP),1,44)
  • Line Location: RHEAD+11
Function Call: WRITE
  • Prompt: !,"CS/Non-CS: ",$S($G(PSJINP("PSJCSUB"))="N":"N",1:$G(CSCHED))
  • Line Location: RHEAD+13
Function Call: WRITE
  • Prompt: !,"PADE"_$S(PSJCABS[",":"s: ",1:": "),PSJCABS
  • Line Location: RHEAD+15
Function Call: WRITE
  • Prompt: !,"ITEM"_$S(PADEDRG[",":"(s): ",1:": "),PADEDRG
  • Line Location: RHEAD+17
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: SUMHEAD+7
Function Call: WRITE
  • Prompt: !?2,"ITEM",?PSJCOL(3)-1,"UNIT",?PSJCOL(4)+1,"QTY"
  • Line Location: SUMHEAD+8
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: SUMHEAD+9
Function Call: WRITE
  • Prompt: !,$S($G(CABCONT)]"":CABCONT,1:BLANK)
  • Line Location: SUMHEAD+10
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: DETHEAD+6
Function Call: WRITE
  • Prompt: !,"ITEM",?PSJCOL(2),"UNIT",?PSJCOL(3)," QTY",?PSJCOL(4),"PADE",?PSJCOL(5),"ITEM LOCATION"
  • Line Location: DETHEAD+7
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: DETHEAD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT2+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] LIST^DIC
58.6011 FIND1^DIC
^PS(58.63 - [#58.63] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call