Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 5 $$ENLU^PSGMI  RHEAD^PSJPDRIP  $$DIVSTR^PSJPDRTR  $$PTTRFLG^PSJPDRU1  ($$EXTT,DIV)^PSJPDRUT  
Kernel 2 ^%ZISC  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 ($$FIND1,LIST)^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSJPAD70  PSJPDRIN  PSJPDRIP  PSJPDRTP  PSJPDRTR  PSJPDRU1  PSJPDRUT  

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

External References

Name Field # of Occurrence
^%ZISC DELIM+6, FORMAT+19
$$FIND1^DIC POCKDRG+4, CABST+4
LIST^DIC DIV+4
^DIR CONT+5, CONT2+6
$$ENLU^PSGMI XALL+4
RHEAD^PSJPDRIP DELIM+3, FORMAT+3
$$DIVSTR^PSJPDRTR RHEAD+11
$$PTTRFLG^PSJPDRU1 TRANSTR+2
$$EXTT^PSJPDRUT CNVTYP+4
DIV^PSJPDRUT DIV+10
$$FMTE^XLFDT RHEAD+7
$$NOW^XLFDT RHEAD+7

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
Routine Call
  • DIC
  • Line Location:
    • POCKDRG+4
    • CABST+4
Routine Call
  • DIC
  • Line Location:
    • DIV+4
