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

Package: Inpatient Medications

Routine: PSJPADE


Information

PSJPADE ;BIR/MHA PADE SYSTEM SET UP ;6/10/15

Source Information

Source file <PSJPADE.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 6 NOW^%DTC  (,$$FIND1)^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Inpatient Medications 5 ENCV^PSGSETU  OCL1^PSJORRE  ENDPT^PSJP  $$PDACT^PSJPDCLA  (DISP,PDORD)^PSJPDCLU  
National Drug File 1 $$DFSU^PSNAPIS  
Registration 1 (RIN,WIN)^DGPMDDCF  

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

Package Total Caller Graph
Inpatient Medications 9 PSJ PADE DIVISION SETUP  PSJ PADE SEND AREA SETUP  PSJ PADE SEND ORDERS  PSJ PADE SETUP  PSJPDAPP  PSJPDCL  PSJPDCLA  PSJPDCLU  
PSJPDCLV  
Auto Replenishment Ward Stock 1 PADE BEDS  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
PADE ;enter/edit PADE system setup
PDX
PDSAR ;enter/edit SEND AREA
PDARX
PDUSR ;PADE division setup
BDCHK(QZ) ;CHECK IF BED IS OUT-OF-SERVICE
CLCHK(QZ) ;CHECK IF CLINIC IS DEFINED IN ANOTHER GROUP
WGSEL(Q) ;CHECK IF ATLEAST ONE WARD IN THIS GROUP BELONGS TO THE SAME DIVISION
ORSEL() ;CHECK IF OR BELONGS TO THE SAME DIVISION
PDORD ;
SEL ;
DIV ;
WD ;
SWD ;
PDH ;
SELPD ;
PT ;
GETPTO(RESNDDFN,RESNDCLN) ;
; RESNDDFN=Specific Patient to be sent/re-sent (optional)
; RESNDCLN=Specific Clinic to be sent/re-sent (optional)
CL ;
SCL ;
SDCL ;
SDCIV ;
SDO ;
CLARR ;
WDARR ;
SDWD ;
LOG ;
RXC ;

External References

Name Field # of Occurrence
NOW^%DTC LOG+10
RIN^DGPMDDCF BDCHK+1
WIN^DGPMDDCF WGSEL+5
^DIC PADE+3, PDSAR+1, PDUSR+8, DIV+1, SWD+3, SELPD+5, SCL+3
$$FIND1^DIC LOG+4
FILE^DICN LOG+11
^DIE PADE+3, PDSAR+1, PDUSR+13
$$GET1^DIQ LOG+5
^DIR SEL+7
ENCV^PSGSETU SEL+1
OCL1^PSJORRE GETPTO+5
ENDPT^PSJP PT+2
$$PDACT^PSJPDCLA PDUSR+2, PDORD+2
DISP^PSJPDCLU RXC+20
PDORD^PSJPDCLU GETPTO+20, SDO+2
$$DFSU^PSNAPIS RXC+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PADE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PADE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PDSAR+1
Function Call: WRITE
  • Prompt: !!,"PADE not setup - Quitting..."
  • Line Location: PDUSR+3
Function Call: WRITE
  • Prompt: !!,"You are logged under PADE: "_$P($G(^PS(58.7,Y,0)),"^"),!
  • Line Location: PDUSR+11
Function Call: WRITE
  • Prompt: !,"BED is marked as OUT-OF-SERVICE",!
  • Line Location: BDCHK+2
Function Call: WRITE
  • Prompt: !,"Bed is already assigned to group "_J,!
  • Line Location: BDCHK+8
Function Call: WRITE
  • Prompt: !,$P(^SC(QZ,0),U)_" Clinic is already assigned to group "_J,!!
  • Line Location: CLCHK+7
Function Call: WRITE
  • Prompt: !!,"PADE not setup - Quitting..."
  • Line Location: PDORD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"You are logged under PADE: "_PSJPDNM,!
  • Line Location: SEL+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DIV+1
