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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJOE0

Package: Inpatient Medications

Routine: PSJOE0


Information

PSJOE0 ;BIR/CML3-INPATIENT PROFILE AND ORDER ENTRY ;17 SEP 97 / 1:41 PM

Source Information

Source file <PSJOE0.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 10 ^PSGOE1  ENASR^PSGON  EN2^PSGVW  ENIN^PSIVOPT  ENIN^PSIVORE  PIV^PSIVUTL  ^PSJO  ENL^PSJO3  
$$COMPLEX^PSJOE  EN^PSJOE1  
Registration 1 (CLEAR,PAUSE)^VALM1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGVBWP  PSJOE  PSJPR  

Entry Points

Name Comments DBIA/ICR reference
CONT ;
CKNEW ;
GODO1 ;
LMNEW(PSGP,PSJPROT) ;Entry point for new order entry from listman.
; PSGP = DFN
; PSJPROT=1:UD ONLY; 2:IV ONLY; 3:BOTH
AM ;
ENVW ; ask user to select or view any of the orders shown
START ; print orders
DONE ;
GODO ;Display selected order.
OLDCOM(DFN,PSJORD) ;
ASKTYP ; Ask if completing as IV or UD.

External References

Name Field # of Occurrence
^DIR CONT+1, GODO1+1, ASKTYP+3, ASKTYP+4
^PSGOE1 GODO+3
ENASR^PSGON ENVW+1
EN2^PSGVW GODO+3
ENIN^PSIVOPT GODO+2
ENIN^PSIVORE LMNEW+12
PIV^PSIVUTL ASKTYP+2
^PSJO START+1
ENL^PSJO3 START+1
$$COMPLEX^PSJOE OLDCOM+1
EN^PSJOE1 LMNEW+12
CLEAR^VALM1 OLDCOM+3, OLDCOM+7
PAUSE^VALM1 OLDCOM+6, OLDCOM+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?2,"Patient is shown as deceased. You may not enter orders for this patient."
  • Line Location: CKNEW+2
Function Call: WRITE
  • Prompt: !!,"(NOTE: You cannot enter Unit Dose orders for this patient.)"
  • Line Location: CKNEW+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKTYP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKTYP+4
Function Call: WRITE
  • Prompt: !!!!!?21," * WARNING * "
  • Line Location: OLDCOM+3
Function Call: WRITE
  • Prompt: !!!?5,"The following order contains a Requested Duration"
  • Line Location: OLDCOM+4
Function Call: WRITE
  • Prompt: !?12,"and may be part of a complex dose!"
  • Line Location: OLDCOM+5
Function Call: WRITE
  • Prompt: !!," Review the entire profile to determine appropriate action(s).",!!!!!!!
  • Line Location: OLDCOM+6
Function Call: WRITE
  • Prompt: !!!!!?21," * WARNING * "
  • Line Location: OLDCOM+7
Function Call: WRITE
  • Prompt: !!!?5,"The following order contains a Requested Duration"
  • Line Location: OLDCOM+8
Function Call: WRITE
  • Prompt: !?12,"and may be part of a complex dose!"
  • Line Location: OLDCOM+9
Function Call: WRITE
  • Prompt: !!," Review the entire profile to determine appropriate action(s).",!!!!!!!
  • Line Location: OLDCOM+10
Function Call: WRITE
  • Prompt: !!?2,"Enter a 'Y' (or press the RETURN key) to enter new INPATIENT orders for this",!,"patient. Enter an 'N' (or an '^') if there are no new orders for this patient."
  • Line Location: AM+1
