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

Package: Inpatient Medications

Routine: PSJPADPT


Information

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

Source Information

Source file <PSJPADPT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 EN^DDIOL  $$FIND1^DIC  UPDATE^DIE  ^DIK  GETS^DIQ  ^DIR  
Inpatient Medications 2 MANUN^PSJPAD70  $$TSIGN^PSJPADIT  
Health Level Seven 1 $$UPPER^HLFNC  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
List Manager 1 FULL^VALM1  

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 5 PSJ LM PADE ACTIVITY  PSJ PADE DISPENSING DEVICE  PSJPAD70  PSJPDRTR  PSJPDRUT  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
EN^DDIOL RESHLP+9
$$FIND1^DIC RESPADE+6
UPDATE^DIE CONTRES+4
^DIK RESPADE+11, RESPADE+15
GETS^DIQ RESPADE+2
^DIR PADECK+7, CONTINUE+3, ASKRESET+4, SURES+9, PARTIAL+47
$$UPPER^HLFNC PARTIAL+26, PARTIAL+31
MANUN^PSJPAD70 ASKRESET+5
$$TSIGN^PSJPADIT ACTIVITY+21
FULL^VALM1 PADECK+4
$$FMTE^XLFDT PSEXDT+2
$$NOW^XLFDT CONTRES+3

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
Routine Call
  • DIC
  • Line Location:
    • RESPADE+6
Routine Call
  • DIE
  • Line Location:
    • CONTRES+4
