Routine: PSJPDRTP

Package	Total	Call Graph
Inpatient Medications	5	$$PTRNSTYP^PSJPAD7I $$GETCLASS^PSJPDRIN ($$CABST,$$TRANSTR,CNVTYP,CONT2)^PSJPDRIP ($$SECTHD1,$$SECTHD2,SETCOLS)^PSJPDRTP ($$BLDSTR,$$PTTRFLG)^PSJPDRU1
Kernel	2	^%ZISC ($$FMTE,$$NOW)^XLFDT
VA FileMan	1	$$FIND1^DIC

Package	Total	Caller Graph
Inpatient Medications	2	PSJPDRTP PSJPDRTR

Entry Points

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	Field # of Occurrence
^%ZISC	DELIM+13, FORMAT+17
$$FIND1^DIC	POCKDRG+3
$$PTRNSTYP^PSJPAD7I	TSCREEN+60
$$GETCLASS^PSJPDRIN	TSCREEN+37
$$CABST^PSJPDRIP	PROCSUM+16
$$TRANSTR^PSJPDRIP	SRHEAD+19
CNVTYP^PSJPDRIP	TSCREEN+21
CONT2^PSJPDRIP	FORMAT+10, FORMAT+16
$$SECTHD1^PSJPDRTP	CONTRAN+7
$$SECTHD2^PSJPDRTP	CONTRAN+8
SETCOLS^PSJPDRTP	PROCSUM+4
$$BLDSTR^PSJPDRU1	BLDSTR+5
$$PTTRFLG^PSJPDRU1	TSCREEN+48
$$FMTE^XLFDT	PHEAD+12
$$NOW^XLFDT	PHEAD+12

Name	Line Occurrences
Function Call: WRITE	Prompt: !?PSJCOL(1),$P(LINE,"^"),?PSJCOL(2),$P(LINE,"^",2),?PSJCOL(3),$P(LINE,"^",3),?PSJCOL(4),$P(LINE,"^",4),?PSJCOL(5),$P(LINE,"^",5) Line Location: FORMAT+14
Function Call: WRITE	Prompt: ?PSJCOL(10),$P(LINE,"^",10) Line Location: FORMAT+15
Routine Call	DIC Line Location: POCKDRG+3