Routine Call
  • DIR
  • Line Location:
    • CONT+5
    • CONT2+6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.601 - [#58.601] POCKDRG+5, POCKDRG+6
^PS(58.63 - [#58.63] CABSTR+4, CABSTR+5, CABST+6
^PSDRUG - [#50] DRGSTR+4
^TMP("PSJPDRIN" DELIM+4, DELIM+5, FORMAT+4, FORMAT+6, FORMAT+13, FORMAT+14, FORMAT+18, EXIT+1!, CONT+3, PGTOT+3
^VA(200 - [#200] RHEAD+10

Label References

Name Line Occurrences
$$CABSTR RHEAD+14, PGTOT+6
$$CSCHED RHEAD+12, PGTOT+4
$$DRGSTR RHEAD+16, PGTOT+8
$$PGTOT FORMAT+2
CONT FORMAT+15, FORMAT+18
DELIM EN+16
DETHEAD RHEAD+19
EXIT DELIM+7, FORMAT+20
FORMAT EN+17
RHEAD FORMAT+17
SETCOLS FORMAT+7, SUMHEAD+4, DETHEAD+4
SUMHEAD RHEAD+18

Naked Globals

Name Field # of Occurrence
^( POCKDRG+5, POCKDRG+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BLANK SUMHEAD+1~, SUMHEAD+6*, SUMHEAD+10
CABCONT FORMAT+10~, FORMAT+14*, FORMAT+17, RHEAD~, RHEAD+18, SUMHEAD~, SUMHEAD+10
CABIEN POCKDRG+2~, POCKDRG+4*, POCKDRG+5, POCKDRG+6
CABNAME FORMAT+1~, FORMAT+8*, FORMAT+12, FORMAT+14
CABSTR CABSTR+1~, CABSTR+3*, CABSTR+4*, CABSTR+5*, CABSTR+6
COL SETCOLS~
COL(1 SETCOLS+2*, SETCOLS+4*
COL(2 SETCOLS+2*, SETCOLS+4*
COL(3 SETCOLS+2*, SETCOLS+4*
COL(4 SETCOLS+2*, SETCOLS+4*
COL(5 SETCOLS+2*, SETCOLS+4*
COL(6 SETCOLS+2*, SETCOLS+4*
CSCHED RHEAD+1~, RHEAD+12*, RHEAD+13, CSCHED+1~, CSCHED+2*, CSCHED+3*, CSCHED+4*, CSCHED+5*, CSCHED+6
DA EN+12~
DASHES SUMHEAD+1~, SUMHEAD+5*, SUMHEAD+7, SUMHEAD+9, DETHEAD+1~, DETHEAD+5*, DETHEAD+6, DETHEAD+8
DIC EN+12~, DIV+1~
DIC("S" DIV+2*, DIV+4, DIV+9*
DIR EN+12~, CONT+1~, CONT+5!, CONT2+1~, CONT2+6!
DIR("A" CONT+3*, CONT2+3*, CONT2+4*
DIR(0 CONT+4*, CONT2+5*
DR EN+12~
DRGIEN POCKDRG+2~
DRGWRAP PGTOT+1~, PGTOT+8*, PGTOT+9*, PGTOT+10
DRUG POCKDRG~, POCKDRG+6, POCKDRG+15
DRWIEN POCKDRG+2~, POCKDRG+5*, POCKDRG+6
DRWNAM POCKDRG+2~, POCKDRG+5*, POCKDRG+9
DRWPCK POCKDRG~
DRWPCK( POCKDRG+15*
DTOUT EN+12~, CONT+6, XALL+7!, CONT2+7
DUOUT EN+12~, CONT+6, XALL+7!, CONT2+7
DUZ RHEAD+10
HDR PGTOT+1~
HDRPAD PGTOT+1~, PGTOT+12*, PGTOT+15
HDRTOP PGTOT+1~, PGTOT+11*, PGTOT+12
HDRWRAP PGTOT+1~, PGTOT+10*, PGTOT+12
II TRANSTR+1~, TRANSTR+7*
IN XALL~, XALL+2, XALL+3
INT PGTOT+1~
INTYP CNVTYP~
INTYP( CNVTYP+2, CNVTYP+3, CNVTYP+7, CNVTYP+8, CNVTYP+9, CNVTYP+10, CNVTYP+11, CNVTYP+12, CNVTYP+13, CNVTYP+14
, CNVTYP+15, CNVTYP+16
IO EN+15
IOF RHEAD+6, CONT+7, CONT2+8
IOSL EN+13
IOST CONT+2, CONT2+2
LINE FORMAT+5~, FORMAT+6*, FORMAT+8, FORMAT+9, FORMAT+12
LN PGTOT+1~, PGTOT+3*, PGTOT+18, PGTOT+20
LNCNT EN+12~, DELIM+4*, DELIM+5, FORMAT+4*, FORMAT+6, FORMAT+13, FORMAT+15
LOCNAM POCKDRG+2~, POCKDRG+7~, POCKDRG+13*, POCKDRG+14*, POCKDRG+15
ND POCKDRG+2~, POCKDRG+6*, POCKDRG+8, POCKDRG+9, POCKDRG+15
NXT FORMAT+13~*, FORMAT+14*
OUT XALL+1~, XALL+2*, XALL+3, XALL+4*, XALL+5, XALL+6*, XALL+8
PADECAB RHEAD+1~
PADEDRG RHEAD+1~, RHEAD+16*, RHEAD+17, DRGSTR+1~, DRGSTR+2*, DRGSTR+3*, DRGSTR+4*, DRGSTR+5*, DRGSTR+6*, DRGSTR+7
PADEWRAP PGTOT+1~, PGTOT+6*, PGTOT+7*, PGTOT+10
PADIEN CABST+1~, CABST+4*, CABST+5, CABST+6
PATFLG TRANSTR+1~, TRANSTR+2*, TRANSTR+4, TRANSTR+5, TRANSTR+6
PCKIEN POCKDRG+2~, POCKDRG+6*
PCKNAM POCKDRG+2~, POCKDRG+9*, POCKDRG+10, POCKDRG+11
PGCNT CONT~, CONT+8*, CONT2~, CONT2+9*
PGTOT PGTOT+1~, PGTOT+18*, PGTOT+20*, PGTOT+22
PSCOL FORMAT+5~, FORMAT+7
PSCOL(1 FORMAT+9
PSCOL(2 FORMAT+9
PSCOL(3 FORMAT+9
PSCOL(4 FORMAT+9
PSCOL(5 FORMAT+9
PSCOL(6 FORMAT+9
PSDIVLST DIV+1~, DIV+6*, DIV+7
PSDIVLST("DILIST" DIV+5, DIV+6
PSDIVLST("PSJDIV" DIV+7*
PSJAVAIL PGTOT+1~, PGTOT+15*, PGTOT+18, PGTOT+20
PSJCAB POCKDRG~, POCKDRG+3, POCKDRG+4
PSJCABS RHEAD+1~, RHEAD+14*, RHEAD+15
PSJCOL SUMHEAD+1~, SUMHEAD+4, DETHEAD+1~, DETHEAD+4
PSJCOL(2 DETHEAD+7
PSJCOL(3 SUMHEAD+8, DETHEAD+7
PSJCOL(4 SUMHEAD+8, DETHEAD+7
PSJCOL(5 DETHEAD+7
PSJCSUB ALLSCHED~
PSJCSUB( ALLSCHED+2*
PSJDELIM EN+12~, EN+14*, EN+16, EN+17
PSJDIC DIV+1~, DIV+5*, DIV+6
PSJDIV RHEAD+1~, RHEAD+3*, DIV~, DIV+8*!, DIV+10
PSJDONE CABSTR+1~, CABSTR+2, CABSTR+3*, CABSTR+4*, DRGSTR+1~, DRGSTR+2, DRGSTR+3*, DRGSTR+5*, DIV+1~, DIV+8!
PSJEND CONT2~, CONT2+3
PSJII RHEAD+1~, POCKDRG+2~, POCKDRG+10*, POCKDRG+11, CABSTR+1~, CABSTR+2*, CABSTR+5, DRGSTR+1~, DRGSTR+2*, DRGSTR+4
PSJINP EN~, EN+16, EN+17, DELIM~, DELIM+3, FORMAT~, FORMAT+3, FORMAT+7, FORMAT+17, RHEAD~
, RHEAD+11, RHEAD+12, RHEAD+14, RHEAD+16, RHEAD+18, RHEAD+19, SUMHEAD~, SUMHEAD+4, DETHEAD~, DETHEAD+4
, PGTOT+4, PGTOT+6, PGTOT+8, CSCHED~, CABSTR~, DRGSTR~, SETCOLS~, TRANSTR~, TRANSTR+2
PSJINP("PADEV" CABSTR+2, CABSTR+3
PSJINP("PSDRG" DRGSTR+2, DRGSTR+3
PSJINP("PSJCSUB" RHEAD+13, CSCHED+2, CSCHED+3, CSCHED+4
PSJINP("PSJDELM" EN+14, SUMHEAD+2, DETHEAD+2
PSJINP("PSJDIV" RHEAD+3
PSJINP("PSJSUM" FORMAT+8, FORMAT+12, RHEAD+5, RHEAD+18, RHEAD+19, PGTOT+11, SETCOLS+1, SETCOLS+3
PSJINP("PSJTRANS" TRANSTR+4, TRANSTR+5, TRANSTR+6, TRANSTR+7
PSJINP("PSPGTOT" RHEAD+4
PSJIOSL EN+12~, EN+13*, FORMAT+11, PGTOT+2*, PGTOT+15
PSJOUT CNVTYP~, CNVTYP+1!
PSJOUT( CNVTYP+5*
PSJOUT("B" CNVTYP+11*
PSJOUT("C" CNVTYP+12*
PSJOUT("D" CNVTYP+16*
PSJOUT("E" CNVTYP+15*
PSJOUT("F" CNVTYP+9*
PSJOUT("I" CNVTYP+7*
PSJOUT("L" CNVTYP+8*
PSJOUT("R" CNVTYP+13*
PSJOUT("U" CNVTYP+10*
PSJOUT("V" CNVTYP+7*
PSJOUT("W" CNVTYP+14*
PSJOUTE CNVTYP+1~
PSJPADE CABST~, CABST+3, CABST+4
PSJPCNT DELIM+1~, DELIM+2*, DELIM+3, FORMAT+1~, FORMAT+2*, FORMAT+3, FORMAT+15, FORMAT+17, FORMAT+18, RHEAD~
, RHEAD+9
PSJPGTOT DELIM+1~, FORMAT+1~, FORMAT+2*, FORMAT+3, FORMAT+17, RHEAD~, RHEAD+2*, RHEAD+9
PSJPSYS POCKDRG~, POCKDRG+3, POCKDRG+4, POCKDRG+5, POCKDRG+6, CABST~, CABST+2
PSJPTOT EN+12~, DELIM+2*, DELIM+3
PSJQUIT EN+12~, DELIM+4, FORMAT+4, FORMAT+15, FORMAT+16, FORMAT+18, CONT~, CONT+2, CONT+3*, CONT+6*
, CONT2~, CONT2+2, CONT2+3*, CONT2+7*
PSJSL PGTOT+1~
PSJSTOP DIV~, DIV+3*, DIV+10
PSJSUM RHEAD+1~, RHEAD+5*, RHEAD+8
PSJTMP RHEAD+1~, CSCHED+1~, CSCHED+4*, CABSTR+1~, CABSTR+2*, CABSTR+4, CABSTR+5, DRGSTR+1~, DRGSTR+2*, DRGSTR+4
PSPGCNT RHEAD+1~, RHEAD+4*
PSPGTOT EN+12~, RHEAD+4*
SCHED ALLSCHED+1~, ALLSCHED+2*
SCHLST ALLSCHED~, ALLSCHED+2
SCHWRAP PGTOT+1~, PGTOT+4*, PGTOT+5*, PGTOT+10
SCNT ALLSCHED+1~, ALLSCHED+2*
STATUS CABST+1~, CABST+6*, CABST+7*, CABST+8
SUBID POCKDRG+7~, POCKDRG+8*, POCKDRG+9
TMP TRANSTR+1~, TRANSTR+7*
TMPLN CONT~, CONT+3
TMPLOC POCKDRG+11~*, POCKDRG+12*, POCKDRG+13
TRANS TRANSTR+1~, TRANSTR+3*, TRANSTR+7*, TRANSTR+8
TTCNT CNVTYP+1~, CNVTYP+2*, CNVTYP+3, CNVTYP+7, CNVTYP+8, CNVTYP+9, CNVTYP+10, CNVTYP+11, CNVTYP+12, CNVTYP+13
, CNVTYP+14, CNVTYP+15, CNVTYP+16
TTCODE CNVTYP+3~, CNVTYP+4*, CNVTYP+5
TTNAME CNVTYP+3~*, CNVTYP+4, CNVTYP+5
X EN+12~, DIV+1~
Y EN+12~, DIV+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All