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

Package: Inpatient Medications

Routine: PSJPDRU1


Information

PSJPDRU1 ;BIR/MV-PADE REPORT UTILITIES ;18 JUN 96 / 2:58 PM

Source Information

Source file <PSJPDRU1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 5 $$PTRNSTYP^PSJPAD7I  $$TSIGN^PSJPADIT  $$XALL^PSJPDRIP  (PARTPT,PATLIST,SELPAT)^PSJPDRU1  ($$EXTT,$$PADEUSR,$$TTEX,DISPDOTS)^PSJPDRUT  
VA FileMan 5 EN^DDIOL  $$FIND1^DIC  FILE^DIE  ^DIK  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Toolkit 1 EN^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: 6

Package Total Caller Graph
Inpatient Medications 6 PSJPADIT  PSJPADSI  PSJPDRIP  PSJPDRTP  PSJPDRTR  PSJPDRU1  

Entry Points

Name Comments DBIA/ICR reference
PATIENT(PSJINP) ; Get list of patients
PATLIST(PSJINP) ; Build list of patients that may be selected based on transaction date range and PADE Inbound System
SELPAT(PSJINP) ; Prompt for one patient (or ALL)
TMPLIST(LIST,MAX) ; Write list in LIST(ID1)=ID1
PARTPT(PSJY) ; Lookup PSJY in INARRAY
; INPUT - PSJY=Lookup text
; - INARRAY(text)=number - Array of selectable data
; OUTPUT - OUTARRAY(text)=number - Entry selected from INARRAY
PTTRFLG(PSJINP)
LIST(LIST,MSG) ; Write list in LIST(ID1)=ID1
BLDSTR(PSJINP,PSLNOD,PSJCOMM)
INSYSPAR(PSPARACT)
DEVONOFF(PSJPSYS,OFFON)
DEVSTCHK(PSJPSYS)
DELBADSY ; Check for and delete "?BAD" entries in PADE INVENTORY SYSTEM file (#58.601)
; "?BAD" entry may result when user enters "" new DISPENSING DEVICE (#58.63) file entry, and FileMan creates the "?BAD" KEY index
TSIGN(PADATA) ; Determine if the transaction amount needs to be added or subtracted, depending on the transaction type
DEVBAL(PADESYS,PADEDEV,DRUGIEN)

External References

Name Field # of Occurrence
EN^DDIOL SELPAT+4
$$FIND1^DIC INSYSPAR+4
FILE^DIE DEVONOFF+14
^DIK DELBADSY+9
^DIR SELPAT+10, SELPAT+27, TMPLIST+11, PARTPT+33, INSYSPAR+13
$$PTRNSTYP^PSJPAD7I BLDSTR+19
$$TSIGN^PSJPADIT BLDSTR+54
$$XALL^PSJPDRIP SELPAT+11
PARTPT^PSJPDRU1 SELPAT+34
PATLIST^PSJPDRU1 PATIENT+3
SELPAT^PSJPDRU1 PATIENT+8
$$EXTT^PSJPDRUT BLDSTR+17, BLDSTR+53
$$PADEUSR^PSJPDRUT BLDSTR+38
$$TTEX^PSJPDRUT BLDSTR+48
DISPDOTS^PSJPDRUT PATLIST+10, PATLIST+14
$$FMADD^XLFDT PATLIST+11
$$FMTE^XLFDT BLDSTR+12
EN^XPAR INSYSPAR+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPAT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPAT+4
Function Call: WRITE
  • Prompt: " "_$P(LISTARR(Y),"^",2)
  • Line Location: SELPAT+26
Function Call: WRITE
  • Prompt: " ?? (No match found)"
  • Line Location: SELPAT+36
Function Call: WRITE
  • Prompt: !,$E(TAB,1,10)_ID1
  • Line Location: TMPLIST+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: TMPLIST+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: TMPLIST+11
Function Call: WRITE
  • Prompt: " ",ID2
  • Line Location: PARTPT+35
Function Call: WRITE
  • Prompt: !,MSG,!
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,MSG(II)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !,$E(TAB,1,10)_ID1
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !,"ERROR - Parameter not set"
  • Line Location: INSYSPAR+17
Routine Call
  • DIC
  • Line Location:
    • INSYSPAR+4
Routine Call
  • DIE
  • Line Location:
    • DEVONOFF+14
Routine Call
  • DIR
  • Line Location:
    • SELPAT+10
    • SELPAT+27
    • TMPLIST+11
    • PARTPT+33
    • INSYSPAR+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(58.601 - [#58.601] Classic Fileman Calls
^XTV(8989.51 - [#8989.51] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PATLIST+21, BLDSTR+25, BLDSTR+30
^PS(58.6 - [#58.6] PATLIST+9, PATLIST+12, PATLIST+13, PATLIST+15, PATLIST+19, PATLIST+20, PATLIST+22, BLDSTR+29
^PS(58.601 - [#58.601] DEVONOFF+7, DEVONOFF+9, DEVONOFF+10, DEVSTCHK+6, DEVSTCHK+8, DEVSTCHK+9, DELBADSY+3, DELBADSY+4, DEVBAL+11, DEVBAL+12
, DEVBAL+15, DEVBAL+17
^PS(58.63 - [#58.63] DEVONOFF+11, DEVSTCHK+10, DEVSTCHK+11
^TMP( PTTRFLG+8, PTTRFLG+9, PTTRFLG+11
^TMP($J PATIENT+4, PATLIST+3!, PATLIST+30*, PATLIST+31*, PATLIST+32*, SELPAT+9, SELPAT+10, SELPAT+13*, SELPAT+15, SELPAT+18
, SELPAT+20, SELPAT+22, SELPAT+23, SELPAT+24, SELPAT+25, SELPAT+28*, SELPAT+29, SELPAT+30*, SELPAT+31, SELPAT+32*
, SELPAT+35, TMPLIST+4, TMPLIST+5, TMPLIST+6, TMPLIST+9, PARTPT+12!, PARTPT+13, PARTPT+15*, PARTPT+16*, PARTPT+18
, PARTPT+19, PARTPT+20, PARTPT+21, PARTPT+26*, PARTPT+34*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BADSYS DELBADSY+2~, DELBADSY+5
BADSYS( DELBADSY+4*, DELBADSY+6, DELBADSY+7
CAB PATLIST+18~, PATLIST+19*
CNT PARTPT+25~, PARTPT+28*, PARTPT+29, PARTPT+30, PARTPT+31
DA DEVONOFF+2~, DEVSTCHK+2~, DELBADSY+8~, DELBADSY+9*
DEVBAL DEVBAL+1!*, DEVBAL+18*, DEVBAL+19
DEVOUT DEVBAL+3~
DIE DEVONOFF+2~, DEVSTCHK+2~
DIK DELBADSY+8~, DELBADSY+9*
DIR SELPAT+1~, SELPAT+19~, TMPLIST+1~, PARTPT+25~, INSYSPAR+3~
DIR("?" SELPAT+7*, INSYSPAR+9*, INSYSPAR+10*, INSYSPAR+11*, INSYSPAR+12*
DIR("A" SELPAT+9*, SELPAT+23*, SELPAT+25*, SELPAT+26, SELPAT+27*, PARTPT+31*, PARTPT+32*, INSYSPAR+8*
DIR("B" INSYSPAR+7*
DIR(0 SELPAT+7*, SELPAT+27*, TMPLIST+11*, PARTPT+33*, INSYSPAR+7*
DR DEVONOFF+2~, DEVSTCHK+2~
DRAWER DEVBAL+2~, DEVBAL+11*, DEVBAL+12, DEVBAL+15, DEVBAL+17
DRGNAME TMPLIST+1~, LIST+1~
DRUGIEN DEVBAL~, DEVBAL+10, DEVBAL+13
DRWDRG DEVBAL+4~, DEVBAL+12*, DEVBAL+13, DEVBAL+15
DRWDRIEN DEVBAL+14~, DEVBAL+15*, DEVBAL+16, DEVBAL+17
DRWOUT DEVBAL+3~
DRWTOT DEVBAL+6~, DEVBAL+17*, DEVBAL+18
DTOUT SELPAT+1~, SELPAT+12, TMPLIST+1~, TMPLIST+5
DUOUT SELPAT+1~, SELPAT+12, TMPLIST+1~, TMPLIST+5
FDA DEVONOFF+3~
FDA( DEVONOFF+13*
I SELPAT+19~, SELPAT+20*, SELPAT+21, SELPAT+24, SELPAT+25
ID SELPAT+19~, SELPAT+20*, SELPAT+22, SELPAT+23, SELPAT+24, SELPAT+25, SELPAT+28*, BLDSTR+73~, BLDSTR+74*, BLDSTR+75
ID1 TMPLIST+1~, TMPLIST+5*, TMPLIST+6, TMPLIST+8, TMPLIST+9, LIST+1~, LIST+7*, LIST+8, LIST+9
ID2 TMPLIST+1~, PARTPT+35~*, LIST+1~
II SELPAT+2~, TMPLIST+1~, PARTPT+5~, PARTPT+13*, PARTPT+20*, PARTPT+21, PARTPT+22*, LIST+1~, LIST+6*, BLDSTR+4~
, BLDSTR+42*, BLDSTR+65*, TSIGN+1~, TSIGN+2*
ITM PARTPT+5~, PARTPT+19*, PARTPT+20, PARTPT+21, PARTPT+22
ITMID PARTPT+13*, PARTPT+14, PARTPT+15, PARTPT+16, PARTPT+29~*, PARTPT+30, PARTPT+31
ITMNAME PARTPT+5~
ITMX PARTPT+5~
LIST TMPLIST~, TMPLIST+4, TMPLIST+5, TMPLIST+6, TMPLIST+9, LIST~, LIST+3
LIST( LIST+7, LIST+8, LIST+9
LISTARR SELPAT+19~
LISTARR( SELPAT+24*, SELPAT+26, SELPAT+28
LISTARR(1 SELPAT+22*
LISTDIR SELPAT+19~, SELPAT+22*, SELPAT+24*, SELPAT+27
MAX TMPLIST~, TMPLIST+11
MSG LIST~, LIST+4, LIST+5
MSG( LIST+6
NAM BLDSTR+73~, BLDSTR+74*, BLDSTR+75
NAME SELPAT+19~, SELPAT+28*, TMPLIST+1~, LIST+1~
NAMID BLDSTR+73~*, BLDSTR+74
NUMBER TMPLIST+1~, LIST+1~
OFFON DEVONOFF~, DEVONOFF+8, DEVONOFF+12
PADATA TSIGN~
PADATA(5 TSIGN+2, TSIGN+3
PADATA(6 TSIGN+3
PADEDEV DEVBAL~, DEVBAL+8, DEVBAL+11, DEVBAL+12, DEVBAL+15, DEVBAL+17
PADESYS DEVBAL~, DEVBAL+8, DEVBAL+11, DEVBAL+12, DEVBAL+15, DEVBAL+17
PADEV PATLIST+1~
PAT PATIENT+1~, PATLIST+4!, PATLIST+9*, PATLIST+12, PATLIST+13, PATLIST+15, PATLIST+21, PATLIST+23, PATLIST+33
PATFLG PTTRFLG+5!, PTTRFLG+6*, PTTRFLG+8*, PTTRFLG+9*, PTTRFLG+10*, PTTRFLG+11*, PTTRFLG+12
PATNAME SELPAT+1~, BLDSTR+24~, BLDSTR+25*, BLDSTR+26, BLDSTR+31
PATND0 PATLIST+18~, PATLIST+21*
PATRAWID PATLIST+1~, PATLIST+22*, PATLIST+23
PATSSN PATIENT+1~, PATLIST+18~, PATLIST+21*, PATLIST+24*, PATLIST+27*, PATLIST+31, PATLIST+32, BLDSTR+24~, BLDSTR+29*, BLDSTR+30*
, BLDSTR+31
PATX PATIENT+1~
PATXX PATIENT+1~
PIECE BLDSTR+72~*, BLDSTR+73, BLDSTR+75
PLSTMSG SELPAT+2~
PLSTMSG(1 SELPAT+5*
PLSTMSG(2 SELPAT+6*
PSAB BLDSTR+4~
PSABC BLDSTR+44~*, BLDSTR+45
PSALLOFF INSYSPAR+3~, INSYSPAR+5*, INSYSPAR+6, INSYSPAR+14*
PSBEGBAL BLDSTR+62~, BLDSTR+63*
PSCNT TMPLIST+1~, TMPLIST+3*, TMPLIST+10*, TMPLIST+11*
PSDCAB DEVONOFF+5~, DEVONOFF+10*, DEVONOFF+11, DEVONOFF+13, DEVSTCHK+4~, DEVSTCHK+9*, DEVSTCHK+10, DEVSTCHK+11
PSDRG PATLIST+1~, PATLIST+6*, PATLIST+13~*, PATLIST+15, PATLIST+16, PATLIST+17
PSEBC BLDSTR+44~*, BLDSTR+45
PSELMSG SELPAT+2~, SELPAT+33*
PSENDBAL BLDSTR+62~*
PSERR DEVONOFF+3~, DEVBAL+5~
PSICAB DEVONOFF+4~, DEVONOFF+9*, DEVONOFF+10, DEVSTCHK+3~, DEVSTCHK+8*, DEVSTCHK+9
PSJBDT PATLIST+1~, PATLIST+7*, PATLIST+11
PSJCAB BLDSTR+4~, BLDSTR+7*
PSJCOL BLDSTR+4~
PSJCOMM BLDSTR~, BLDSTR+34*, BLDSTR+70
PSJDEV PATLIST+1~, PATLIST+5*
PSJDONE PATIENT+1~, PATIENT+7, PATLIST+1~, PATLIST+11*, PATLIST+12, PATLIST+33*, SELPAT+13*, SELPAT+15*
PSJDOTS PATLIST+1~, PATLIST+2*, PATLIST+10, PATLIST+14
PSJDRG BLDSTR+4~, BLDSTR+8*
PSJEDT PATLIST+1~, PATLIST+8*, PATLIST+12
PSJHTM PATLIST+1~, PATLIST+2*, PATLIST+10, PATLIST+14
PSJII PATLIST+1~, PATLIST+4*, PATLIST+34*
PSJINP PATIENT~, PATIENT+3, PATIENT+8, PATLIST~, SELPAT~, PTTRFLG~, BLDSTR~
PSJINP("PADEV" PATLIST+5, PATLIST+19, BLDSTR+7
PSJINP("PSDRG" PATLIST+6, PATLIST+16, PATLIST+17, BLDSTR+8
PSJINP("PSJBDT" PATLIST+7
PSJINP("PSJDELM" BLDSTR+21, BLDSTR+65, BLDSTR+68
PSJINP("PSJEDT" PATLIST+8
PSJINP("PSJPSYS" BLDSTR+6
PSJINP("PSJPSYSE" PATLIST+20
PSJINP("PSJTSK" PTTRFLG+7
PSJMARG TMPLIST+7~, TMPLIST+8*, TMPLIST+9
PSJOB PTTRFLG+5!, PTTRFLG+7*, PTTRFLG+8, PTTRFLG+9, PTTRFLG+11
PSJOVR BLDSTR+4~, BLDSTR+19*, BLDSTR+20*, BLDSTR+21
PSJPART SELPAT+2~, PARTPT+5~
PSJPART( PARTPT+20*, PARTPT+21*, PARTPT+22*, PARTPT+28, PARTPT+29, PARTPT+31, PARTPT+34, PARTPT+35
PSJPART(1 PARTPT+24, PARTPT+26, PARTPT+27
PSJPART(9999999 PARTPT+32
PSJPAT PATIENT+1!, BLDSTR+4~, BLDSTR+23*, BLDSTR+25, BLDSTR+28*, BLDSTR+29*, BLDSTR+30, BLDSTR+31*, BLDSTR+32
PSJPSYS BLDSTR+4~, BLDSTR+6*, BLDSTR+38, DEVONOFF~, DEVONOFF+6, DEVONOFF+7, DEVONOFF+9, DEVONOFF+10, DEVSTCHK~, DEVSTCHK+5
, DEVSTCHK+6, DEVSTCHK+8, DEVSTCHK+9
PSJPUSR BLDSTR+4~, BLDSTR+36*, BLDSTR+38*, BLDSTR+39*, BLDSTR+46
PSJQTY BLDSTR+4~, BLDSTR+51*, BLDSTR+52, BLDSTR+55, BLDSTR+56*, BLDSTR+58*, BLDSTR+59, BLDSTR+62, BLDSTR+63
PSJSTOP PATIENT+1!, PATIENT+2*, PATIENT+7, SELPAT+3!*, SELPAT+12*
PSJTMP PARTPT+5~, PARTPT+26*, PARTPT+27
PSJTRDMO BLDSTR+4~
PSJTRDT PATLIST+1~, PATLIST+11*, PATLIST+12*, PATLIST+13, PATLIST+15, BLDSTR+4~, BLDSTR+12*, BLDSTR+13*, BLDSTR+14
PSJTTYP BLDSTR+4~, BLDSTR+48*, BLDSTR+53, BLDSTR+61, BLDSTR+66
PSJTYABB BLDSTR+4~
PSJTYPCD BLDSTR+4~, BLDSTR+17*, BLDSTR+19, BLDSTR+48
PSJTYPNM BLDSTR+4~, BLDSTR+16*, BLDSTR+17
PSJUID BLDSTR+4~
PSJUSRID BLDSTR+5~, BLDSTR+37*, BLDSTR+38, BLDSTR+40*, BLDSTR+46
PSJWITID BLDSTR+5~, BLDSTR+41*, BLDSTR+46
PSJY SELPAT+17*, SELPAT+18, SELPAT+20, SELPAT+29, SELPAT+30, SELPAT+31, SELPAT+32, SELPAT+34, PARTPT~, PARTPT+20
, PARTPT+21, PARTPT+36*
PSLNDSTR BLDSTR+10!, BLDSTR+11*, BLDSTR+12, BLDSTR+14*, BLDSTR+16, BLDSTR+20, BLDSTR+21*, BLDSTR+23, BLDSTR+28, BLDSTR+32*
, BLDSTR+34, BLDSTR+37, BLDSTR+41, BLDSTR+42*, BLDSTR+44, BLDSTR+45*, BLDSTR+46*, BLDSTR+51, BLDSTR+59*, BLDSTR+62*
, BLDSTR+63*, BLDSTR+65*, BLDSTR+66*, BLDSTR+70*, BLDSTR+73, BLDSTR+75*, BLDSTR+76
PSLNOD BLDSTR~, BLDSTR+11, BLDSTR+27, BLDSTR+44
PSPARACT INSYSPAR~, INSYSPAR+6, INSYSPAR+15
PSPARER INSYSPAR+3~, INSYSPAR+17
PSPARIEN INSYSPAR+3~, INSYSPAR+4*, INSYSPAR+16
PSPARVAL INSYSPAR+3~, INSYSPAR+15*, INSYSPAR+16
PSPTFN PATLIST+1~, PATLIST+22*, PATLIST+25
PSPTID PATLIST+1~, PATLIST+18~, PATLIST+23*, PATLIST+24, PATLIST+27*, PATLIST+30, PATLIST+31
PSPTLN PATLIST+1~, PATLIST+22*, PATLIST+25
PSPTNAME PATLIST+1~, PATLIST+21*, PATLIST+25*, PATLIST+26*, PATLIST+27*, PATLIST+28*, PATLIST+30, PATLIST+31, PATLIST+32
PSPTND3 PATLIST+1~, PATLIST+22*, PATLIST+26
PSPTSEL PARTPT+34~*, PARTPT+35
PSTATUS DEVSTCHK+2~, DEVSTCHK+7*, DEVSTCHK+8, DEVSTCHK+11*, DEVSTCHK+12*, DEVSTCHK+13
PSTMP BLDSTR+4~, BLDSTR+42*
PSUNAME PATLIST+1~
PSVAL DEVONOFF+2~, DEVONOFF+12*, DEVONOFF+13
SSN SELPAT+19~, SELPAT+20*, SELPAT+22, SELPAT+23, SELPAT+24, SELPAT+25
STRING PARTPT+25~, PARTPT+30*, PARTPT+33
SYS PATLIST+18~, PATLIST+20*, DELBADSY+2~, DELBADSY+3*, DELBADSY+4, DELBADSY+6*, DELBADSY+7, DELBADSY+9
SYSNAM DELBADSY+2~
TAB TMPLIST+1~, TMPLIST+2*, TMPLIST+6, TMPLIST+8, LIST+1~, LIST+2*, LIST+8, LIST+9
TMPARRAY BLDSTR+52~, BLDSTR+54
TMPARRAY(5 BLDSTR+53*, BLDSTR+56
TMPARRAY(6 BLDSTR+52*, BLDSTR+55*, BLDSTR+56
TRANS PATLIST+1~, PATLIST+15*, PATLIST+19, PATLIST+20, PATLIST+22, BLDSTR+27~*, BLDSTR+29
TRNSIGN TSIGN+1~, TSIGN+2*, TSIGN+3*, TSIGN+4
TSIGN BLDSTR+52~, BLDSTR+54*, BLDSTR+56
X SELPAT+1~, SELPAT+10, SELPAT+11, TMPLIST+1~, INSYSPAR+3~, DEVONOFF+2~, DEVSTCHK+2~
Y SELPAT+1~, SELPAT+10*, SELPAT+11*, SELPAT+13, SELPAT+14, SELPAT+17, SELPAT+26*, SELPAT+28, TMPLIST+1~, PARTPT+5~
, PARTPT+34, PARTPT+35, INSYSPAR+3~, INSYSPAR+14, DEVONOFF+2~, DEVSTCHK+2~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All