Routine Call
  • DIR
  • Line Location:
    • PADECK+7
    • CONTINUE+3
    • ASKRESET+4
    • SURES+9
    • PARTIAL+47

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
58.6011 FIND1^DIC
^PS(58.63 - [#58.63] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.6 - [#58.6] ACTIVITY+4, ACTIVITY+5, ACTIVITY+6, ACTIVITY+10, ACTIVITY+27
^PS(58.601 - [#58.601] RESPADE+4, RESPADE+7, RESPADE+10, RESPADE+14, EMPTY+4
^PS(58.63 - [#58.63] RESPADE+5
^PSDRUG - [#50] ACTIVITY+12

Label References

Name Line Occurrences
$$ACTIVITY PADECK+5
$$PSEXDT ACTIVITY+11
$$RESPADE CONTRES+2
$$SURES ASKRESET+6
COHEAD PGHEAD+2, CONTINUE+5
CONTINUE ACTIVITY+28, ACTIVITY+30
CONTRES ASKRESET+7
PGHEAD ACTIVITY+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAYX PARTIAL~
ARRAYX( PARTIAL+18, PARTIAL+24, PARTIAL+29, PARTIAL+34
CNT PARTIAL+37~, PARTIAL+42*, PARTIAL+43, PARTIAL+44, PARTIAL+45
DA RESPADE+1~, RESPADE+11*, RESPADE+15*
DA(1 RESPADE+9*, RESPADE+13*
DA(2 RESPADE+9*, RESPADE+13*
DFN PADECK+5, ACTIVITY~, ACTIVITY+4, ACTIVITY+5, ACTIVITY+6
DIK RESPADE+1~, RESPADE+8*, RESPADE+12*
DIR PADECK+7!, ACTIVITY+2!, ACTIVITY+31!, CONTINUE+1~, CONTINUE+4!, ASKRESET+1~, SURES+1~, PARTIAL+37~
DIR("?" ASKRESET+3*, SURES+8*
DIR("A" PADECK+7*, CONTINUE+2*, CONTINUE+3*, ASKRESET+2*, SURES+3*, SURES+4*, SURES+5*, SURES+6*, SURES+7*, PARTIAL+45*
, PARTIAL+46*
DIR("B" ASKRESET+4*, SURES+7*
DIR(0 PADECK+7*, CONTINUE+3*, ASKRESET+2*, SURES+2*, PARTIAL+47*
DISPDATA PARTIAL~, PARTIAL+45
DRAWER RESPADE+1~, RESPADE+10*, RESPADE+11
DRUG RESPADE+1~, RESPADE+14*, RESPADE+15
DT PSEXDT~, PSEXDT+2
EMPTY EMPTY+2~, EMPTY+3*, EMPTY+4*, EMPTY+5
FDA CONTRES+1~
FDA( CONTRES+3*
FOUND PARTIAL~, PARTIAL+6!, PARTIAL+39*, PARTIAL+50*
HELPAR RESHLP+1~, RESHLP+9
HELPAR(1 RESHLP+2*
HELPAR(2 RESHLP+3*
HELPAR(3 RESHLP+4*
HELPAR(4 RESHLP+5*
HELPAR(5 RESHLP+6*
HELPAR(6 RESHLP+7*
HELPAR(7 RESHLP+8*
I PSEXDT+1~, PSEXDT+4*
ID2 PARTIAL+51~*
II PARTIAL+5~, PARTIAL+7*, PARTIAL+17, PARTIAL+18, PARTIAL+19*, PARTIAL+23, PARTIAL+24, PARTIAL+25*, PARTIAL+29, PARTIAL+30*
, PARTIAL+34, PARTIAL+35*
INARRAY PARTIAL~
INARRAY( PARTIAL+7, PARTIAL+9, PARTIAL+17, PARTIAL+29
IOF PADECK+7, PADECK+8, ACTIVITY+2, ACTIVITY+31, COHEAD+1
ITM PARTIAL+5~, PARTIAL+11, PARTIAL+12*, PARTIAL+14, PARTIAL+15, PARTIAL+17, PARTIAL+18, PARTIAL+20, PARTIAL+21, PARTIAL+23
, PARTIAL+24, PARTIAL+26, PARTIAL+27, PARTIAL+29, PARTIAL+31, PARTIAL+32, PARTIAL+34
ITM( PARTIAL+9*, PARTIAL+12, PARTIAL+15, PARTIAL+18, PARTIAL+20, PARTIAL+21, PARTIAL+23, PARTIAL+24, PARTIAL+27, PARTIAL+29
, PARTIAL+31, PARTIAL+32, PARTIAL+34
ITMID PARTIAL+7*, PARTIAL+8, PARTIAL+9, PARTIAL+43~*, PARTIAL+44, PARTIAL+45
ITMNAME PARTIAL+5~
ITMX PARTIAL+5~
ITMX( PARTIAL+9*
MSG PARTIAL~, PARTIAL+41
ND0 ACTIVITY+9~, ACTIVITY+10*, ACTIVITY+16, ACTIVITY+19, ACTIVITY+20
ND1 ACTIVITY+9~, ACTIVITY+10*, ACTIVITY+13, ACTIVITY+15
ND2 ACTIVITY+9~, ACTIVITY+27*
NOXREF PARTIAL~, PARTIAL+20, PARTIAL+31
OUTARRAY PARTIAL~
OUTARRAY( PARTIAL+39*, PARTIAL+50*, PARTIAL+51
PADE ASKRESET~, ASKRESET+5, ASKRESET+7, CONTRES~, CONTRES+2, CONTRES+3, RESPADE~, RESPADE+2, RESPADE+3, RESPADE+5
, EMPTY~, EMPTY+4
PADENAM RESPADE+1~, RESPADE+5*, RESPADE+6
PADIEN RESPADE+1~, RESPADE+6*, RESPADE+7, RESPADE+8, RESPADE+9, RESPADE+10, RESPADE+12, RESPADE+13, RESPADE+14
POCKET RESPADE+1~
PP PARTIAL+15~*, PARTIAL+21~*, PARTIAL+27~*, PARTIAL+32~*
PSALLPC PARTIAL~, PARTIAL+39, PARTIAL+50
PSEXDRG ACTIVITY+9~, ACTIVITY+12*, ACTIVITY+13*, ACTIVITY+14*, ACTIVITY+26
PSEXDRG2 ACTIVITY+9~, ACTIVITY+13*
PSEXDT ACTIVITY+9~, ACTIVITY+11*, ACTIVITY+25
PSEXTM ACTIVITY+9~
PSJCAB ACTIVITY+9~, ACTIVITY+19*, ACTIVITY+26
PSJCONT ACTIVITY+1~, ACTIVITY+7*, ACTIVITY+30, CONTINUE+7!
PSJDEC ACTIVITY+16~*, ACTIVITY+17, ACTIVITY+18
PSJDUP PARTIAL+5~, PARTIAL+13*, PARTIAL+14, PARTIAL+15*, PARTIAL+16, PARTIAL+20, PARTIAL+21*, PARTIAL+22, PARTIAL+26, PARTIAL+27*
, PARTIAL+28, PARTIAL+31, PARTIAL+32*, PARTIAL+33
PSJORD ACTIVITY+9~, ACTIVITY+15*, ACTIVITY+26
PSJOVOK ACTIVITY+9~, ACTIVITY+22*, ACTIVITY+26
PSJPADPT PADECK+3*, PADEND+1!
PSJPAGE ACTIVITY+1~, ACTIVITY+3*, ACTIVITY+28, ACTIVITY+29, ACTIVITY+30, CONTINUE~, CONTINUE+6*
PSJPART PARTIAL+5~
PSJPART( PARTIAL+15, PARTIAL+17*, PARTIAL+18*, PARTIAL+21, PARTIAL+23*, PARTIAL+24*, PARTIAL+27, PARTIAL+29*, PARTIAL+32, PARTIAL+34*
, PARTIAL+42, PARTIAL+43, PARTIAL+45, PARTIAL+49, PARTIAL+50
PSJPART(1 PARTIAL+36, PARTIAL+38, PARTIAL+39, PARTIAL+40
PSJPART(9999999 PARTIAL+46
PSJPGTMP ACTIVITY+1~, ACTIVITY+29*
PSJPOP ACTIVITY+1~, ACTIVITY+3*, ACTIVITY+4, ACTIVITY+5, ACTIVITY+6, CONTINUE+3*
PSJPSYS RESPADE+1~, RESPADE+3*, RESPADE+4, RESPADE+6, RESPADE+7, RESPADE+8, RESPADE+9, RESPADE+10, RESPADE+12, RESPADE+13
, RESPADE+14
PSJPSYS("58.63" RESPADE+3
PSJQAR ACTIVITY+9~, ACTIVITY+21
PSJQAR(5 ACTIVITY+21*
PSJQAR(6 ACTIVITY+21*
PSJQTY ACTIVITY+9~, ACTIVITY+16*, ACTIVITY+17*, ACTIVITY+18*, ACTIVITY+21*, ACTIVITY+24*, ACTIVITY+26
PSJSIGN ACTIVITY+21~*
PSJSTS ACTIVITY+9~, ACTIVITY+20*, ACTIVITY+21, ACTIVITY+22, ACTIVITY+23*, ACTIVITY+24, ACTIVITY+26
PSJTCNT PADECK+1~, ACTIVITY+3*, ACTIVITY+8, ACTIVITY+25*, ACTIVITY+27*, ACTIVITY+28, ACTIVITY+32
PSJTMP PARTIAL+5~, PARTIAL+38*, PARTIAL+39, PARTIAL+40
PSJTSCR PADECK+1~, PADECK+3*, PADECK+5, ACTIVITY~, ACTIVITY+28
PSJY RESPADE+1~, PARTIAL~, PARTIAL+14, PARTIAL+20, PARTIAL+26, PARTIAL+31, PARTIAL+52*
PSPADER CONTRES+1~, RESPADE+1~
PSPADER(1 CONTRES+5
PSPDRG ACTIVITY+1~, ACTIVITY+5*, ACTIVITY+6, ACTIVITY+12, ACTIVITY+13
PSPDT ACTIVITY+1~, ACTIVITY+4*, ACTIVITY+5, ACTIVITY+6, ACTIVITY+11
PSPTSEL PARTIAL+49~*, PARTIAL+50, PARTIAL+51
PSTRANS ACTIVITY+1~, ACTIVITY+6*, ACTIVITY+10, ACTIVITY+27
QQ PARTIAL+15~*, PARTIAL+21~*, PARTIAL+27~*, PARTIAL+32~*
STRING PARTIAL+37~, PARTIAL+44*, PARTIAL+47
SUBPCK RESPADE+1~
VALMBCK PADECK+2!, PADEND*
X CONTINUE+1~, CONTINUE+3, ASKRESET+1~, SURES+1~
XDT PSEXDT+1~, PSEXDT+2*, PSEXDT+3, PSEXDT+4*, PSEXDT+5*, PSEXDT+6
XTM PSEXDT+1~, PSEXDT+3*, PSEXDT+5
Y ASKRESET+1~, ASKRESET+5, SURES+1~, SURES+10, PARTIAL+5~, PARTIAL+48, PARTIAL+49, PARTIAL+50
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