Routine: PSJPADSI

Package	Total	Call Graph
VA FileMan	6	EN^DDIOL (,$$FIND1,LIST)^DIC FILE^DICN (,FILE)^DIE GETS^DIQ ^DIR
Inpatient Medications	3	($$CHKCG,$$CHKWG,$$PADECL,$$PADEWD)^PSJPAD50 ($$DEVSTCHK,DELBADSY,INSYSPAR)^PSJPDRU1 ($$ENSYS,$$UPPER)^PSJPDRUT
Registration	2	WIN^DGPMDDCF INP^VADPT
Kernel	1	($$FMADD,$$NOW)^XLFDT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Inpatient Medications	12	PSGOEF1 PSGPEN PSGPLR PSJ PADE DEVICE SETUP PSJ PADE DISPENSING DEVICE PSJ PADE INVENTORY PSJ PADE INVENTORY SYSTEM PSJLMPRU PSJLMUDE PSJO PSJO2 PSJPAD50
Auto Replenishment Ward Stock	3	^PS(58.601 DISPENSING DEVICE DRUG (DEVICE)
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
ENCAB	; Setup Cabinet device in file 58.63
PADEV	;enter/edit PADE devices and VistA locations
GETFILD(PSJPSYS,DEVIEN)	; Get Device if it exists, or File Device if not
ENSYS	; Setup PADE Inbound System in file 58.601
PADESYS	;enter/edit PADE inventory system
GETDEV(PSJPSYS,DEVIEN)	; Get device ien
WARDSCR(Y)	; Ward Location Y must be associated with division PSJDIV in PADE inbound system DA(3)
WARDSCR2(Y,DDEV)	; Ward Location Y must be associated with division PSJDIV in PADE inbound system DA(3)
CLCHK(QZ)	; Clinic Location QZ must be associated with division PSJDIV in PADE inbound system DA(3)
CLCHK2(QZ,DDEV)	; Clinic Location QZ must be associated with division PSJDIV in PADE inbound system DA(3)
CGCHK(QZ)	; Clinic Group QZ must have at least one clinic associated with division PSJDIV in PADE inbound system DA(3)
CGCHK2(QZ,DDEV)	; Clinic Group QZ must have at least one clinic associated with division PSJDIV in PADE inbound system DA(3)
WGCHK(QZ)	; Ward Group QZ must have at least one ward associated with division PSJDIV in PADE inbound system DA(3)
WGCHK2(QZ,DDEV)	; Ward Group QZ must have at least one ward associated with division PSJDIV in PADE inbound system DA(3)
SYSHLP	; User help for PADE INVENTORY SYSTEM (#.01) field of PADE INVENTORY SYSTEM (#58.601) file
DDEVHLP	; User help for DISPENSING DEVICE (#1) field of PADE INVENTORY SYSTEM (#58.601) file
CBALHLP	; User help for CALCULATED DEVICE BALANCE (#1) field in DRUG (DEVICE) (#58.60111) sub-file.
RBALHLP	; User help for REPORTED DEVICE BALANCE (#2) field in DRUG (DEVICE) (#58.60111) sub-file.
DRGINHLP	; User help for INACTIVE DATE/TIME (#3) field in the DRUG (DEVICE) (#58.60111) sub-file.
DIVHLP	; User help for DIVISION (#3) field, sub-file 58.6013.
WRITE(ARRAY)	; Write contents of ARRAY to screen
DWOIN(DWOTIM)	; Input Transform-Dispensed without orders-length of time after dispense that order creation is allowed
ROUND(NUM)	; Round
ASKDONE()	; Ask next action
DWODEV(CABNUM)	; Prompt for Dispensed Without Orders Mail Group for Device CABINET
DRGFLAG(DFN,PSGORD,PSJDFLOC,ON,PSJNEWOE)	; Get flag indicating order is PADE order
DRGSTOCK(DFN,PSGORD,PSJDFLOC,PS5345,DRGIEN)	; Get Quantity of Drug in PADE for patient DFN order PSGORD ; PSGORD = Clinic Order - find PADEs associated with the Clinic, return total quantity in all qualifying PADEs ; PSGORD = Regular UD order - find PADEs associated with patient's ward location, return total quantity in all PADEs
GETUDRG(DFN,PSGORD,PSJLOC,PSJLOCTP,PSDRUG)	; Get UD order location and drug from UD multiple (#62) of PHARMACY PATIENT file (#55) ;
GETPDRG(DFN,PSGORD,PSJLOC,PSJLOCTP,PSDRUG)	; Get UD order location and drug from NON VERIFIED/PENDING file (#53.1)
DRGQTY(DRGIEN,LOCTYP,LOCIEN)	; Get PADE quantity for drug DRGIEN for location LOCIEN
CABLOC(PSJCAB,PSJSUBFI,LOCIEN)	; Return true if location LOCIEN is linked to cabinet PSJCAB
GETCABCT(CAB,DRG)	; Get PADE count of drug DRG for cabinet CAB
PSJOE	; Set the PSJ PADE OE BALANCES kernel parameter ;
PSJRFND(DFN,PSGORD,PSJLOC,PSJLOCTP,PSDRUG)	; Return a flag indicating all Dispense Drugs in the order are PADE drugs

Name	Field # of Occurrence
EN^DDIOL	WRITE+1, DWODEV+14, PSJOE+10
WIN^DGPMDDCF	WARDSCR+2
^DIC	GETFILD+5, GETDEV+4
$$FIND1^DIC	DWODEV+7, PSJOE+4
LIST^DIC	CABLOC+7
FILE^DICN	DWODEV+12
^DIE	PADEV+7, PADESYS+6, PADESYS+12, DWODEV+15
FILE^DIE	GETFILD+10, GETDEV+8
GETS^DIQ	DWODEV+3, CABLOC+4, CABLOC+14, GETCABCT+7, GETCABCT+8
^DIR	PADESYS+13, ASKDONE+6, PSJOE+18
$$CHKCG^PSJPAD50	CABLOC+12
$$CHKWG^PSJPAD50	CABLOC+10
$$PADECL^PSJPAD50	PSJRFND+4
$$PADEWD^PSJPAD50	PSJRFND+5
$$DEVSTCHK^PSJPDRU1	PSJOE+12
DELBADSY^PSJPDRU1	GETFILD+6
INSYSPAR^PSJPDRU1	PSJOE+22
$$ENSYS^PSJPDRUT	PADESYS+2
$$UPPER^PSJPDRUT	GETFILD+9, GETDEV+7
INP^VADPT	DRGSTOCK+11, GETUDRG+8, GETPDRG+8
$$FMADD^XLFDT	PSJRFND+11
$$NOW^XLFDT	PSJRFND+11
$$GET^XPAR	PSJOE+11

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PADEV+1
Function Call: WRITE	Prompt: ! Line Location: PADEV+3
Function Call: WRITE	Prompt: ! Line Location: PADEV+7
Function Call: WRITE	Prompt: ! Line Location: GETFILD+3
Function Call: WRITE	Prompt: ! Line Location: PADESYS+1
Function Call: WRITE	Prompt: ! Line Location: PADESYS+12
Function Call: WRITE	Prompt: ! Line Location: GETDEV+3
Function Call: WRITE	Prompt: ! Line Location: DWODEV+14
Routine Call	DIC Line Location: GETFILD+5 GETDEV+4
Routine Call	DIC Line Location: DWODEV+7 PSJOE+4
Routine Call	DIC Line Location: CABLOC+7
Routine Call	DIE Line Location: PADEV+7 PADESYS+6 PADESYS+12 DWODEV+15
Routine Call	DIE Line Location: GETFILD+10 GETDEV+8
Routine Call	DIR Line Location: PADESYS+13 ASKDONE+6 PSJOE+18

FileNo	Call Tags
^SC - [#44]	GETS^DIQ
^PS(58.601 - [#58.601]	Classic Fileman Calls
58.60111	GETS^DIQ
58.6014	FIND1^DIC
^PS(58.63 - [#58.63]	Classic Fileman Calls, GETS^DIQ
^XTV(8989.51 - [#8989.51]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WARDSCR+3, WARDSCR2+6, WGCHK+5, WGCHK2+8
^PS(53.1 - [#53.1]	DRGFLAG+9, DRGFLAG+18, DRGFLAG+19, DRGSTOCK+19, GETPDRG+3, GETPDRG+4, GETPDRG+7, GETPDRG+10
^PS(53.45 - [#53.45]	DRGSTOCK+25, PSJRFND+10
^PS(55 - [#55]	DRGFLAG+9, DRGSTOCK+19, GETUDRG+3, GETUDRG+4, GETUDRG+7
^PS(57.5 - [#57.5]	WGCHK+3, WGCHK+4, WGCHK2+6, WGCHK2+7
^PS(57.8 - [#57.8]	CGCHK+3, CGCHK+4, CGCHK2+6, CGCHK2+7
^PS(58.601 - [#58.601]	PADESYS+7, WARDSCR+3, CLCHK+1, CGCHK+1, WGCHK+1, ASKDONE+2, DRGQTY+16, GETCABCT+3, GETCABCT+4, GETCABCT+5
^PS(58.63 - [#58.63]	GETFILD+9, GETDEV+7, WARDSCR2+4, CLCHK2+3, CGCHK2+3, WGCHK2+3, CABLOC+16, CABLOC+19
^SC - [#44]	CLCHK+2, CLCHK+3, CLCHK2+5, CLCHK2+6, CGCHK+5, CGCHK2+8

Name	Line Occurrences
$$CABLOC	DRGQTY+17
$$DRGQTY	DRGSTOCK+31, PSJRFND+12
$$GETCABCT	DRGQTY+17
$$PSJRFND	DRGFLAG+13, DRGFLAG+21
$$ROUND	DWOIN+7
GETDEV	PADESYS+9
GETFILD	PADEV+3
GETPDRG	DRGFLAG+12, DRGFLAG+20, DRGSTOCK+22
GETUDRG	DRGFLAG+11, DRGSTOCK+21
PADESYS	ENSYS+2
PADEV	ENCAB+2
WRITE	SYSHLP+6, DDEVHLP+6, CBALHLP+6, RBALHLP+6, DRGINHLP+5, DIVHLP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	SYSHLP+1~, SYSHLP+6, DDEVHLP+1~, DDEVHLP+6, CBALHLP+1~, CBALHLP+6, RBALHLP+1~, RBALHLP+6, DRGINHLP+1~, DRGINHLP+5 , DIVHLP+1~, DIVHLP+6, WRITE~, WRITE+1
ARRAY(1	SYSHLP+2, DDEVHLP+2, CBALHLP+2, RBALHLP+2, DRGINHLP+2, DIVHLP+2
ARRAY(2	SYSHLP+3, DDEVHLP+3, CBALHLP+3, RBALHLP+3, DRGINHLP+3, DIVHLP+3
ARRAY(3	SYSHLP+4, DDEVHLP+4, CBALHLP+4, RBALHLP+4, DRGINHLP+4, DIVHLP+4
ARRAY(4	SYSHLP+5, DDEVHLP+5, CBALHLP+5, RBALHLP+5, DIVHLP+5*
CAB	GETCABCT~, GETCABCT+3, GETCABCT+4, GETCABCT+5, GETCABCT+8, GETCABCT+9
CABCT	GETCABCT+1~, GETCABCT+2*
CABCT(	GETCABCT+11
CABLOC	CABLOC+2~, CABLOC+8, CABLOC+10, CABLOC+12, CABLOC+16, CABLOC+19, CABLOC+20
CABLOC("DILIST"	CABLOC+8
CABNAME	DWODEV+1~, DWODEV+4*, DWODEV+6, DWODEV+7, DWODEV+14
CABNAME(	DWODEV+4, DWODEV+5
CABNUM	DWODEV~, DWODEV+2, DWODEV+3, DWODEV+4, DWODEV+5, DWODEV+11
CABSTAT	CABLOC+2~, GETCABCT+1~
CABSTAT("58.63"	CABLOC+5, GETCABCT+9
CL	CGCHK+1~, CGCHK+3, CGCHK+4, CGCHK2+1~, CGCHK2+6, CGCHK2+7
CLIEN	CGCHK+1~, CGCHK+4, CGCHK+5, CGCHK2+1~, CGCHK2+7, CGCHK2+8
CLINAM	CABLOC+2~, CABLOC+15*, CABLOC+17, CABLOC+18
CLINAM(44	CABLOC+15
D	GETFILD+1~
D0	WARDSCR+1~, WARDSCR+2, WARDSCR+3, WARDSCR2+1~, WARDSCR2+2, WARDSCR2+6
DA	PADEV+1~, PADEV+7, PADEV+8, GETFILD+8, GETFILD+9, PADESYS+1~, PADESYS+5, PADESYS+11~, PADESYS+12, DWODEV+1~ , DWODEV+9~, DWODEV+15
DA(1	DWODEV+11, DWODEV+15
DA(2	WARDSCR+3, CLCHK+1, CGCHK+1, WGCHK+1
DA(3	WARDSCR+3, CLCHK+1, CGCHK+1, WGCHK+1
DDCNT	GETUDRG+2~, GETUDRG+3, GETUDRG+4, GETPDRG+2~, GETPDRG+3, GETPDRG+4
DDEV	WARDSCR2~, WARDSCR2+3, WARDSCR2+4, CLCHK2~, CLCHK2+2, CLCHK2+3, CGCHK2~, CGCHK2+2, CGCHK2+3, WGCHK2~ , WGCHK2+2, WGCHK2+3
DDX	PSJRFND+10~*
DEV	GETFILD+2~, GETDEV+2~
DEVDA	PADEV+1~, PADEV+3, PADEV+4, PADEV+5, PADEV+7, PADESYS+1~, PADESYS+9, PADESYS+12, GETCABCT+1~, GETCABCT+4* , GETCABCT+5, GETCABCT+7, GETCABCT+11
DEVIEN	GETFILD~, GETFILD+1!, GETFILD+5, GETFILD+7, GETFILD+9, GETDEV~, GETDEV+1!, GETDEV+4, GETDEV+5, GETDEV+6 , GETDEV+7, GETDEV+9
DEVPRMPT	GETFILD+2~, GETDEV+2~
DFN	DRGFLAG~, DRGFLAG+4, DRGFLAG+9, DRGFLAG+11, DRGFLAG+12, DRGFLAG+13, DRGFLAG+20, DRGFLAG+21, DRGSTOCK~, DRGSTOCK+7 , DRGSTOCK+19, DRGSTOCK+21, DRGSTOCK+22, GETUDRG~, GETUDRG+3, GETUDRG+4, GETUDRG+7, GETPDRG~, PSJRFND~
DI	DWODEV+1~, DWODEV+9~
DIC	PADEV+1~, PADEV+9!, GETFILD+3, GETFILD+5!, PADESYS+1~, PADESYS+14!, GETDEV+3, GETDEV+4!, DWODEV+1~, DWODEV+9~ , DWODEV+10*
DIC("P"	DWODEV+10*
DIC(0	GETFILD+3, GETDEV+3, DWODEV+10*
DIE	PADEV+1~, PADEV+7, PADEV+9!, PADESYS+1~, PADESYS+6, PADESYS+11~, PADESYS+12, PADESYS+14!, DWODEV+1~, DWODEV+9~ , DWODEV+15
DIR	GETFILD+2~, GETDEV+2~, ASKDONE+1~, PSJOE+3~
DIR("?"	PSJOE+16, PSJOE+17
DIR("A"	PADESYS+13, ASKDONE+4, ASKDONE+5, PSJOE+15
DIR("B"	PSJOE+11, PSJOE+12, PSJOE+13*
DIR(0	PADESYS+13, ASKDONE+3, PSJOE+14*
DIV	WARDSCR2+1~, WARDSCR2+4, WARDSCR2+5, WARDSCR2+6, ROUND+2~, ROUND+3, ROUND+4*, ROUND+5
DL	DWODEV+1~, DWODEV+9~
DLAYGO	GETFILD+4*, PADESYS+1~
DO	DWODEV+9~
DP	DWODEV+1~, DWODEV+9~
DR	PADEV+1~, PADEV+7, GETFILD+2~, GETFILD+3, GETFILD+4, PADESYS+1~, PADESYS+6, PADESYS+11~, PADESYS+12, DWODEV+1~ , DWODEV+9~, DWODEV+15
DRG	GETCABCT~, GETCABCT+3, GETCABCT+4, GETCABCT+5
DRGDA	GETCABCT+1~, GETCABCT+5*, GETCABCT+7, GETCABCT+11
DRGIEN	DRGSTOCK~, DRGSTOCK+8, DRGSTOCK+27, DRGQTY~, DRGQTY+16, DRGQTY+17
DTOUT	ENCAB+2, PADEV+6!, PADEV+8, ENSYS+2, PADESYS+3, PADESYS+9, PADESYS+10!, PADESYS+14!
DUOUT	ENCAB+2, PADEV+6!, PADEV+8, ENSYS+2, PADESYS+3, PADESYS+9, PADESYS+10!, PADESYS+14!
DWOIEN	DWODEV+1~, DWODEV+7, DWODEV+8, DWODEV+12, DWODEV+13, DWODEV+15
DWOTIM	DWOIN~, DWOIN+2, DWOIN+3, DWOIN+4, DWOIN+6
DWOVAL	DWOIN+1~, DWOIN+6*, DWOIN+7
ERR	GETFILD+2~, GETDEV+2~
FDA	GETFILD+8~, GETDEV+6~
FDA(	GETFILD+8, GETFILD+9, GETDEV+6, GETDEV+7
GOTONE	CGCHK+1~, CGCHK+2, CGCHK+3, CGCHK+5, CGCHK+6, CGCHK2+1~, CGCHK2+5, CGCHK2+6, CGCHK2+8, CGCHK2+9 , WGCHK+1~, WGCHK+2, WGCHK+3, WGCHK+5, WGCHK+6, WGCHK2+1~, WGCHK2+5, WGCHK2+6, WGCHK2+8, WGCHK2+9
INACT	PSJRFND+10~*, PSJRFND+11
LAYGO	GETFILD+1!, GETFILD+3*, GETFILD+4
LOCIEN	DRGQTY~, DRGQTY+17, CABLOC~, CABLOC+7, CABLOC+10, CABLOC+12, CABLOC+14, CABLOC+15
LOCTYP	DRGQTY~, DRGQTY+12
MULT	DWOIN+1~, DWOIN+5*, DWOIN+6
NUM	DWOIN+1~, DWOIN+2*, DWOIN+3, ROUND~, ROUND+1, ROUND+3
ON	DRGFLAG~, DRGFLAG+2
PAD	GETFILD+2~, GETDEV+2~
PADAR	PADEV+1~, PADESYS+1~
PARTIAL	CABLOC+2~, CABLOC+15, CABLOC+16, CABLOC+17, CABLOC+18, CABLOC+19
PS5345	DRGSTOCK~, DRGSTOCK+25
PSDDIEN	DRGFLAG+10~, DRGFLAG+19~, DRGSTOCK+20~, PSJRFND+9*, PSJRFND+10, PSJRFND+12
PSDRFND	DRGSTOCK+4~, DRGSTOCK+18*
PSDRGTOT	DRGFLAG+1~, DRGSTOCK+4~, DRGSTOCK+5, DRGSTOCK+31, DRGSTOCK+32
PSDRUG	DRGFLAG+1~, DRGFLAG+11, DRGFLAG+12, DRGFLAG+13, DRGFLAG+20, DRGFLAG+21, DRGSTOCK+4~, DRGSTOCK+21, DRGSTOCK+22, DRGSTOCK+25* , DRGSTOCK+27, DRGSTOCK+29, DRGSTOCK+31, GETUDRG~, GETUDRG+2!, GETUDRG+6, GETPDRG~, GETPDRG+2!, GETPDRG+6*, GETPDRG+9 , PSJRFND~
PSDRUG(	GETUDRG+5, GETPDRG+5, PSJRFND+9
PSGORD	DRGFLAG~, DRGFLAG+2~, DRGFLAG+4, DRGFLAG+8, DRGFLAG+9, DRGFLAG+11, DRGFLAG+12, DRGFLAG+13, DRGFLAG+16, DRGFLAG+17 , DRGFLAG+18, DRGFLAG+19, DRGFLAG+20, DRGFLAG+21, DRGSTOCK~, DRGSTOCK+8, DRGSTOCK+9*, DRGSTOCK+18, DRGSTOCK+19, DRGSTOCK+21 , DRGSTOCK+22, GETUDRG~, GETUDRG+3, GETUDRG+4, GETUDRG+7, GETPDRG~, GETPDRG+3, GETPDRG+4, GETPDRG+7, GETPDRG+10 , PSJRFND~
PSJASKDN	PADESYS+1~, PADESYS+8, ASKDONE+6*, ASKDONE+7
PSJCAB	DRGQTY+9~, DRGQTY+16*, DRGQTY+17, CABLOC~, CABLOC+4, CABLOC+5, CABLOC+7, CABLOC+10, CABLOC+12, CABLOC+19
PSJDEV	DRGQTY+9~
PSJDFLOC	DRGFLAG~, DRGSTOCK~, DRGSTOCK+10, DRGSTOCK+12*, DRGSTOCK+13, DRGSTOCK+14
PSJDIV	GETFILD+1~, GETDEV+1~, CLCHK+1~, CLCHK+3, CLCHK2+1~, CLCHK2+3, CLCHK2+4, CLCHK2+6, CGCHK+1~, CGCHK+5 , CGCHK2+1~, CGCHK2+3, CGCHK2+4, CGCHK2+8, WGCHK+1~, WGCHK+5, WGCHK2+1~, WGCHK2+3, WGCHK2+4, WGCHK2+8
PSJDRGCT	DRGFLAG+1~, DRGSTOCK+4~, DRGQTY+9~, DRGQTY+10, DRGQTY+14, DRGQTY+17, DRGQTY+18
PSJDSTK	DRGFLAG+1~, DRGSTOCK+4~, DRGSTOCK+5*
PSJLOC	DRGFLAG+1~, DRGFLAG+11, DRGFLAG+12, DRGFLAG+13, DRGFLAG+20, DRGFLAG+21, DRGSTOCK+4~, DRGSTOCK+8, DRGSTOCK+14, DRGSTOCK+21 , DRGSTOCK+22, DRGSTOCK+31, GETUDRG~, GETUDRG+2!, GETUDRG+7, GETUDRG+8, GETPDRG~, GETPDRG+2!, GETPDRG+7, GETPDRG+8* , PSJRFND~, PSJRFND+4, PSJRFND+5, PSJRFND+12
PSJLOCTP	DRGFLAG+1~, DRGFLAG+11, DRGFLAG+12, DRGFLAG+13, DRGFLAG+20, DRGFLAG+21, DRGSTOCK+4~, DRGSTOCK+13, DRGSTOCK+21, DRGSTOCK+22 , DRGSTOCK+31, GETUDRG~, GETUDRG+2!, GETUDRG+7, GETUDRG+8, GETPDRG~, GETPDRG+2!, GETPDRG+7, GETPDRG+8*, PSJRFND~ , PSJRFND+4, PSJRFND+5, PSJRFND+12
PSJMSG	PSJOE+2~, PSJOE+10
PSJMSG(0	PSJOE+6*
PSJMSG(1	PSJOE+7*
PSJMSG(2	PSJOE+8*
PSJMSG(3	PSJOE+9*
PSJNEWOE	DRGFLAG~, DRGFLAG+2
PSJNOTPD	DRGFLAG+1~, DRGSTOCK+4~, PSJRFND+8, PSJRFND+9, PSJRFND+13, PSJRFND+14
PSJOI	GETPDRG+10~*
PSJPADQ	ENCAB+1~, ENCAB+2, PADEV+4, PADEV+6, ENSYS+1~, ENSYS+2, PADESYS+4, PADESYS+8, PADESYS+9, PADESYS+10 , PADESYS+14!, GETDEV+9
PSJPDCHK	PSJRFND+2~, PSJRFND+4, PSJRFND+5*, PSJRFND+6
PSJPDEV	PADEV+1~, PADEV+8~*, PADESYS+1~
PSJPNAM	GETFILD+2~, GETDEV+2~
PSJPRNT	DRGFLAG+17~*, DRGFLAG+18
PSJPSNM	PADESYS+1~, PADESYS+7*, PADESYS+8
PSJPSYS	PADEV+1~, PADEV+2, PADEV+3, GETFILD~, GETFILD+7, GETFILD+8, PADESYS+1~, PADESYS+5, PADESYS+7, PADESYS+9 , GETDEV~, GETDEV+5, GETDEV+6, ASKDONE+2, DWODEV+1~, DWODEV+5*, DWODEV+7, DWODEV+10, DWODEV+11, DWODEV+15 , DRGFLAG+1~, DRGSTOCK+4~, DRGQTY+9~, PSJOE+12
PSJRFND	DRGFLAG+1~, DRGFLAG+6, DRGFLAG+8, DRGFLAG+9, DRGFLAG+13, DRGFLAG+16, DRGFLAG+18, DRGFLAG+21, DRGFLAG+23, PSJRFND+8* , PSJRFND+12, PSJRFND+13, PSJRFND+14, PSJRFND+15
PSJSNAM	ASKDONE+1~, ASKDONE+2*, ASKDONE+3, ASKDONE+4
PSJSUBFI	DRGQTY+9~, DRGQTY+12*, DRGQTY+14, DRGQTY+17, CABLOC~, CABLOC+7, CABLOC+10, CABLOC+12
>> PSJSYSP	DRGSTOCK+25, PSJRFND+10
PSPARIEN	PSJOE+2~, PSJOE+4*, PSJOE+5
PSYSTAT	PSJOE+3~, PSJOE+19*, PSJOE+20, PSJOE+22
QZ	CLCHK~, CLCHK+2, CLCHK+3, CLCHK2~, CLCHK2+5, CLCHK2+6, CGCHK~, CGCHK+3, CGCHK+4, CGCHK2~ , CGCHK2+6, CGCHK2+7, WGCHK~, WGCHK+3, WGCHK+4, WGCHK2~, WGCHK2+6, WGCHK2+7
RANGE	GETFILD+2~, GETDEV+2~
REM	ROUND+2~, ROUND+3*, ROUND+4
RESULT	GETFILD+2~, GETDEV+2~
SYSDA	GETCABCT+1~, GETCABCT+3*, GETCABCT+4, GETCABCT+5, GETCABCT+7, GETCABCT+11
TMP	DRGSTOCK+25~*
TMPDRG	GETUDRG+2~, GETUDRG+4, GETUDRG+5, GETUDRG+6, GETPDRG+2~, GETPDRG+4, GETPDRG+5, GETPDRG+6
TMPLOC	GETUDRG+2~, GETUDRG+7, GETPDRG+2~, GETPDRG+7
TOT	GETFILD+2~, GETDEV+2~
U	WARDSCR+3, WARDSCR2+6, CLCHK+2, CLCHK+3, CLCHK2+5, CLCHK2+6, CGCHK+5, CGCHK2+8, WGCHK+5, WGCHK2+8
UNIT	DWOIN+1~, DWOIN+3*, DWOIN+5
VAHOW	GETUDRG+8~
VAIN	DRGSTOCK+11~, GETUDRG+8~, GETPDRG+8~
VAIN(4	DRGSTOCK+11, DRGSTOCK+12, GETUDRG+8, GETPDRG+8
VAINDT	GETUDRG+8~
VAROOT	GETUDRG+8~
WD	WGCHK+1~, WGCHK+3, WGCHK+4, WGCHK2+1~, WGCHK2+6, WGCHK2+7
WDIEN	WGCHK+1~, WGCHK+4, WGCHK+5, WGCHK2+1~, WGCHK2+7, WGCHK2+8
X	PADEV+1~, PADESYS+1~, PADESYS+11~, WARDSCR+1~, WARDSCR+2, WARDSCR2+1~, ASKDONE+1~, DWODEV+1~, DWODEV+9~, DWODEV+11* , DRGFLAG+1~, DRGSTOCK+4~, PSJOE+2~, PSJOE+3~
Y	PADEV+1~, GETFILD+5, GETFILD+6, PADESYS+1~, PADESYS+2*, PADESYS+4, PADESYS+5, PADESYS+11~, GETDEV+4, WARDSCR~ , WARDSCR+2, WARDSCR2~, WARDSCR2+2, ASKDONE+1~, ASKDONE+6, DWODEV+1~, DWODEV+9~, DWODEV+12, DRGFLAG+1~, DRGSTOCK+4~ , PSJOE+2~, PSJOE+3~, PSJOE+19

Customize PDF page

Package: Inpatient Medications

Routine: PSJPADSI

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: