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 ;Mar 06, 2020@10:39

Source Information

Source file <PSJOE0.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Inpatient Medications 11 (,$$ACTPRO)^PSGOE1  ENASR^PSGON  EN2^PSGVW  ENIN^PSIVOPT  ENIN^PSIVORE  PIV^PSIVUTL  KILL^PSJBCMA5  ^PSJO  
ENL^PSJO3  $$COMPLEX^PSJOE  (CM,EN)^PSJOE1  
List Manager 1 (CLEAR,PAUSE)^VALM1  
Registration 1 DEM^VADPT  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Inpatient Medications 14 PSGVBWP  PSJ LM NEW CM ORDER  PSJ LM NEW ORDER  PSJ LM NEW ORDER FROM PROFILE  PSJBCMA6  PSJCLOR  PSJCLOR1  PSJCLOR2  
PSJCLOR3  PSJCLOR4  PSJCLOR5  PSJIBAG  PSJOE  PSJPR  

Entry Points

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

External References

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

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: !
  • Line Location: CKNEW+5
Function Call: WRITE
  • Prompt: !!,"(NOTE: You cannot enter Unit Dose orders for this patient.)"
  • Line Location: CKNEW+6
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: !!?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:
    • CKNEW+5
    • CONT+1
    • GODO1+1
    • ASKTYP+3
    • ASKTYP+4

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
@( GODO+1
ASKTYP GODO+2
CKNEW LMNEW+4
CM LMNEW+11
CMK LMNEW+12, CM+2
CONT CKNEW+2, CKNEW+6
DONE START+1, ENVW+2, ENVW+4
GODO ENVW+5, ENVW+7
GODO1 GODO+1, GODO+2

Naked Globals

Name Field # of Occurrence
^(5.1 LMNEW+5

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 CKNEW+5~, CONT+1!, GODO1+1!, ASKTYP+4!
DIR("?" ASKTYP+4*
DIR("A" CKNEW+5*, CONT+1*, ASKTYP+4*
DIR(0 CKNEW+5*, CONT+1*, GODO1+1*, ASKTYP+3*, ASKTYP+4*
>> DIRUT CKNEW+8, GODO+2
>> DTOUT GODO1+1
>> DUOUT GODO1+1
DURFLG OLDCOM+2~*
IOF GODO1+1
OD CKNEW+1!
P DONE+2!
P("APPT" LMNEW+10!, CMK+1!
P("APPTO" CMK+1!
P("CLIN" LMNEW+10!, CMK+1!
P("CLINO" CMK+1!
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+4, CKNEW+1!
PSGODDD( ENVW+4
>> PSGOE ENVW+4*
PSGOEA ENVW+2*, ENVW+5, ENVW+6, ENVW+7, CKNEW+1!
>> PSGOEAV START+1*, LMNEW+5*
>> PSGOEDMR LMNEW+5*
PSGOEEF DONE+2!
PSGOEF LMNEW+12!
>> PSGOEPR LMNEW+5*, 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+4*, DONE+1!, CKNEW+1!, GODO+3*
PSGOROE1 DONE+1!
PSGP LMNEW~, LMNEW+5
PSGPR DONE+1!
PSGPRF ENVW+1*!
PSGPRN DONE+1!
>> PSGPTS LMNEW+5*
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*
PSJCLAPP CMK+1!
PSJCM01 LMNEW+4~*, LMNEW+11, LMNEW+12, LMNEW+13!, CM+2, CKNEW+3*, CKNEW+7*
PSJCMF LMNEW+4~*, CMK+1!
PSJCMO LMNEW+11, LMNEW+12, LMNEW+13!, CKNEW+3
PSJCOM CKNEW+1!
PSJDEC LMNEW+4~, CKNEW+2*, CKNEW+8*
PSJDLW ENVW+3!, ENVW+4, ENVW+5, DONE+1!, GODO1+1*
PSJLM DONE+1!
PSJNARC START+1*, DONE+1!
>> PSJNEWOE LMNEW+4*
PSJO ENVW+5~*
PSJO1 ENVW+5~*
>> PSJOE ENVW+4*, LMNEW+11*
PSJOE1 ENVW+4*, CKNEW+1!
PSJOE2 ENVW+4*, CKNEW+1!
>> PSJOEPF LMNEW+5*
>> PSJOL START+1
>> PSJON START+1, ENVW+1
PSJORD ENVW+4*, ENVW+5*, ENVW+6, GODO+1, GODO+2, GODO+3, ASKTYP+2, OLDCOM~, OLDCOM+1, OLDCOM+2
>> PSJORQF LMNEW+5*, LMNEW+11
>> PSJPCAF LMNEW+9*, LMNEW+11, LMNEW+12, CKNEW+4, AM+2
>> PSJPDD ASKTYP+3
PSJPR START+1!, GODO1+1
>> PSJPRF ENVW+1, CKNEW+1, GODO+3
PSJPROT LMNEW~, LMNEW+11, LMNEW+12
>> PSJPRP GODO+1, GODO+2, GODO1+1
>> PSJPTS LMNEW+5
>> PSJPTSP LMNEW+8
>> PSJSYSP LMNEW+11
>> PSJSYSP0 LMNEW+5
>> PSJSYSU LMNEW+5
PSJUDPRF LMNEW+4~
U LMNEW+5, GODO+2
>> VADM(6 CKNEW+2
>> VALMBCK CMK+2*
X START+1, ENVW+2, CKNEW+5~
Y CKNEW+5~, CKNEW+6, CKNEW+7, CKNEW+8, 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