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

Package: Inpatient Medications

Routine: PSJOREN


Information

PSJOREN ;BIR/CML3-INTERFACE FOR INPATIENT PHARMACY AND OE/RR ;07 AUG 97 / 3:21 PM

Source Information

Source file <PSJOREN.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 8 ^PSGAL5  ^PSGOE6  ^PSGOE7  ^PSGOES  ^PSGOETO  LOG^PSIVORAL  EN1^PSJHL2  $$DATE^PSJUTL2  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGOER  PSIVOPT2  PSJHL2  

Entry Points

Name Comments DBIA/ICR reference
PS ;
ENUDTX(DFN,ON,RES) ; Set up ORTX( Array for UD orders.
DONE ;
GO ; get orders
ENTRY ;
OUT ;
ENBKOUT(DFN,ON) ; Undo Renew.

External References

Name Field # of Occurrence
^DIC PS+2
^PSGAL5 ENBKOUT+16
^PSGOE6 GO+2
^PSGOE7 GO+2
^PSGOES GO+2
^PSGOETO GO+2
LOG^PSIVORAL ENBKOUT+11
EN1^PSJHL2 ENBKOUT+17
$$DATE^PSJUTL2 ENBKOUT+8, ENBKOUT+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THIS PATIENT HAS NOT BEEN ADMITTED.",!,"(Any non-IV orders entered will be discontinued by the pharmacist...)"
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: $C(7),!!,"The selected PROVIDER is NOT qualified to write MEDICATION orders. You must",!,"select a valid provider to be able to continue with Inpatient Medications."
  • Line Location: PS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PS+2
Function Call: WRITE
  • Prompt: $C(7)," (Required.)"
  • Line Location: PS+2
Routine Call
  • DIC
  • Line Location:
    • PS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ENTRY+2
^ORD(100.98 - [#100.98] GO+1
^PS(50.3 - [#50.3] ENUDTX+4
^PS(51.2 - [#51.2] GO+1, ENUDTX+5
^PS(53.1 - [#53.1] ENBKOUT+4, ENUDTX+3
^PS(53.3 - [#53.3] ENBKOUT+10
^PS(55 - [#55] ENBKOUT+7, ENBKOUT+8, ENBKOUT+9*, ENBKOUT+13, ENBKOUT+14, ENBKOUT+15*, ENUDTX+2, ENUDTX+6*

Naked Globals

Name Field # of Occurrence
^( ENUDTX+2, ENUDTX+3
^(0 ENBKOUT+8, ENBKOUT+9*, ENBKOUT+13, ENBKOUT+15*
^(2 ENBKOUT+9*, ENUDTX+2, ENUDTX+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ENBKOUT+2~, ENBKOUT+15*
DA(1 ENBKOUT+15*
DFN ENBKOUT~, ENBKOUT+7, ENBKOUT+8, ENBKOUT+9, ENBKOUT+13, ENBKOUT+14, ENBKOUT+15, ENBKOUT+17, ENUDTX~, ENUDTX+2
, ENUDTX+6
DIC PS+2!*, PS+3!
DIC("A" PS+2*
DIC("S" PS+2*
DIC(0 PS+2*
DO ENUDTX+1~
>> DTOUT PS+2
>> DUOUT PS+2
MRN ENUDTX+1~
ND0 ENUDTX+1~, ENUDTX+2*, ENUDTX+3*, ENUDTX+5
ND2 ENUDTX+1~, ENUDTX+2*, ENUDTX+3*, ENUDTX+5
NDP1 ENUDTX+1~, ENUDTX+2*, ENUDTX+3*, ENUDTX+4, ENUDTX+5
ON ENBKOUT~, ENBKOUT+1, ENBKOUT+4, ENUDTX~, ENUDTX+2, ENUDTX+3, ENUDTX+6
ON55 ENBKOUT+2~, ENBKOUT+10*
ORTX ENUDTX+1!
ORTX( ENUDTX+2*, ENUDTX+3*
ORTX(1 ENUDTX+4*
ORTX(2 ENUDTX+5*
>> ORVP ENTRY+2
PD ENUDTX+1~
PSGAL ENBKOUT+2~
PSGAL("C" ENBKOUT+15*
>> PSGOEAV GO+1*
>> PSGOEDMR GO+1*
PSGOEE ENTRY+1!, GO+2!
>> PSGOEORF GO+1*
>> PSGOEOS GO+2*
>> PSGOEPR GO+1*
PSGOES ENTRY+1!
PSIVACT ENBKOUT+2~, ENBKOUT+10*
PSIVAL ENBKOUT+2~, ENBKOUT+3*, ENBKOUT+10*
PSIVALT ENBKOUT+2~, ENBKOUT+10*
PSIVREA ENBKOUT+2~, ENBKOUT+10*
>> PSJHLMTN ENBKOUT+3, ENBKOUT+17*
PSJNOW ENBKOUT+8~*, ENBKOUT+9, ENBKOUT+14~*, ENBKOUT+15
PSJOC ENBKOUT+2~, ENBKOUT+3*, ENBKOUT+17
PSJOC2 ENBKOUT+2~, ENBKOUT+3*, ENBKOUT+17
PSJOLD ENBKOUT+2~, ENBKOUT+5*, ENBKOUT+6, ENBKOUT+7, ENBKOUT+8, ENBKOUT+9, ENBKOUT+10, ENBKOUT+12, ENBKOUT+13, ENBKOUT+14
, ENBKOUT+15, ENBKOUT+17
>> PSJORPF PS+3*
>> PSJORPV GO+1, PS+3*
>> PSJORPVN PS+3*
>> PSJORTOU GO+1*
PSJOSTOP ENBKOUT+8~*, ENBKOUT+9, ENBKOUT+14~*, ENBKOUT+15
PSJRES ENBKOUT+2~, ENBKOUT+5*
PSJSTAT ENBKOUT+8~*, ENBKOUT+9, ENBKOUT+13~*, ENBKOUT+15
PSJUNDC ENBKOUT+2~, ENBKOUT+10*
>> PSOC ENBKOUT+3, ENBKOUT+10, ENBKOUT+17*
RES ENUDTX~, ENUDTX+4
SCH ENUDTX+1~
ST ENUDTX+1~
U ENBKOUT+5, ENBKOUT+9, ENBKOUT+10, ENBKOUT+15, ENUDTX+4, ENUDTX+5
>> X GO+2, ENBKOUT+4*, ENBKOUT+5*, ENUDTX+2*, ENUDTX+3*
>> Y GO+2, PS+2, PS+3, ENUDTX+2*, ENUDTX+3*
>> Y(0 PS+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All