Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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)

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call