Routine Call
  • DIR
  • Line Location:
    • CONT+1
    • GODO1+1
    • ASKTYP+3
    • ASKTYP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.2 - [#51.2] LMNEW+6
^PS(53.1 - [#53.1] ENVW+6, GODO+1, GODO+2, OLDCOM+2
^PS(55 - [#55] LMNEW+6, OLDCOM+2
^TMP("PSJON" ENVW+5
^VA(200 - [#200] LMNEW+7

Label References

Name Line Occurrences
@( GODO+1
ASKTYP GODO+2
CKNEW LMNEW+5
CONT CKNEW+2, CKNEW+3
DONE START+1, ENVW+3, ENVW+5
GODO ENVW+6, ENVW+8
GODO1 GODO+1, GODO+2

Naked Globals

Name Field # of Occurrence
^("PS" LMNEW+7
^(5.1 LMNEW+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CF CKNEW+1!
CHK CKNEW+1!
DFN OLDCOM~, OLDCOM+1, OLDCOM+2
DIR CONT+1!, GODO1+1!, ASKTYP+4!
DIR("?" ASKTYP+4*
DIR("A" CONT+1*, ASKTYP+4*
DIR(0 CONT+1*, GODO1+1*, ASKTYP+3*, ASKTYP+4*
>> DIRUT GODO+2
DT LMNEW+7
>> DTOUT GODO1+1
>> DUOUT GODO1+1
DURFLG OLDCOM+2~*
IOF GODO1+1
OD CKNEW+1!
P DONE+2!
PSG DONE+1!
PSGDL DONE+1!
PSGDLS DONE+1!
PSGDO DONE+1!
PSGDRG DONE+1!
PSGDRGN DONE+1!
PSGEFN LMNEW+12!, DONE+2!
PSGFD DONE+1!
PSGHSM DONE+1!
PSGLMT ENVW+1*, CKNEW+1!
PSGMR DONE+1!
PSGMRN DONE+1!
PSGNEDFD DONE+1!
PSGNEFD DONE+1!
PSGNESD DONE+1!
PSGODDD ENVW+5, CKNEW+1!
PSGODDD( ENVW+5
>> PSGOE ENVW+5*
PSGOEA ENVW+3*, ENVW+6, ENVW+7, ENVW+8, CKNEW+1!
>> PSGOEAV START+1*, LMNEW+6*
>> PSGOEDMR LMNEW+6*
PSGOEEF DONE+2!
PSGOEF LMNEW+12!
>> PSGOEPR LMNEW+6*, LMNEW+7*, LMNEW+8*
PSGOES DONE+1!
PSGON CKNEW+1!
PSGONC ENVW+1*, CKNEW+1!
PSGONR ENVW+1*, CKNEW+1!
PSGONV ENVW+1*, CKNEW+1!
PSGOPR DONE+1!
PSGORD ENVW+5*, DONE+1!, CKNEW+1!, GODO+3*
PSGOROE1 DONE+1!
PSGP LMNEW~, LMNEW+6
PSGPR DONE+1!
PSGPRF ENVW+1*!
PSGPRN DONE+1!
>> PSGPTS LMNEW+6*
PSGS0XT DONE+1!
PSGS0Y DONE+1!
PSGSCH DONE+1!
PSGSD DONE+1!
PSGSI DONE+1!
PSGSM DONE+1!
PSGST DONE+1!
PSGSTN DONE+1!
PSGUD DONE+1!
PSGX DONE+1!
PSIVAC DONE+1!, GODO+1*
PSJCOM CKNEW+1!
PSJDLW ENVW+4!, ENVW+5, ENVW+6, DONE+1!, GODO1+1*
PSJLM DONE+1!
PSJNARC START+1*, DONE+1!
>> PSJNEWOE LMNEW+5*
PSJO ENVW+6~*
PSJO1 ENVW+6~*
>> PSJOE ENVW+5*, LMNEW+12*
PSJOE1 ENVW+5*, CKNEW+1!
PSJOE2 ENVW+5*, CKNEW+1!
>> PSJOEPF LMNEW+6*
>> PSJOL START+1
>> PSJON START+1, ENVW+1
PSJORD ENVW+5*, ENVW+6*, ENVW+7, GODO+1, GODO+2, GODO+3, ASKTYP+2, OLDCOM~, OLDCOM+1, OLDCOM+2
>> PSJORQF LMNEW+6*, LMNEW+12
>> PSJPCAF LMNEW+12, CKNEW+3, AM+2
>> PSJPDD CKNEW+2, ASKTYP+3
PSJPR START+1!, GODO1+1
>> PSJPRF ENVW+1, CKNEW+1, GODO+3
PSJPROT LMNEW~, LMNEW+12
>> PSJPRP GODO+1, GODO+2, GODO1+1
>> PSJPTS LMNEW+6
>> PSJPTSP LMNEW+8
>> PSJSYSP0 LMNEW+6
>> PSJSYSU LMNEW+6
PSJUDPRF LMNEW+5~
U LMNEW+6, GODO+2
>> X START+1, ENVW+3
>> Y GODO+2, ASKTYP+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All