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

Package: Inpatient Medications

Routine: PSJPADE


Information

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

Source Information

Source file <PSJPADE.m>

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 ;

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

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