FileNo	Call Tags
58.6011	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	PHEAD+10
^PS(58.6 - [#58.6]	PROCSUM+21, TSCREEN+5, TSCREEN+6, TSCREEN+7, TSCREEN+55, TSCREEN+58
^PS(58.601 - [#58.601]	POCKDRG+4, POCKDRG+5
^PSDRUG - [#50]	DRGSTR+4
^TMP(	EXIT+3!, TSCREEN+51
^TMP($J	DELIM+4, DELIM+5, DELIM+7, FORMAT+6, FORMAT+7, FORMAT+9, PROCSUM+10, PROCSUM+12, PROCSUM+38, PROCSUM+40 , PROCSUM+42, SRHEAD+10, SRHEAD+12, SRHEAD+14, SRHEAD+16, SRHEAD+18, SRHEAD+20, SRHEAD+22, SRHEAD+23, PHEAD+13 , PHEAD+15, PHEAD+16, EXIT+2!, PGTOT+1, PTSTR+3, PTSTR+4, PTSTR+5, PTSTR+6, CONTRAN+4, CONTRAN+5 , CONTRAN+6, CONTRAN+7, CONTRAN+8, CONTRAN+9
^VA(200 - [#200]	PHEAD+14

Name	Line Occurrences
$$BLDSTR	PROCSUM+32
$$CABSTR	SRHEAD+11
$$CSCHED	SRHEAD+9
$$DRGSTR	SRHEAD+15
$$PGTOT	FORMAT+4
$$PTSTR	SRHEAD+13
$$USRSTR	SRHEAD+17
CONTRAN	PROCSUM+25, PROCSUM+30
DELIM	EN+15
EXIT	DELIM+14, FORMAT+18
FORMAT	EN+16
PHEAD	PROCSUM+23, PROCSUM+29, SRHEAD+8, CONTRAN+3
SETCOLS	FORMAT+5
SRHEAD	DELIM+3, PROCSUM+8

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CABIEN	POCKDRG+1~, POCKDRG+3*, POCKDRG+4, POCKDRG+5
CABNAME	FORMAT+1~
CABSTR	CABSTR+1!, CABSTR+4*, CABSTR+5
COL	SETCOLS~
COL(1	SETCOLS+1*
COL(2	SETCOLS+1*
COL(3	SETCOLS+1*
COL(4	SETCOLS+1*
COL(5	SETCOLS+1*
COL(6	SETCOLS+1*
COL(7	SETCOLS+1*
COL(8	SETCOLS+1*
COL(9	SETCOLS+1*
CSCHED	SRHEAD+2~, SRHEAD+9, SRHEAD+10, CSCHED+1!, CSCHED+2, CSCHED+3, CSCHED+4, CSCHED+5
DRGIEN	POCKDRG+1~
DRUG	POCKDRG~, POCKDRG+5, POCKDRG+9
DRWIEN	POCKDRG+1~, POCKDRG+4*, POCKDRG+5
DRWNAM	POCKDRG+1~, POCKDRG+4*, POCKDRG+6
DRWPCK	POCKDRG~
DRWPCK(	POCKDRG+9*
DTOUT	EN+11~
DUOUT	EN+11~
DUZ	PHEAD+14
I	POCKDRG+1~, POCKDRG+7*
II	PROCSUM+1~
IO	EN+14, FORMAT+14
IOSL	EN+12, PROCSUM+3
LINE	FORMAT+8~, FORMAT+9, FORMAT+10, FORMAT+12, FORMAT+13, FORMAT+14, FORMAT+15, PHEAD+2~, PHEAD+12, PHEAD+13 , PHEAD+14, PHEAD+15
LOCNAM	POCKDRG+1~, POCKDRG+7, POCKDRG+8, POCKDRG+9
ND	POCKDRG+1~, POCKDRG+5*, POCKDRG+6, POCKDRG+9
OVRIDE	SRHEAD+2~, SRHEAD+21*, SRHEAD+22
PAD	PHEAD+2~, PHEAD+4*, PHEAD+12, PHEAD+14
PADECAB	SRHEAD+2~
PADEDRG	SRHEAD+2~, SRHEAD+15, SRHEAD+16, DRGSTR+1~, DRGSTR+3, DRGSTR+4, DRGSTR+5, DRGSTR+6*, DRGSTR+7
PATSTR	PTSTR+1~, PTSTR+2, PTSTR+5, PTSTR+6*, PTSTR+7
PCKIEN	POCKDRG+1~, POCKDRG+5*
PCKNAM	POCKDRG+1~, POCKDRG+6*, POCKDRG+7
PDASH	PHEAD+2~, PHEAD+3*, PHEAD+16
PGTOT	PGTOT+1~*, PGTOT+2
PSADDPG	PHEAD~, PHEAD+7, PHEAD+16
PSALTDRG	PROCSUM+11~, PROCSUM+15*, PROCSUM+22
PSDCNT	PHEAD+2~, PHEAD+9*, PHEAD+11
PSDIVOUT	PHEAD+2~, PHEAD+10*, PHEAD+11
PSDIVSTR	PHEAD+2~, PHEAD+8, PHEAD+9, PHEAD+11*, PHEAD+14
PSDLCAB	PROCSUM+33~, PROCSUM+34, PROCSUM+35, PROCSUM+36
PSDLDRG	PROCSUM+33~, PROCSUM+34, PROCSUM+35, PROCSUM+36
PSDLOC	PROCSUM+11~, PROCSUM+17, PROCSUM+20, PROCSUM+22, PROCSUM+33~, PROCSUM+34*, PROCSUM+36
PSDLPAR	PROCSUM+33~, PROCSUM+34*
PSDRGID	PROCSUM+11~, PROCSUM+21*, PROCSUM+22
PSDRWR	PROCSUM+2~, PROCSUM+19*, PROCSUM+20
PSJBDT	TSCREEN+2~, TSCREEN+12*, TSCREEN+26
PSJCAB	POCKDRG~, POCKDRG+2, POCKDRG+3, TSCREEN+2~, TSCREEN+14*
PSJCAB(	TSCREEN+29
PSJCABS	SRHEAD+2~, SRHEAD+11*, SRHEAD+12
PSJCABST	PROCSUM+11~, PROCSUM+16*, PROCSUM+22
PSJCOL	FORMAT+1~, FORMAT+5, PROCSUM+1~, PROCSUM+4
PSJCOL(1	FORMAT+14
PSJCOL(10	FORMAT+15
PSJCOL(2	FORMAT+14
PSJCOL(3	FORMAT+14
PSJCOL(4	FORMAT+14
PSJCOL(5	FORMAT+14
PSJCOL(6	FORMAT+15
PSJCOL(7	FORMAT+15
PSJCOL(8	FORMAT+15
PSJCOL(9	FORMAT+15
PSJCOMM	PROCSUM+11~, PROCSUM+32, PROCSUM+42*, BLDSTR~, BLDSTR+5
PSJCSUB	TSCREEN+2~, TSCREEN+15*
PSJCSUB(	TSCREEN+40
PSJDASH	FORMAT+1~, FORMAT+3, PROCSUM+2~, PROCSUM+6, SRHEAD+2~, SRHEAD+3*, SRHEAD+23, CONTRAN+9
PSJDELIM	EN+11~, EN+13*, EN+15, EN+16
PSJDELM	TSCREEN+2~, TSCREEN+22*
PSJDIV	SRHEAD+2~, SRHEAD+5, PHEAD+2~, PHEAD+9, PHEAD+10, TSCREEN+2~, TSCREEN+11*
PSJDLN	FORMAT+1~, FORMAT+7*, FORMAT+9
PSJDONE	PTSTR+1~, PTSTR+4, PTSTR+5, USRSTR+1~, USRSTR+3, USRSTR+4
PSJDRG	TSCREEN+2~, TSCREEN+16*, TSCREEN+34, TSCREEN+35
PSJDRG(	TSCREEN+35
PSJDRG("*"	TSCREEN+35
PSJEDT	TSCREEN+2~, TSCREEN+13*, TSCREEN+26
PSJI	PROCSUM+1~, PROCSUM+10*, PROCSUM+12
PSJII	SRHEAD+2~, CABSTR+1~, CABSTR+3, CABSTR+4, DRGSTR+3, DRGSTR+4, DRGSTR+5, PTSTR+1~, PTSTR+4, PTSTR+6 , USRSTR+1~, USRSTR+3, USRSTR+5
PSJINP	EN~, EN+15, EN+16, DELIM~, DELIM+3, FORMAT~, FORMAT+5, PROCSUM~, PROCSUM+4, PROCSUM+8 , PROCSUM+23, PROCSUM+25, PROCSUM+29, PROCSUM+30, PROCSUM+32, BLDSTR~, BLDSTR+5, SRHEAD~, SRHEAD+8, SRHEAD+9 , SRHEAD+11, SRHEAD+13, SRHEAD+15, SRHEAD+17, SRHEAD+19, PHEAD~, CSCHED~, CABSTR~, DRGSTR~, PTSTR~ , USRSTR~, TSCREEN~, TSCREEN+48, SETCOLS~, CONTRAN~, CONTRAN+3
PSJINP("PADEV"	CABSTR+2, CABSTR+3, TSCREEN+14
PSJINP("PSDRG"	DRGSTR+2, DRGSTR+3, TSCREEN+16
PSJINP("PSJBDT"	TSCREEN+12
PSJINP("PSJCSUB"	SRHEAD+10, CSCHED+2, CSCHED+3, TSCREEN+15
PSJINP("PSJDELM"	EN+13, PROCSUM+33, PROCSUM+42, SRHEAD+1, PHEAD+1, TSCREEN+22, CONTRAN+2
PSJINP("PSJDIV"	SRHEAD+5, PHEAD+8, PHEAD+9, TSCREEN+11
PSJINP("PSJEDT"	TSCREEN+13
PSJINP("PSJOVR"	SRHEAD+21, TSCREEN+23
PSJINP("PSJPAT"	TSCREEN+20
PSJINP("PSJPSYS"	PROCSUM+16
PSJINP("PSJPSYSE"	TSCREEN+8
PSJINP("PSJSUM"	SRHEAD+6
PSJINP("PSJTRANS"	TSCREEN+19
PSJINP("PSJTSK"	TSCREEN+50
PSJINP("PSJUM"	TSCREEN+17
PSJINP("PSJUSER"	USRSTR+2, USRSTR+3, USRSTR+4, USRSTR+5, TSCREEN+18
PSJIOSL	EN+11~, EN+12, EN+16, FORMAT~, PROCSUM+2~, PROCSUM+3, PROCSUM+23, PROCSUM+29, CONTRAN+3
PSJLNCNT	EN+11~, DELIM+1~, DELIM+2, DELIM+3, DELIM+5, DELIM+7, FORMAT+1~, FORMAT+2, PROCSUM+1~, PROCSUM+7 , PROCSUM+8, PROCSUM+23, PROCSUM+25, PROCSUM+29, PROCSUM+30, PROCSUM+37, PROCSUM+38, PROCSUM+39, PROCSUM+40, PROCSUM+42* , SRHEAD~, SRHEAD+7, SRHEAD+8, SRHEAD+10, SRHEAD+12, SRHEAD+14, SRHEAD+16, SRHEAD+18, SRHEAD+20, SRHEAD+22 , SRHEAD+23, PHEAD~, PHEAD+5, PHEAD+12, PHEAD+13, PHEAD+15, PHEAD+16, CONTRAN~, CONTRAN+3, CONTRAN+4* , CONTRAN+5, CONTRAN+6, CONTRAN+7, CONTRAN+8, CONTRAN+9*
PSJLNFMT	DELIM+6~, DELIM+11*, DELIM+12
PSJLNRAW	DELIM+6~, DELIM+7*, DELIM+11
PSJOB	EXIT+1~, EXIT+3, TSCREEN+3~, TSCREEN+50, TSCREEN+51
PSJOK	TSCREEN+2~, TSCREEN+4*
PSJOVQ	TSCREEN+2~, TSCREEN+59, TSCREEN+60, TSCREEN+61
PSJOVR	TSCREEN+3~, TSCREEN+23*, TSCREEN+59
PSJPAT	SRHEAD+2~, TSCREEN+3~, TSCREEN+20*
PSJPGCNT	DELIM+1~, DELIM+2, DELIM+3, DELIM+4, DELIM+5, DELIM+7, FORMAT+1~, FORMAT+6, FORMAT+7, FORMAT+9 , FORMAT+10, FORMAT+16, PROCSUM+2~, PROCSUM+7, PROCSUM+8, PROCSUM+23, PROCSUM+25, PROCSUM+29, PROCSUM+30, PROCSUM+38 , PROCSUM+40, PROCSUM+42, SRHEAD~, SRHEAD+7, SRHEAD+8, SRHEAD+10, SRHEAD+12, SRHEAD+14, SRHEAD+16, SRHEAD+18 , SRHEAD+20, SRHEAD+22, SRHEAD+23, PHEAD~, PHEAD+7, PHEAD+12, PHEAD+13, PHEAD+15, PHEAD+16, CONTRAN~ , CONTRAN+3, CONTRAN+4, CONTRAN+5, CONTRAN+6, CONTRAN+7, CONTRAN+8, CONTRAN+9
PSJPGTOT	DELIM+1~, FORMAT+1~, FORMAT+4, FORMAT+10, PROCSUM+2~, PROCSUM+8, PROCSUM+23, PROCSUM+29, SRHEAD~, SRHEAD+4 , SRHEAD+8, PHEAD~, CONTRAN+3
PSJPSYS	POCKDRG~, POCKDRG+2, POCKDRG+3, POCKDRG+4, POCKDRG+5
PSJPSYSE	TSCREEN+2~, TSCREEN+8*, TSCREEN+10
PSJPTFLG	TSCREEN+3~, TSCREEN+48*, TSCREEN+51, TSCREEN+53
PSJPTOT	EN+11~, DELIM+2*, DELIM+3
PSJPTSTR	SRHEAD+2~, SRHEAD+13*, SRHEAD+14
PSJPTYP	TSCREEN+3~, TSCREEN+21
PSJPTYP(	TSCREEN+43
PSJQUIT	EN+11~, DELIM+5, FORMAT+6, FORMAT+7, FORMAT+10, FORMAT+16
PSJSUBDR	PROCSUM+11~, PROCSUM+18*, PROCSUM+20
PSJSUM	SRHEAD+2~, SRHEAD+6, TSCREEN+2~, TSCREEN+17
PSJTADNM	TSCREEN+2~, TSCREEN+33*, TSCREEN+35
PSJTADRG	TSCREEN+2~, TSCREEN+33*, TSCREEN+34, TSCREEN+38
PSJTCAB	TSCREEN+2~, TSCREEN+3~, TSCREEN+28*, TSCREEN+29
PSJTDRUG	TSCREEN+3~, TSCREEN+31*, TSCREEN+34, TSCREEN+35, TSCREEN+37, TSCREEN+38
PSJTDT	TSCREEN+2~, TSCREEN+3~, TSCREEN+25*, TSCREEN+26
PSJTMP	SRHEAD+2~, CSCHED+1~, CSCHED+3, CABSTR+1~, CABSTR+3, CABSTR+4, DRGSTR+3, DRGSTR+4, DRGSTR+5, PTSTR+1~ , PTSTR+4, PTSTR+5, PTSTR+6, USRSTR+1~, USRSTR+3*, USRSTR+4, USRSTR+5
PSJTNOD0	TSCREEN+3~, TSCREEN+5*, TSCREEN+25, TSCREEN+28, TSCREEN+31, TSCREEN+42, TSCREEN+45
PSJTNOD1	TSCREEN+3~, TSCREEN+6*, TSCREEN+9, TSCREEN+33
PSJTNOD3	TSCREEN+3~, TSCREEN+7*, TSCREEN+46, TSCREEN+47
PSJTORD	TSCREEN+3~, TSCREEN+58*, TSCREEN+61
PSJTPAT	TSCREEN+2~, TSCREEN+45, TSCREEN+46, TSCREEN+47*, TSCREEN+51, TSCREEN+53
PSJTRANS	TSCREEN+3~, TSCREEN+19*, TSCREEN+21
PSJTSUB	TSCREEN+3~, TSCREEN+37, TSCREEN+38, TSCREEN+39, TSCREEN+40
PSJTSYS	TSCREEN+3~, TSCREEN+9*, TSCREEN+10
PSJTTRAN	TSCREEN+3~, TSCREEN+42*, TSCREEN+43, TSCREEN+60
PSJTUSR	TSCREEN+3~, TSCREEN+55*, TSCREEN+56
PSJUSER	TSCREEN+2~, TSCREEN+18*, TSCREEN+56
PSJUSER(	TSCREEN+56
PSJUSRID	PROCSUM+2~
PSJWITID	PROCSUM+2~
PSJXPTNM	TSCREEN+2~, TSCREEN+47*
PSJY	TSCREEN~, TSCREEN+5, TSCREEN+6, TSCREEN+7, TSCREEN+55, TSCREEN+58
PSLNDSTR	PROCSUM+1~, PROCSUM+32, PROCSUM+36, PROCSUM+40, BLDSTR+5*, BLDSTR+6
PSLNHSTR	PROCSUM+1~, PROCSUM+22*, PROCSUM+25, PROCSUM+27, PROCSUM+28, PROCSUM+30, PROCSUM+34, CONTRAN~, CONTRAN+5
PSLNOD	PROCSUM+1~, PROCSUM+12, PROCSUM+14, PROCSUM+15, PROCSUM+16, PROCSUM+17, PROCSUM+18, PROCSUM+19, PROCSUM+21, PROCSUM+22 , PROCSUM+32, BLDSTR~, BLDSTR+5
PSPGCNT	SRHEAD+2~
PSTMPHDR	PROCSUM+1~, PROCSUM+25, PROCSUM+27, PROCSUM+28*
QTY	PROCSUM+1~, PROCSUM+14*
STRING	SECTHD1+1~, SECTHD1+2, SECTHD1+3, SECTHD2+1~, SECTHD2+2, SECTHD2+3
TABMAR	PROCSUM+2~, PROCSUM+5*
TRANSTR	SRHEAD+2~, SRHEAD+19*, SRHEAD+20
USER	FORMAT+8~, FORMAT+12*
USRSTR	SRHEAD+2~, SRHEAD+17, SRHEAD+18, USRSTR+1~, USRSTR+4, USRSTR+5*, USRSTR+6
WITNESS	FORMAT+8~, FORMAT+13*
ZTSK	EXIT+3, EXIT+4!

Customize PDF page

Package: Inpatient Medications

Routine: PSJPDRTP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: