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

Package: Inpatient Medications

Routine: PSJPADPT


Information

PSJPADPT ;BIR/JCH - PADE Activity Utility ;09/22/11 5:00pm

Source Information

Source file <PSJPADPT.m>

Entry Points

Name Comments DBIA/ICR reference
PADECK ;
PADEND
ACTIVITY(DFN,PSJTSCR) ; Get PADE activity for patient DFN, display to screen length PSJTSCR
PGHEAD ; Print Page Header
COHEAD ; Print Column Header
CONTINUE(PSJPAGE)
PSEXDT(DT) ; Format Date for display
ASKRESET(PADE)
SURES()
CONTRES(PADE) ; Finish device reset
RESPADE(PADE) ; Reset balances in PADE cabinet to zero
EMPTY(PADE)
RESHLP
PARTIAL(PSJY,INARRAY,OUTARRAY,DISPDATA,MSG,ARRAYX,FOUND,NOXREF,PSALLPC) ; Lookup PSJY in INARRAY
; INPUT - PSJY=Lookup text
; - INARRAY(text)=number - Array of selectable data
; OUTPUT - OUTARRAY(text)=number - Entry selected from INARRAY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PADECK+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACTIVITY+2
Function Call: WRITE
  • Prompt: !," Comment: ",$E(ND2,1,66)
  • Line Location: ACTIVITY+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACTIVITY+31
Function Call: WRITE
  • Prompt: !,"Pharmacy Automated Dispensing Equipment (PADE) Activity Log"
  • Line Location: PGHEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: COHEAD+1
Function Call: WRITE
  • Prompt: !!,"Date/Time",?14,"O-R",?18,"Item",?55,"Status",?63,"Qty",?69,"PADE ID"
  • Line Location: COHEAD+2
Function Call: WRITE
  • Prompt: !,"================================================================================"
  • Line Location: COHEAD+3
Function Call: WRITE
  • Prompt: " ...Unable to reset "_$G(PADE)
  • Line Location: CONTRES+2
Function Call: WRITE
  • Prompt: " ...PADE initialization complete."
  • Line Location: CONTRES+5
Function Call: WRITE
  • Prompt: !,MSG,!
  • Line Location: PARTIAL+41
Function Call: WRITE
  • Prompt: " ",$P(ID2,"^")
  • Line Location: PARTIAL+51

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
58.6011 FIND1^DIC
^PS(58.63 - [#58.63] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call