Routine: PSJPDRIN

Package	Total	Call Graph
Inpatient Medications	3	($$XALL,ALLSCHED,DIV,EN,POCKDRG,SETCOLS)^PSJPDRIP (DRUGSEL,PADEV,SELCSUB)^PSJPDRTR $$PSYS^PSJPDRUT
VA FileMan	3	EN^DDIOL (,LIST)^DIC ^DIR
Kernel	2	^%ZIS ^%ZTLOAD
List Manager	1	CLEAR^VALM1
National Drug File	1	DATA^PSN50P68
Pharmacy Data Management	1	DIC^PSSDI

Package	Total	Caller Graph
Inpatient Medications	5	PSJ PADE INVENTORY REPORT PSJPAD70 PSJPDRTP PSJPDRTR PSJPDRUT

Entry Points

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 when PSJSTOP is true
PSYS()	; Get PADE Inventory System
DIV()	; Get Division
PADEV(PADEV,PSJINP)	; Get PADE dispensing device(s), screen for Division and PADE Inventory System
CAB(PSJINP,PADEV)	; Get PADE (cabinets)
PSJCSUB(PSJINP,PSJCSUB)	; Get Controlled Subs (CS) Schedules
DRUG(DRUG,PSJINP)	; Allow user to select appropriate subset of drug items
SUMM()	; Prompt user for Detailed or Summary report
DELIM()	; Prompt user for delimited output or formatted report.
GETCLASS(DRGIEN)	; Get Controlled Substance Federal Schedule from VA PRODUCT FILE for DRUG FILE (#50) entry DRGIEN ; Input : pointer to DRUG (#50) file ; Output : Value from CS FEDERAL SCHEDULE field (#19) in VA PRODUCT (#50.68) file
LISTDRG(SCREEN,DRGARAY)	; Get list of drugs from drug file screened by SCREEN, outpat DRGARAY
PROCESS(PSJINP)	; Gather report data, store in ^TMP
PROCSUM(PSJINP)	; Gather SUMMARY report data
PROCDET(PSJINP)	; Gather DETAIL report data
QTY(SYS,PSJCAB,PSJDRG)	; Return quantity of drug PSJDRG in cabinet PSJCAB
DFORM(SYS,PSJCAB,PSJDRG)	; Return Dose Form of drug PSJDRG in cabinet PSJCAB
DRCAB(PSJINP,PSJDRCAB)	; Return list of drugs in each cabinet in PSJINP("PADEV") ; Input = PSJINP("PADEV",CABINET IEN) - Cabinet IEN points to PADE DISPENSING DEVICE file 58.63 ; Output = PSJDRCAB(DRUG IEN) - Drug IEN points to DRUG file 50
LISTALL(DRGLIST)	; Write list of drugs in DRGLIST("IEN",DRUG IEN)
DRUGLIST(PSJINP,DRGLIST)	; Return DRGLIST array with "IEN" and "NAME" cross referenced
SELDEV(RTN,PSJINP,PSJWIDE,ZTSK)	; Select Device
CONT(PGCNT,PSJQUIT,TMPLN)	; Press return to continue
ALPHADRG(SYS,CAB,DRG,DRGX)
POCKET(PSJINP,PSDRG,OUTPOCK)	; Get pocket(s)

Name	Field # of Occurrence
^%ZIS	SELDEV+24, SELDEV+25
^%ZTLOAD	SELDEV+34
EN^DDIOL	PSJCSUB+3, PSJCSUB+4
^DIC	DIV+3, CAB+8
LIST^DIC	LISTDRG+3
^DIR	START+10, PSJCSUB+6, SUMM+5, DELIM+5, SELDEV+18, SELDEV+27, CONT+5
$$XALL^PSJPDRIP	CAB+9, PSJCSUB+7
ALLSCHED^PSJPDRIP	PSJCSUB+14
DIV^PSJPDRIP	ASK+7
EN^PSJPDRIP	START+4
POCKDRG^PSJPDRIP	PROCDET+31
SETCOLS^PSJPDRIP	PROCDET+8
DRUGSEL^PSJPDRTR	DRUG+6
PADEV^PSJPDRTR	PADEV+3
SELCSUB^PSJPDRTR	PSJCSUB+17
$$PSYS^PSJPDRUT	PSYS+2
DATA^PSN50P68	GETCLASS+9
DIC^PSSDI	PROCSUM+22, PROCDET+29
CLEAR^VALM1	ASK+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+3
Function Call: WRITE	Prompt: ?20,"PADE On-Hand Inventory Report",! Line Location: ASK+5
Function Call: WRITE	Prompt: ! Line Location: PSJCSUB+3
Function Call: WRITE	Prompt: ! Line Location: PSJCSUB+4
Function Call: WRITE	Prompt: ! Line Location: SELDEV+18
Function Call: WRITE	Prompt: !,"This report is designed for a "_$S($G(PSJWIDE):132,1:80)_" column format." Line Location: SELDEV+20
Function Call: WRITE	Prompt: !,"You may queue this report to print at a later time.",! Line Location: SELDEV+21
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Routine Call	%ZIS Line Location: SELDEV+24 SELDEV+25
Routine Call	DIC Line Location: DIV+3 CAB+8
Routine Call	DIC Line Location: LISTDRG+3
Routine Call	DIR Line Location: START+10 PSJCSUB+6 SUMM+5 DELIM+5 SELDEV+18 SELDEV+27 CONT+5

FileNo	Call Tags
^PSDRUG - [#50]	LIST^DIC
^PS(50.606 - [#50.606]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	PROCSUM+19, PROCDET+24, PROCDET+26
^PS(58.601 - [#58.601]	PROCDET+17, PROCDET+45, PROCDET+46, QTY+2, QTY+3, QTY+4, QTY+5, DFORM+2, DFORM+3, DFORM+4 , DFORM+5, DRCAB+7, DRCAB+8, ALPHADRG+3, POCKET+4, POCKET+8, POCKET+9, POCKET+10, POCKET+12, POCKET+15 , POCKET+17
^PS(58.63 - [#58.63]	PROCSUM+8, PROCDET+19, PROCDET+20
^PSDRUG - [#50]	GETCLASS+6, GETCLASS+7, PROCSUM+17, PROCDET+23, PROCDET+37, PROCDET+48, DRCAB+11
^TMP("PSJPDRIN"	START+2!, EXIT+1!, PROCSUM+12, PROCSUM+13, PROCSUM+24, PROCDET+14, PROCDET+44, PROCDET+51, PROCDET+53, PROCDET+54 , PROCDET+55, PROCDET+56, PROCDET+57*
^TMP($J	GETCLASS+5!, GETCLASS+10, GETCLASS+12!

Name	Line Occurrences
$$DELIM	ASK+12
$$DFORM	PROCSUM+18, PROCDET+25
$$GETCLASS	DRCAB+10
$$PSYS	ASK+6
$$QTY	PROCSUM+16, PROCDET+21
$$SELDEV	ASK+13
$$SUMM	ASK+11
ALPHADRG	PROCSUM+9
ASK	ENLOOP+3
DRCAB	DRUG+5
DRUG	ASK+10
ENLOOP	EN+3
EXIT	ENLOOP+3, START+3
PADEV	ASK+8
PROCDET	PROCESS+2
PROCESS	START+3
PROCSUM	PROCESS+1
PSJCSUB	ASK+9

Name	Field # of Occurrence
^(	DRCAB+8
^(0	POCKET+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SELDEV+23!*, SELDEV+24!
CAB	DRCAB+4~, DRCAB+6, DRCAB+7, ALPHADRG~, ALPHADRG+3
CAB(	DRCAB+7
CABDA	DRCAB+4~, DRCAB+7*, DRCAB+8
CC	PROCSUM+1~, PROCSUM+7, PROCSUM+12, PROCDET+1~, PROCDET+32~, PROCDET+33, PROCDET+45
CS	GETCLASS+7~*, GETCLASS+8
DA	EN+1~
DELIM	DELIM+1~, DELIM+6*, DELIM+7
DIC	EN+1~, DIV+1~, DIV+3, CAB+1~, CAB+6, DRUG+1~, LISTDRG+2~, PROCSUM+20~, PROCSUM+21, PROCSUM+22 , PROCDET+27~, PROCDET+28, PROCDET+29
DIC("A"	DIV+3, CAB+6
DIC("S"	DIV+2, CAB+5
DIC("W"	CAB+7*
DIC(0	DIV+3, CAB+6, PROCSUM+21, PROCDET+28
DIR	EN+1~, START+6~, PSJCSUB+1~, PSJCSUB+16~, SUMM+1~, DELIM+1~, SELDEV+5~, SELDEV+26~, CONT+1~, CONT+5!
DIR("?"	SUMM+4, DELIM+4
DIR("A"	START+7, START+8, START+9, PSJCSUB+5, SUMM+3, DELIM+3, SELDEV+6, SELDEV+7, SELDEV+8, SELDEV+9 , SELDEV+10, SELDEV+11, SELDEV+12, SELDEV+13, SELDEV+14, SELDEV+15, SELDEV+16, SELDEV+17, SELDEV+27, CONT+3
DIR("B"	SUMM+4, DELIM+4
DIR(0	START+6, PSJCSUB+5, SUMM+2, DELIM+2, SELDEV+18, SELDEV+27, CONT+4*
DLST	DRUGLIST+1~
DR	EN+1~
DRAWER	POCKET+2~, POCKET+12, POCKET+13, POCKET+14, POCKET+16
DRCNTOT	PROCDET+2~, PROCDET+15, PROCDET+35, PROCDET+54
DRG	DRCAB+4~, DRCAB+8, DRCAB+9, DRCAB+10, DRCAB+11, DRUGLIST+1~, DRUGLIST+2, DRUGLIST+3, DRUGLIST+4, DRUGLIST+5 , ALPHADRG~
DRG(	ALPHADRG+2
DRGARAY	DRUG+1~, LISTDRG~, LISTDRG+1!
DRGDA	DRCAB+4~, DRCAB+8*
DRGDEV	POCKET+2~, POCKET+17*, POCKET+18
DRGDRW	POCKET+2~, POCKET+15*, POCKET+16
DRGIEN	GETCLASS~, GETCLASS+4, GETCLASS+6, GETCLASS+7, LISTALL+1~, LISTALL+3, LISTALL+4, ALPHADRG+1~, ALPHADRG+2, ALPHADRG+3 , ALPHADRG+4
DRGLIST	LISTALL~, DRUGLIST~
DRGLIST(	DRUGLIST+2, DRUGLIST+3
DRGLIST("IEN"	LISTALL+3, LISTALL+4, DRUGLIST+4*
DRGLIST("NAME"	DRUGLIST+5*
DRGNAME	LISTALL+1~, DRUGLIST+3~, DRUGLIST+4, DRUGLIST+5, ALPHADRG+1~, ALPHADRG+2, ALPHADRG+4
DRGPCK	POCKET+2~, POCKET+10*, POCKET+11, POCKET+16
DRGTOT	PROCDET+1~, PROCDET+15, PROCDET+22, PROCDET+55
DRGX	ALPHADRG~
DRGX(	ALPHADRG+4*
DRUG	DRUG~, DRUG+6
DRWIEN	POCKET+2~, POCKET+8*, POCKET+9, POCKET+10, POCKET+12, POCKET+15, POCKET+16
DRWPCK	PROCDET+13~, PROCDET+18~, PROCDET+31
DRWPCK(	PROCDET+33, PROCDET+34
DTOUT	EN+1~, ASK+13, DIV+5, CAB+13, PSJCSUB+9, SUMM+5, DELIM+5, CONT+6
DUOUT	EN+1~, ASK+13, DIV+5, CAB+13, PSJCSUB+9, SUMM+5, DELIM+5, CONT+6
FMTQTY	PROCDET+34~, PROCDET+40*, PROCDET+41, PROCDET+44
FORM	DFORM+1~, DFORM+5*, DFORM+6
GETDRG	DRUG+1~
I	DRUGLIST+1~, DRUGLIST+2, SELDEV+23~, SELDEV+33
II	LISTALL+1~
IO("Q"	SELDEV+31, SELDEV+34!
IOP	SELDEV+23!, SELDEV+25*!
IOST	CONT+2
LNCNT	PROCSUM+1~, PROCSUM+2, PROCSUM+12, PROCSUM+13, PROCSUM+24, PROCDET+1~, PROCDET+3, PROCDET+14, PROCDET+44, PROCDET+51 , PROCDET+53, PROCDET+54, PROCDET+55, PROCDET+56, PROCDET+57*
LSTCNT	DRUG+1~
OUTPOCK	POCKET~, POCKET+7*
OUTPOCK(	POCKET+16, POCKET+18
PADEV	ASK+2~, ASK+8, PADEV~, PADEV+3, PADEV+4, PADEV+5, PADEV+6!, CAB~, CAB+6, CAB+10 , DRUG+1~, DRUG+4, POCKET+2~, POCKET+3, POCKET+4
PADEV(	PADEV+9*
PADIEN	PADEV+2~, POCKET+2~, POCKET+4*, POCKET+5, POCKET+8, POCKET+9, POCKET+10, POCKET+12, POCKET+15, POCKET+17
PADNAM	PADEV+2~, PADEV+7*, PADEV+8, PADEV+9
PADTMP	PADEV+2~, PADEV+5*
PADTMP(	PADEV+7, PADEV+8, PADEV+9
PCKNAM	PROCDET+1~, PROCDET+33*, PROCDET+34, PROCDET+40, PROCDET+42, PROCDET+43, PROCDET+44
PDEVIEN	QTY+1~, QTY+3, QTY+4, QTY+5, DFORM+1~, DFORM+3, DFORM+4, DFORM+5
PDRGIEN	QTY+1~, QTY+4, QTY+5, DFORM+1~, DFORM+4, DFORM+5
PGCNT	CONT~
POCKET	POCKET+2~, POCKET+10, POCKET+14, POCKET+16
POP	SELDEV+23!, SELDEV+25
PSBFLAG	PROCDET+13~, PROCDET+16*
PSBFLAG("PSB"	PROCDET+42*, PROCDET+56
PSBFLAG("RB"	PROCDET+43*, PROCDET+57
PSCAB	CAB+1~, CAB+12*, CAB+13, CAB+14
PSCABHLP	CAB+1~, CAB+4*
PSCABIEN	PROCDET+45~*, PROCDET+46
PSDIV	DIV+1~, DIV+4*, DIV+5, DIV+6
PSDONE	DRUG+1~
PSDRG	EN+1~, ASK+2~, ASK+10, POCKET~, POCKET+5, POCKET+7, POCKET+11, POCKET+15, POCKET+17, POCKET+18
PSDRGIEN	PROCDET+45~, PROCDET+46*
PSDRGLEN	PROCDET+18~
PSJCAB	PROCSUM+1~, PROCSUM+5, PROCSUM+7, PROCSUM+8, PROCSUM+9, PROCSUM+16, PROCSUM+18, PROCDET+1~, PROCDET+6, PROCDET+17 , PROCDET+19, PROCDET+20, PROCDET+21, PROCDET+25, PROCDET+31, PROCDET+45, QTY~, QTY+2, QTY+3, QTY+4 , DFORM~, DFORM+2, DFORM+3, DFORM+4
PSJCAB(	PROCSUM+7, PROCDET+17
PSJCABNM	PROCSUM+1~, PROCSUM+8, PROCSUM+13, PROCSUM+15, PROCSUM+24, PROCDET+1~, PROCDET+20*, PROCDET+44, PROCDET+51
PSJCABST	PROCSUM+1~, PROCSUM+8, PROCSUM+13, PROCDET+18~, PROCDET+19, PROCDET+20
PSJCLASS	GETCLASS+3~, GETCLASS+6, GETCLASS+8, GETCLASS+10, GETCLASS+11, GETCLASS+13
PSJCOL	PROCDET+1~, PROCDET+8
PSJCSUB	ASK+2~, ASK+9, PSJCSUB~, PSJCSUB+2!, PSJCSUB+8, PSJCSUB+9, PSJCSUB+10, PSJCSUB+11, PSJCSUB+14, PSJCSUB+15! , PSJCSUB+17, DRUG+1~, DRUG+2*
PSJCSUB(0	PSJCSUB+10*
PSJDELIM	ASK+2~
PSJDEV	ASK+2~
PSJDFIEN	PROCSUM+1~, PROCSUM+19, PROCSUM+21, PROCDET+2~, PROCDET+24, PROCDET+26*, PROCDET+28
PSJDFORM	PROCSUM+1~, PROCSUM+18, PROCSUM+19, PROCSUM+23, PROCSUM+24, PROCDET+1~, PROCDET+25, PROCDET+26, PROCDET+30, PROCDET+44 , PROCDET+51
PSJDIV	ASK+2~, ASK+7, CAB+1~, CAB+2*
PSJDNAM	PROCSUM+1~, PROCSUM+14*, PROCSUM+24
PSJDONE	PSJCSUB+1~, PSJCSUB+15!, PSJCSUB+17, SELDEV+2~, SELDEV+22, SELDEV+29*
PSJDPROD	GETCLASS+3~
PSJDRC	DRUG+1~, DRUG+5, DRUG+6
PSJDRCAB	DRCAB~, DRCAB+3!
PSJDRCAB(	DRCAB+9, DRCAB+11*
PSJDRG	ASK+2~, PROCSUM+1~, PROCSUM+6, PROCSUM+9, PROCSUM+14, PROCSUM+16, PROCSUM+17, PROCSUM+18, PROCSUM+24, PROCDET+1~ , PROCDET+7, PROCDET+12, PROCDET+17, PROCDET+21, PROCDET+23, PROCDET+25, PROCDET+31, PROCDET+33, PROCDET+34, PROCDET+37 , PROCDET+39, PROCDET+46, PROCDET+48, PROCDET+50, QTY~, QTY+2, QTY+3, QTY+4, DFORM~, DFORM+2 , DFORM+3, DFORM+4
PSJDRG(	PROCDET+9
PSJDRGX	PROCSUM+1~, PROCSUM+9~, PROCSUM+11
PSJDRGX(	PROCSUM+14
PSJDRIEN	PROCDET+2~, PROCDET+9*, PROCDET+10
PSJDRNAM	PROCDET+2~, PROCDET+9, PROCDET+10, PROCDET+11, PROCDET+12
PSJDRNAM(	PROCDET+10*, PROCDET+11
PSJDTRUN	PROCDET+36~, PROCDET+37, PROCDET+38, PROCDET+39, PROCDET+44, PROCDET+47~, PROCDET+48, PROCDET+49, PROCDET+50, PROCDET+51
PSJII	PROCSUM+1~, PROCSUM+14*, PROCDET+1~
PSJINP	EN+1~, ENLOOP+1~, ENLOOP+3, START+3, START+4, ASK~, ASK+8, ASK+9, ASK+10, ASK+13 , PADEV~, PADEV+3, CAB~, PSJCSUB~, DRUG~, DRUG+5, DRUG+6, PROCESS~, PROCESS+1, PROCESS+2 , PROCSUM~, PROCDET~, PROCDET+8, DRCAB~, DRUGLIST~, SELDEV~, POCKET~
PSJINP("PADEV"	ASK+8*, DRUG+4, PROCSUM+5, PROCDET+6, DRCAB+6, POCKET+3
PSJINP("PSDRG"	ASK+10*, PROCSUM+6, PROCDET+7
PSJINP("PSJCSUB"	ASK+9*, DRUG+2, DRCAB+10
PSJINP("PSJDELM"	START+5, ASK+12*, PROCSUM+10, PROCSUM+15, PROCSUM+24, PROCDET+14, PROCDET+44, PROCDET+51, PROCDET+52, SELDEV+4
PSJINP("PSJDEV"	ENLOOP+4, ASK+13*
PSJINP("PSJDIV"	ASK+7*, CAB+2
PSJINP("PSJPSYS"	ASK+6*, CAB+3, DRUG+3, PROCSUM+4, PROCDET+5, DRCAB+5, POCKET+3
PSJINP("PSJSUM"	ASK+11*, PROCESS+1, PROCESS+2
PSJINP("PSPGTOT"	PROCSUM+2, PROCDET+3
PSJION	SELDEV+23*, SELDEV+25!, SELDEV+31!
PSJNDF	GETCLASS+3~, GETCLASS+6*, GETCLASS+9, GETCLASS+10
PSJOI	PROCSUM+1~, PROCSUM+17, PROCSUM+19, PROCDET+1~, PROCDET+23, PROCDET+24, PROCDET+26
PSJPSYS	CAB+1~, CAB+3, DRUG+1~, DRUG+3, PROCSUM+1~, PROCSUM+4, PROCSUM+9, PROCSUM+16, PROCSUM+18, PROCDET+1~ , PROCDET+5, PROCDET+21, PROCDET+25, PROCDET+31, PROCDET+45, PROCDET+46, DRCAB+4~, DRCAB+5, DRCAB+7, DRCAB+8 , POCKET+2~, POCKET+3, POCKET+4, POCKET+5, POCKET+8, POCKET+9, POCKET+10, POCKET+12, POCKET+15, POCKET+17
PSJQTY	PROCSUM+1~, PROCSUM+16, PROCSUM+24, PROCDET+21, PROCDET+22
PSJQUIT	CONT~
PSJSCR	CAB+1~
PSJSTOP	EN+1~, EN+2, EN+3, ENLOOP+2, ENLOOP+3, START+1~, START+3, ASK+4, ASK+6, ASK+7 , ASK+8, ASK+9, ASK+10, ASK+11, ASK+12, ASK+13, DIV+5, CAB+13, PSJCSUB+9, PSJCSUB+17 , DRUG+6, SUMM+5, DELIM+5, SELDEV+22, SELDEV+28, CONT+6
PSJSUMM	ASK+2~
PSJSYS	ASK+2~
PSJWIDE	SELDEV~, SELDEV+20
PSJX	CAB+1~, CAB+8*, CAB+9
PSYS	PSYS+1~, PSYS+2*, PSYS+3
PSYSIEN	QTY+1~, QTY+2, QTY+3, QTY+4, QTY+5, DFORM+1~, DFORM+2, DFORM+3, DFORM+4, DFORM+5
QTY	PROCDET+1~, PROCDET+34~, PROCDET+35, PROCDET+40, PROCDET+45~, PROCDET+46, PROCDET+51, QTY+1~, QTY+5*, QTY+6
RTN	SELDEV~, SELDEV+32
SCHED	PSJCSUB+1~
SCHLST	PSJCSUB+1~, PSJCSUB+13*, PSJCSUB+14
SCNT	PSJCSUB+16~
SCREEN	LISTDRG~, LISTDRG+3
SUB	POCKET+2~, POCKET+9*, POCKET+10, POCKET+16
SUBID	POCKET+2~, POCKET+10*, POCKET+16
SUMM	SUMM+1~
SYS	QTY~, DFORM~, ALPHADRG~
TAB	LISTALL+1~, LISTALL+2*, LISTALL+4
TABMAR	PROCSUM+1~, PROCSUM+3, PROCDET+1~, PROCDET+4, PROCDET+53, PROCDET+54, PROCDET+55
TMPLN	CONT~
X	START+6~, DIV+1~, CAB+1~, CAB+8, CAB+10, PSJCSUB+1~, PSJCSUB+6, PSJCSUB+7, PSJCSUB+16~, DRUG+1~ , SUMM+1~, DELIM+1~, LISTDRG+2~, PROCSUM+20~, PROCSUM+21, PROCSUM+22, PROCDET+27~, PROCDET+28, PROCDET+29, SELDEV+5~ , SELDEV+26~
Y	START+6~, DIV+1~, DIV+4, CAB+1~, CAB+9, CAB+10, CAB+11, CAB+12, PSJCSUB+1~, PSJCSUB+6 , PSJCSUB+7*, PSJCSUB+8, PSJCSUB+9, PSJCSUB+16~, DRUG+1~, SUMM+1~, SUMM+6, DELIM+1~, DELIM+6, LISTDRG+2~ , PROCSUM+20~, PROCSUM+23, PROCDET+27~, PROCDET+30, SELDEV+5~, SELDEV+26~, SELDEV+28
ZTDESC	ENLOOP+1~, SELDEV+32*
ZTRTN	ENLOOP+1~, SELDEV+32*
ZTSAVE	ENLOOP+1~
ZTSAVE(	SELDEV+33*
ZTSK	ENLOOP+1~, EXIT+1!, SELDEV~, SELDEV+23!, SELDEV+34

Customize PDF page

Package: Inpatient Medications

Routine: PSJPDRIN

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: