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 |  Local Variables  | All
Print Page as PDF
Routine: PSJPADSI

Package: Inpatient Medications

Routine: PSJPADSI


Information

PSJPADSI ;BIR/JCH PADE INBOUND SYSTEM SET UP ;8/25/15

Source Information

Source file <PSJPADSI.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

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

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

External References

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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
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 |  Local Variables  | All