Function Call: WRITE
  • Prompt: !,"This division is not setup for this PADE.",!
  • Line Location: DIV+5
Function Call: WRITE
  • Prompt: !,"This division is not setup to send order messages.",!
  • Line Location: DIV+6
Function Call: WRITE
  • Prompt: !!,"You are logged under Division: "_$P(Y,"^",2),!!
  • Line Location: DIV+7
Function Call: WRITE
  • Prompt: !!,"You must have the PSJ PADE MGR key to send all orders",!
  • Line Location: WD+5
Function Call: WRITE
  • Prompt: !,"No patient in WARD "_WDN
  • Line Location: WD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SWD+1
Function Call: WRITE
  • Prompt: !!,"This ward has no patient",!
  • Line Location: SWD+5
Function Call: WRITE
  • Prompt: !!,"Ward is not setup for this PADE.",!
  • Line Location: SWD+6
Function Call: WRITE
  • Prompt: !!,"Enter 'PT' to send orders by Patient"
  • Line Location: PDH+1
Function Call: WRITE
  • Prompt: !," 'WD' to send orders by Ward"
  • Line Location: PDH+2
Function Call: WRITE
  • Prompt: !," 'CL' to send orders by Clinic"
  • Line Location: PDH+3
Function Call: WRITE
  • Prompt: !," or 'E' or '^' to exit"
  • Line Location: PDH+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PDH+4
Function Call: WRITE
  • Prompt: !,"You must select a PADE"
  • Line Location: SELPD+2
Function Call: WRITE
  • Prompt: !,?2,CNT_" Order(s) Queued for "_PTN,!
  • Line Location: GETPTO+17
Function Call: WRITE
  • Prompt: !!,"You must have the PSJ PADE MGR key to send all orders",!
  • Line Location: CL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SCL+1
Function Call: WRITE
  • Prompt: !!,"Clinic is not setup for this PADE.",!
  • Line Location: SCL+5
Function Call: WRITE
  • Prompt: !,"Orders Queued to be sent to PADE",!
  • Line Location: SDCL+1
Routine Call
  • DIC
  • Line Location:
    • PADE+3
    • PDSAR+1
    • PDUSR+8
    • DIV+1
    • SWD+3
    • SELPD+5
    • SCL+3
Routine Call
  • DIC
  • Line Location:
    • LOG+4
Routine Call
  • DIE
  • Line Location:
    • PADE+3
    • PDSAR+1
    • PDUSR+13
Routine Call
  • DIR
  • Line Location:
    • SEL+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^PS(58.7 - [#58.7] Classic Fileman Calls
^PS(58.72 - [#58.72] Classic Fileman Calls
^HLMA - [#773] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] WGSEL+6, WD+8
^DPT - [#2] GETPTO+6
^DPT("CN" WD+9, SWD+5, SDWD+1
^PS(50.607 - [#50.607] RXC+9, RXC+10, RXC+11
^PS(55 - [#55] SDCL+3, SDCL+4, SDCL+5, SDCL+6, SDCIV+2, SDCIV+3, SDCIV+4, SDCIV+5
^PS(57.5 - [#57.5] WGSEL+3, WGSEL+4, WDARR+5
^PS(57.8 - [#57.8] CLARR+9
^PS(58.7 - [#58.7] PDUSR+2, PDUSR+11, BDCHK+4, BDCHK+6, CLCHK+3, CLCHK+5, PDORD+2, DIV+4, SELPD+7, CLARR+2
, CLARR+4, CLARR+5, CLARR+8, CLARR+12, WDARR+2, WDARR+4
^PSDRUG - [#50] RXC+6, RXC+7
^SC - [#44] CLCHK+7, ORSEL+3, SDCL+10, SDCIV+9, CLARR+15
^SC("AC" ORSEL+2
^SC("B" CLARR+13, CLARR+15
^TMP("PS" GETPTO+3!, GETPTO+7, GETPTO+9, GETPTO+12, GETPTO+13
^XTMP("PADE" RXC+20
^XUSEC("PSJ PADE ADV" PADE+2
^XUSEC("PSJ PADE MGR" WD+5, CL+7

Label References

Name Line Occurrences
CL DIV+9, CL+7, SCL+3, SCL+5, SCL+8
CLARR CL+2
DIV DIV+5, DIV+6
GETPTO PT+4, SDWD+2
PADE PADE+3
PDARX PDSAR+1
PDSAR PDSAR+1
PDX PADE+3
PT SEL+9, PT+5
SCL CL+6
SDCL CL+8, SCL+6
SDO SDCL+8, SDCL+9, SDCL+10, SDCIV+7, SDCIV+8, SDCIV+9
SDWD WD+10, SWD+7
SEL SEL+11, DIV+2, WD+3, WD+11, SWD+3, PT+3, CL+5, CL+9, SCL+3
SELPD SEL+10, SELPD+2
SWD WD+4
WD WD+5, SWD+3, SWD+5, SWD+6, SWD+9
WDARR WD+1

Naked Globals

Name Field # of Occurrence
^( CLARR+2, CLARR+6, CLARR+8, CLARR+10, CLARR+12, WDARR+5
^("DSS" SDCIV+6
^("ND" RXC+7
^(0 CLCHK+1, CLCHK+2, WGSEL+2, ORSEL+2
^(2 DIV+6
^(8 SDCL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOG+10
ALL44 CL+1~*, CL+2, SCL+5, SDCL+10, SDCIV+9
ALLC SEL+4!, CL+3!, CL+8*, SDCL+9, SDCL+10, SDCIV+8, SDCIV+9
BDT SDCL+2~*, SDCL+3*, SDCL+4, SDCL+5, SDCIV+1*, SDCIV+2*, SDCIV+3, SDCIV+4
CNT WD+6~, GETPTO+3*, GETPTO+14*, GETPTO+17
D0 BDCHK+1~*, WGSEL+5~*
DA PADE+1~, PADE+3*, PDSAR+1*, PDUSR+12*, WGSEL+7
DA(1 ORSEL+2
DA(2 BDCHK+4, BDCHK+6, CLCHK+2, CLCHK+3, CLCHK+5
DA(3 BDCHK+4, BDCHK+6, CLCHK+3, CLCHK+5
DD LOG+9!, LOG+11!
DFN SEL+4!, PT+1!, PT+3, PT+4, PT+5!, GETPTO+4*, GETPTO+5, GETPTO+6, GETPTO+18, SDCL+4*
, SDCL+5, SDCL+6, SDCIV+3*, SDCIV+4, SDCIV+5, SDO+1, SDWD+1*, SDWD+2
DIC PADE+1*, PDX!, PDSAR+1*, PDARX!, PDUSR+6!*, PDUSR+8!, PDUSR+14!, DIV+1!*, SWD+1!*, SWD+3!
, SELPD+3*, SELPD+5!, SCL+1!*, SCL+3!, LOG+9!, LOG+10*, LOG+11!
DIC("A" PDUSR+6*, DIV+1*, SELPD+3*
DIC("DR" LOG+10*
DIC("S" PDUSR+7*, SWD+2*, SELPD+4*, SCL+2*
DIC(0 PADE+1*, PADE+2*, PDSAR+1*, PDUSR+6*, DIV+1*, SWD+1*, SELPD+3*, SCL+1*, LOG+10*
DIE PADE+1*, PDX!, PDSAR+1*, PDARX!, PDUSR+12*, PDUSR+14!
DIR SEL+3!, SEL+7!
DIR("?" SEL+5*
DIR("A" SEL+5*
DIR("B" SEL+5*
DIR(0 SEL+6*
DIRUT SEL+3!, SEL+7
DIVI SEL+4!, DIV+4*, DIV+5, DIV+8, CL+1
DLAYGO PADE+1*, PADE+2!, PDSAR+1*
DO LOG+9!, LOG+11!
DOS RXC+1~, RXC+7*, RXC+8, RXC+9, RXC+10, RXC+11, RXC+12, RXC+13*, RXC+14, RXC+15
, RXC+16, RXC+17
DR PADE+1~, PADE+3*, PDSAR+1*, PDUSR+12*, LOG+7*, LOG+8*, LOG+10
DT ORSEL+3, DIV+5, SDCL+2, SDCIV+1, RXC+4
DTIME WD+2, CL+4
>> DTOUT SELPD+2
>> DUOUT SELPD+2
DUZ PADE+2, WD+5, CL+7
FF ORSEL+1~*, ORSEL+3*, ORSEL+4
FP GETPTO+11~, GETPTO+13*, GETPTO+14
HLI LOG+2~, LOG+4*, LOG+5*
I PDUSR+1~*, PDUSR+2*, PDUSR+4*, PDUSR+9*, WGSEL+1~*, WGSEL+3*, WGSEL+4, PDORD+1~*, PDORD+2*, SELPD+1*
, SELPD+6*, GETPTO+9*, GETPTO+11*, GETPTO+12*, GETPTO+13, SDCL+5*, SDCL+6, SDCIV+4*, SDCIV+5, SDO+1
, CLARR+1*, CLARR+2*, CLARR+3*, CLARR+4*, CLARR+5, CLARR+7*, CLARR+8*, CLARR+11*, CLARR+12*, WDARR+1*
, WDARR+2*, WDARR+3*, WDARR+4*, WDARR+5, RXC+2*, RXC+3, RXC+4
J PDUSR+1~, PDUSR+2*, PDUSR+4*, PDUSR+5, BDCHK+1~*, BDCHK+4*, BDCHK+5, BDCHK+6*, BDCHK+7*, BDCHK+8
, CLCHK+3~*, CLCHK+4, CLCHK+5*, CLCHK+6*, CLCHK+7, WGSEL+1~, WGSEL+4*, WGSEL+5, WGSEL+6*, WGSEL+7
, PDORD+1~, PDORD+2*, SELPD+1*, SELPD+2, GETPTO+13*, GETPTO+14, SDCL+6*, SDCIV+5*, CLARR+5*, CLARR+6
, CLARR+8*, CLARR+9, CLARR+12*, CLARR+13, WDARR+5*
K PDUSR+1~, PDUSR+9*, WGSEL+1~*, WGSEL+3, WGSEL+7*, WGSEL+8, PDORD+1~, SDCL+7*, SDCL+8, SDCL+9
, SDCL+10, SDCIV+6*, SDCIV+7, SDCIV+8, SDCIV+9, CLARR+6*, CLARR+10*, CLARR+15*, CLARR+16, WDARR+5*
L PDORD+1~, SDCIV+1*, SDO+1, CLARR+11*, CLARR+15*
>> LI LOG+7*, LOG+8*
NDF RXC+1~, RXC+7*, RXC+12, RXC+13
>> NECH RXC+6, RXC+10, RXC+11, RXC+16, RXC+17
>> NFS RXC+5, RXC+6, RXC+10, RXC+11, RXC+16, RXC+17
NIV SEL+4!, DIV+8*, SDCL+11
>> NSEG( RXC+19*
PDCL SEL+4!, SDCL+9, SDCIV+8
PDCL( SCL+5, SDCL+9, SDCIV+8, CLARR+2*, CLARR+6*, CLARR+10*, CLARR+16*
PDCL(0 CL+2
PDL LOG+11!
PDL( LOG+8
PDL(0 LOG+1
PDL(13 LOG+6*
PDL(17 LOG+5*
PDL(3 LOG+3*
PDO GETPTO+11~
PDO( GETPTO+14*, GETPTO+19
PDO("" GETPTO+15
PDTYP SEL+4!, GETPTO+18*, SDO+1*
PDWD SEL+4!
PDWD( WD+7, SWD+6, WDARR+2*, WDARR+5*
PDWD(0 WD+1
>> PS55(1 RXC+2, RXC+3, RXC+4
PSJAP PDUSR+1~*, PDUSR+3, PDORD+1~*, PDORD+3
PSJAP( PDUSR+4, PDUSR+9!, SELPD+1, SELPD+6!
PSJAP(0 PDUSR+10, SELPD+7
PSJCLPD PDORD+1~, SEL+10, SEL+11, DIV+4, SELPD+6*, SELPD+7*, CLARR+2, CLARR+4, CLARR+5, CLARR+8
, CLARR+12, WDARR+2, WDARR+4
PSJDD RXC+1~, RXC+3*, RXC+6, RXC+7
PSJDIV PADE+1~, PDUSR+12~, CLCHK+2, WGSEL+7, ORSEL+2, SEL+4!, DIV+3*, DIV+4, SDCL+10, SDCIV+9
, CLARR+2, CLARR+4, CLARR+5, CLARR+8, CLARR+12, CLARR+15, WDARR+2, WDARR+4
PSJDU RXC+1~, RXC+3*, RXC+10, RXC+16
PSJHLDFN SEL+4!, GETPTO+18*, SDO+1*
PSJPDNM PDORD+1~, SEL+12, SELPD+7*
>> PSJSND LOG+3, LOG+4, LOG+6
PTN GETPTO+3~, GETPTO+6*, GETPTO+8, GETPTO+10, GETPTO+16, GETPTO+17
Q WGSEL~, WGSEL+3, WGSEL+4
QZ BDCHK~, BDCHK+1, CLCHK~, CLCHK+3, CLCHK+7
RESNDCLN GETPTO~, GETPTO+8, GETPTO+10, GETPTO+16, GETPTO+17, GETPTO+20
RESNDDFN GETPTO~, GETPTO+4
RXC RXC+1~
RXO SEL+4!, GETPTO+19*, SDO+1*
SCL SEL+4!, SCL+1!, SCL+4*, SCL+5, SCL+7!, SDCL+8, SDCIV+7
>> SEG RXC+5*, RXC+6*, RXC+10*, RXC+11*, RXC+16*, RXC+17*, RXC+19
SEL SEL+5, SEL+7!, SEL+8*, SEL+9, DIV+9, GETPTO+8, GETPTO+10, GETPTO+16
>> SEQ RXC+18*, RXC+19
SWD SEL+4!, SWD+1!, SWD+4*, SWD+6, SWD+8!
U CLCHK+1, CLCHK+2, CLCHK+7, WGSEL+2, ORSEL+2, ORSEL+3, SDCL+10, SDCIV+9
WDCNT WD+6~, WD+10*, GETPTO+14*
WDN SEL+4!, WD+8*, WD+9, WD+10, SWD+1!, SWD+4*, SWD+5, SWD+8!, SDWD+1
X PADE+3, PDSAR+1, PDUSR+1~, BDCHK+1~, BDCHK+2, BDCHK+4*, WGSEL+5~, PDORD+1~, SEL+7!, WD+2*
, WD+3, WD+4, SWD+3, SELPD+2, CL+4*, CL+5, CL+6, SCL+3, LOG+10*
Y PADE+3, PDSAR+1, PDUSR+1~, PDUSR+5, PDUSR+8, PDUSR+9, PDUSR+10*, PDUSR+11, PDUSR+12, ORSEL+2
, ORSEL+3, PDORD+1~, SEL+7!, SEL+8, DIV+2, DIV+3, DIV+7, SWD+3, SWD+4, SELPD+5
, SELPD+6, SCL+3, SCL+4, CLARR+13*, CLARR+14, LOG+11!
Z PDORD+1~, CLARR+1~, CLARR+9*, CLARR+10, CLARR+13*, CLARR+14, CLARR+15
Z11 WD+6~*, WD+7*, WD+8
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 |  Naked Globals |  Local Variables  | All