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

Package: Inpatient Medications

Routine: PSJINVW


Information

PSJINVW ;BIR/CML3-INSTRUCTION HISTORY ;17 SEP 97 / 1:41 PM

Source Information

Source file <PSJINVW.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 2 ($$ENDTC,$$ENNPN)^PSGMI  $$GETSIOPI^PSJBCMA5  
Kernel 1 $$FMDIFF^XLFDT  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 $$ENDTC^PSSGMI  

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

Package Total Caller Graph
Inpatient Medications 1 PSJINHIS  

Entry Points

Name Comments DBIA/ICR reference
EN0(PSJINHIS,PSJCHTO) ;
EN2 ;
EN21 ;
DONE ;
PSJINHIS(PSJINHIS,PSJCHTO) ;
PSGSI ;
PSGOPI ;
ENA ;
AL1 ; Activity Logs
GETPRCOM ; Get provider comments
NPAGE ; Pause
DATUSR(DT,USR,TXT) ;
CPYPC(DFN,PSGORD,Q) ; Handle Special Instructions copied in from Provider Comments during finishing

External References

Name Field # of Occurrence
$$ENDTC^PSGMI PSGSI+6, PSGOPI+6, AL1+44
$$ENNPN^PSGMI PSGSI+6, PSGOPI+6, AL1+44, DATUSR+3
$$GETSIOPI^PSJBCMA5 PSGSI+2, PSGOPI+2, CPYPC+4
$$ENDTC^PSSGMI DATUSR+3
FULL^VALM1 PSJINHIS+2, NPAGE+5
$$FMDIFF^XLFDT AL1+13

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: CONT
  • Timeout: DTIME
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or '^' to exit: "
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PSJINHIS+2
Function Call: WRITE
  • Prompt: !!,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: PSGSI+6
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",2)),!?INDENT1,"SPECIAL INSTRUCTIONS changed"
  • Line Location: PSGSI+6
Function Call: WRITE
  • Prompt: !?INDENT1,"To:",!?INDENT2
  • Line Location: PSGSI+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($L(QQQ_" "_QQ)>72)
  • Line Location: PSGSI+9
Function Call: WRITE
  • Prompt: QQ," "
  • Line Location: PSGSI+9
Function Call: WRITE
  • Prompt: !?INDENT2,TMPTO(DFN,TMPTOLN)
  • Line Location: PSGSI+10
Function Call: WRITE
  • Prompt: !?INDENT1,"To:"
  • Line Location: PSGSI+12
Function Call: WRITE
  • Prompt: !!,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: PSGOPI+6
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",2)),!,"OTHER PRINT INFO changed"
  • Line Location: PSGOPI+6
Function Call: WRITE
  • Prompt: !?INDENT2,TMPTO(DFN,TMPTOLN)
  • Line Location: PSGOPI+8
Function Call: WRITE
  • Prompt: !?INDENT1,"To:"
  • Line Location: PSGOPI+10
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(55,DFN,5,+PSGORD,9,Q,Q2,TMPQ3,0)
  • Line Location: AL1+8
Function Call: WRITE
  • Prompt: !?INDENT1,$S(PSJCHTO=2:"From: ",PSJCHTO=1:"To:",1:"")
  • Line Location: AL1+11
Function Call: WRITE
  • Prompt: !?INDENT1,"From: "
  • Line Location: AL1+18
Function Call: WRITE
  • Prompt: !?INDENT2,FROM
  • Line Location: AL1+19
Function Call: WRITE
  • Prompt: !?INDENT2,TMPTO(DFN,TMPTOLN)
  • Line Location: AL1+20
Function Call: WRITE
  • Prompt: !?INDENT1,"To:"
  • Line Location: AL1+22
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(53.1,+PSGORD,"A",Q,QB,TMPQ2,0)
  • Line Location: AL1+23
Function Call: WRITE
  • Prompt: !?INDENT1,$S(PSJCHTO=2:"From: ",PSJCHTO=2:"To:",1:"")
  • Line Location: AL1+26
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(53.1,+PSGORD,"A",Q,QB,Q2,0)
  • Line Location: AL1+27
Function Call: WRITE
  • Prompt: !?INDENT1,"To: "
  • Condition for execution: TMPQ3=1
  • Line Location: AL1+32
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(55,DFN,"IV",+PSGORD,"A",Q,Q2,TMPQ3,0)
  • Line Location: AL1+32
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",3)),!,"OTHER PRINT INFO changed"
  • Line Location: AL1+37
Function Call: WRITE
  • Prompt: !?INDENT1,"From: """""
  • Line Location: AL1+38
Function Call: WRITE
  • Prompt: !?INDENT2,TMPTO(DFN,TMPTOLN)
  • Line Location: AL1+39
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(55,DFN,"IV",+PSGORD,"A",Q,Q2,Q3,0)
  • Line Location: AL1+41
Function Call: WRITE
  • Prompt: !,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: AL1+44
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",2)),!,"OTHER PRINT INFO changed"
  • Line Location: AL1+44
Function Call: WRITE
  • Prompt: !?INDENT1,"From: ",!?INDENT2,FROM
  • Line Location: AL1+45
Function Call: WRITE
  • Prompt: !?INDENT1,"To: "
  • Line Location: AL1+47
Function Call: WRITE
  • Prompt: !
  • Line Location: AL1+47
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(53.1,+PSGORD,"A",Q,QB,TMPQ2,0)
  • Line Location: AL1+48
Function Call: WRITE
  • Prompt: !,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: AL1+49
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",2)),!,"OTHER PRINT INFO changed"
  • Condition for execution: $S(UD'?4N:1,1:$E(UD,1,2)'=10)
  • Line Location: AL1+49
Function Call: WRITE
  • Prompt: !?INDENT1,$S(QB=1:"From: ",QB=2:"To: ",1:"")
  • Line Location: AL1+50
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(53.1,+PSGORD,"A",Q,QB,Q2,0)
  • Line Location: AL1+51
Function Call: WRITE
  • Prompt: !
  • Line Location: NPAGE+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: NPAGE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NPAGE+5
Function Call: WRITE
  • Prompt: !?25,"Instructions History"
  • Line Location: NPAGE+6
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: NPAGE+7
Function Call: WRITE
  • Prompt: !!,"Date: ",DAT,?28,"User: ",USER,!,TXT
  • Line Location: DATUSR+4
Function Call: WRITE
  • Prompt: !?INDENT1,$S(PSJCHTO=2:"From: ",PSJCHTO=1:"To:",1:"")
  • Line Location: CPYPC+12
Function Call: WRITE
  • Prompt: !?INDENT2,$G(^(TOSI,0))
  • Line Location: CPYPC+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN21+4
^PS(53.1 - [#53.1] EN2+1, EN21+1, PSGSI+1, PSGOPI+1, PSGOPI+4, PSGOPI+5, ENA+2, AL1+16, AL1+21, AL1+23
, AL1+27, AL1+46, AL1+48, AL1+51, GETPRCOM+8, GETPRCOM+9, GETPRCOM+10
^PS(55 - [#55] PSGSI+1, PSGOPI+1, PSGOPI+4, PSGOPI+5, ENA+1, ENA+3, ENA+4, AL1+4, AL1+8, AL1+12
, AL1+13, AL1+29, AL1+31, AL1+32, AL1+41, GETPRCOM+2, GETPRCOM+3, GETPRCOM+4, GETPRCOM+5, GETPRCOM+6
, GETPRCOM+7, CPYPC+1, CPYPC+2, CPYPC+13, CPYPC+14, CPYPC+15, CPYPC+17
^TMP("PSJBCMA5" PSGSI+11, PSGSI+13, PSGOPI+9, PSGOPI+11, CPYPC+7, CPYPC+8

Label References

Name Line Occurrences
AL1 ENA+1, ENA+2, ENA+4
CPYPC AL1+14
DATUSR AL1+7, AL1+10, AL1+17, AL1+25, AL1+36, AL1+49, GETPRCOM+3, GETPRCOM+6, GETPRCOM+9, CPYPC+6
, CPYPC+11
EN2 EN0+2
EN21 EN2+2
ENA PSJINHIS+7
GETPRCOM PSJINHIS+6
NPAGE PSGSI+6, PSGSI+10, PSGOPI+6, PSGOPI+8, PSGOPI+11, ENA+1, ENA+2, ENA+3, ENA+4, AL1+7
, AL1+9, AL1+10, AL1+17, AL1+20, AL1+25, AL1+27, AL1+32, AL1+33, AL1+35, AL1+39
, AL1+41, AL1+42, AL1+43, AL1+47, AL1+48, AL1+50, AL1+51, AL1+52, GETPRCOM+4, GETPRCOM+7
, GETPRCOM+10, GETPRCOM+11, DATUSR+1, CPYPC+6, CPYPC+10, CPYPC+11
PSGOPI PSJINHIS+9
PSGSI PSJINHIS+10
PSJINHIS EN21+6

Naked Globals

Name Field # of Occurrence
^( PSGSI+13, PSGOPI+11, ENA+1, ENA+2, ENA+3, CPYPC+17
^(0 ENA+1, ENA+2, AL1+8, AL1+12, AL1+23, AL1+27, AL1+32, AL1+41, CPYPC+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AND DONE+1!, PSJINHIS+4~, PSGSI+5~*, PSGSI+6, PSGOPI+4*, PSGOPI+5*, PSGOPI+6, ENA+1*, ENA+2*, ENA+4*
, AL1+1, AL1+2, AL1+7, AL1+10, AL1+17, AL1+18, AL1+25, AL1+28, AL1+36, AL1+44
, AL1+45, AL1+49, CPYPC+6, CPYPC+11
AND2 PSJINHIS+4~, ENA+3*, AL1+28
AT DONE+1!
CONT EN2+2!, EN2+3*
D DONE+1!
DASH PSJINHIS+1~*, PSJINHIS+3, NPAGE+7~*
DAT DATUSR+2~, DATUSR+3*, DATUSR+4
DFN PSGSI+10, PSGSI+13, PSGOPI+8, PSGOPI+11, AL1+4, AL1+8, AL1+12, AL1+13, AL1+14, AL1+20
, AL1+23, AL1+27, AL1+29, AL1+31, AL1+32, AL1+39, AL1+41, GETPRCOM+2, GETPRCOM+3, GETPRCOM+4
, GETPRCOM+5, GETPRCOM+6, GETPRCOM+7, CPYPC~, CPYPC+1, CPYPC+2, CPYPC+4, CPYPC+7, CPYPC+8, CPYPC+13
, CPYPC+14, CPYPC+15, CPYPC+17
DO DONE+1!
DONE DONE+1!, ENA+5*, NPAGE+4*
DRG DONE+1!
DRG1 DONE+1!
DRG2 DONE+1!
DT PSGOPI+1~, GETPRCOM+3*, GETPRCOM+6*, GETPRCOM+9*, DATUSR~, DATUSR+3
DTIME EN2+3, NPAGE+3
EB DONE+1!
F EN21+3*, EN21+5, DONE+1!
FD DONE+1!
FL EN21+3*, DONE+1!
FOUNDTO CPYPC+13~*, CPYPC+14, CPYPC+15, CPYPC+16
FROM AL1+18~*, AL1+19, AL1+45~*
HSM DONE+1!
INDENT1 PSJINHIS+5~*, PSGSI+6, PSGSI+7, PSGSI+8, PSGSI+10, PSGSI+12, PSGOPI+7, PSGOPI+8, PSGOPI+10, AL1+8
, AL1+11, AL1+18, AL1+22, AL1+26, AL1+32, AL1+38, AL1+39, AL1+40, AL1+45, AL1+47
, AL1+50, CPYPC+7, CPYPC+12
INDENT2 PSJINHIS+5~*, PSGSI+8, PSGSI+10, PSGSI+13, PSGOPI+7, PSGOPI+8, PSGOPI+11, AL1+8, AL1+12, AL1+19
, AL1+20, AL1+23, AL1+27, AL1+32, AL1+39, AL1+41, AL1+45, AL1+48, AL1+51, GETPRCOM+4
, GETPRCOM+7, GETPRCOM+10, CPYPC+8, CPYPC+15, CPYPC+17
INS DONE+1!
IOF EN2+3, PSJINHIS+2, NPAGE+5
IOST PSJINHIS+2, NPAGE+3
LAST AL1+4~, AL1+5*, AL1+13
LID DONE+1!
LNTXT PSGSI+11~*, PSGSI+12, PSGSI+13
MR DONE+1!
ND4 DONE+1!
NF EN21+2*, EN21+3, DONE+1!
OD DONE+1!
PN EN2+3*, DONE+1!, PSJINHIS+3*, PSGSI+6*, PSGSI+7*, PSGSI+8*, PSGSI+10*, PSGSI+12*, PSGSI+13*, PSGOPI+6*
, PSGOPI+7*, PSGOPI+8*, PSGOPI+10*, PSGOPI+11*, ENA+1, ENA+2, ENA+3, ENA+4, AL1+7, AL1+8*
, AL1+9, AL1+10, AL1+11*, AL1+12*, AL1+17, AL1+18*, AL1+19*, AL1+20*, AL1+22*, AL1+23*
, AL1+25, AL1+26*, AL1+27*, AL1+32, AL1+33*, AL1+35, AL1+38*, AL1+39*, AL1+40*, AL1+41*
, AL1+42, AL1+43, AL1+44*, AL1+45*, AL1+47*, AL1+48*, AL1+50*, AL1+51*, AL1+52, GETPRCOM+4*
, GETPRCOM+7*, GETPRCOM+10*, GETPRCOM+11, NPAGE+2*, NPAGE+6*, NPAGE+7*, DATUSR+1, DATUSR+4*, CPYPC+6, CPYPC+7*
, CPYPC+8*, CPYPC+10, CPYPC+11, CPYPC+12*, CPYPC+15*
PNM EN0+1~, EN21+4*
POPI PSGOPI+1~*, PSGOPI+2
POPIL PSGOPI+1~, PSGOPI+2*
PR DONE+1!
PROVLN GETPRCOM+1~, GETPRCOM+2*, GETPRCOM+3, GETPRCOM+4, GETPRCOM+5*, GETPRCOM+6, GETPRCOM+7, GETPRCOM+8*, GETPRCOM+9, GETPRCOM+10
PRVORD CPYPC+3~*, CPYPC+4, CPYPC+7, CPYPC+8
PRVSI CPYPC+4~*
PS55ND0 CPYPC+2~*, CPYPC+3
PSGID DONE+1!
PSGO EN2+1~*
PSGO1 EN2+1~*
PSGOD DONE+1!
>> PSGOEA EN2+1, EN2+2, EN2+3*, EN2+4*
PSGORD EN2+1*, EN2+4, EN21+1, EN21+2, EN21+3, PSJINHIS+9, PSGSI+1, PSGSI+2, PSGSI+4, PSGSI+11
, PSGSI+13, PSGOPI+1, PSGOPI+2, PSGOPI+4, PSGOPI+5, PSGOPI+9, PSGOPI+11, ENA+1, ENA+2, ENA+3
, ENA+4, AL1+3, AL1+4, AL1+8, AL1+12, AL1+13, AL1+14, AL1+15, AL1+16, AL1+21
, AL1+23, AL1+27, AL1+29, AL1+31, AL1+32, AL1+41, AL1+43, AL1+46, AL1+48, AL1+51
, GETPRCOM+2, GETPRCOM+3, GETPRCOM+4, GETPRCOM+5, GETPRCOM+6, GETPRCOM+7, GETPRCOM+8, GETPRCOM+9, GETPRCOM+10, CPYPC~
, CPYPC+1, CPYPC+2, CPYPC+13, CPYPC+14, CPYPC+15, CPYPC+17
>> PSGP EN21+3, EN21+4, PSGSI+1, PSGSI+2, PSGSI+11, PSGSI+13, PSGOPI+1, PSGOPI+2, PSGOPI+4, PSGOPI+5
, PSGOPI+9, PSGOPI+11, ENA+1, ENA+3, ENA+4
>> PSGP(0 EN21+4
>> PSGPR EN2+3*
PSIVFLG EN21+1~*, PSJINHIS+9
PSJCHTO EN0~, EN21+6, PSJINHIS~, PSJINHIS+8, PSGSI+4, PSGSI+7*, PSGSI+8*, PSGSI+10*, PSGSI+12*, PSGOPI+4
, PSGOPI+7*, PSGOPI+8*, PSGOPI+11*, AL1+6, AL1+7, AL1+8*, AL1+11*, AL1+12, AL1+18*, AL1+22*
, AL1+26*, AL1+27, AL1+30, AL1+33*, AL1+35, AL1+38*, AL1+39*, AL1+40*, AL1+41, AL1+44
, AL1+45*, AL1+47*, AL1+50*, CPYPC+5, CPYPC+8*, CPYPC+9*, CPYPC+12*, CPYPC+15
PSJFULL EN0+1~*, PSGSI+6, PSGSI+10, PSGOPI+6, PSGOPI+8, PSGOPI+11, ENA+1, ENA+2, ENA+3, ENA+4
, AL1+7, AL1+9, AL1+10, AL1+11, AL1+17, AL1+20, AL1+25, AL1+27, AL1+32, AL1+33
, AL1+35, AL1+39, AL1+41, AL1+42, AL1+43, AL1+47, AL1+48, AL1+50, AL1+51, AL1+52
, GETPRCOM+4, GETPRCOM+7, GETPRCOM+10, GETPRCOM+11, NPAGE+2, DATUSR+1, CPYPC+6, CPYPC+10, CPYPC+11
>> PSJHDRF PSJINHIS+1*
PSJINHIS EN0~, EN21+6, PSJINHIS~
>> PSJIVFLG AL1+28*
>> PSJPR EN2+3*
>> PSJPRCOM PSJINHIS+6, GETPRCOM+3*, GETPRCOM+6*, GETPRCOM+9*
>> PSJPTR NPAGE+1
>> PSJSYSP PSGSI+11
PSJUDGL PSGSI+4~*, PSGSI+5
PSJUDPH PSGSI+4~, PSGSI+5*
PX PSJINHIS+4~*, PSJINHIS+6, PSJINHIS+7, PSGSI+3, PSGSI+10, PSGOPI+3, PSGOPI+8, PSGOPI+9, ENA+1, ENA+2
, ENA+3, ENA+5, AL1+4, AL1+7, AL1+8, AL1+9, AL1+10, AL1+11, AL1+17, AL1+20
, AL1+21, AL1+23, AL1+24, AL1+25, AL1+27, AL1+29, AL1+31, AL1+33, AL1+34, AL1+35
, AL1+39, AL1+40, AL1+41, AL1+42, AL1+43, AL1+46, AL1+48, AL1+51, GETPRCOM+2, GETPRCOM+5
, GETPRCOM+8, NPAGE+3*, NPAGE+4, DATUSR+1, CPYPC+6, CPYPC+7, CPYPC+10, CPYPC+11, CPYPC+12
Q PSGSI+1~, PSGSI+9*, ENA+1*, ENA+2*, ENA+3*, ENA+4, AL1+4, AL1+8, AL1+12, AL1+13
, AL1+14, AL1+16, AL1+21, AL1+23, AL1+27, AL1+29, AL1+31, AL1+32, AL1+41, AL1+46
, AL1+48, AL1+51, CPYPC~, CPYPC+1, CPYPC+13
Q0TM AL1+13~*
Q2 AL1+4~*, AL1+6, AL1+8, AL1+10, AL1+12, AL1+21~*, AL1+22, AL1+25, AL1+26, AL1+27
, AL1+29~*, AL1+30, AL1+31, AL1+32, AL1+38, AL1+39, AL1+41, AL1+46~*, AL1+47, AL1+49
, AL1+50, AL1+51
Q2TM AL1+13~*
Q3 AL1+4~*, AL1+6, AL1+10, AL1+11, AL1+12, AL1+29~*, AL1+30, AL1+35, AL1+38, AL1+39
, AL1+40, AL1+41
QB AL1+21~*, AL1+22, AL1+23, AL1+25, AL1+27, AL1+46~*, AL1+47, AL1+48, AL1+49, AL1+50
, AL1+51
QQ PSGSI+1~, PSGSI+9*
QQQ PSGSI+1~, PSGSI+9*
R DONE+1!
SCH DONE+1!
SCT DONE+1!
SI DONE+1!, PSGSI+1~*, PSGSI+2, PSGSI+8, PSGSI+9
SIG DONE+1!
SIL PSGSI+2~*, PSGSI+8
SM DONE+1!
ST DONE+1!
STD DONE+1!
TMPQ2 AL1+23~*, AL1+48~*
TMPQ3 AL1+8~*, AL1+31~*, AL1+32, CPYPC+7~*, CPYPC+8
TMPTO PSGSI+13!, PSGOPI+11!, AL1+8!, AL1+12!, AL1+23!, AL1+27!, AL1+32!, AL1+41!, CPYPC+8!, CPYPC+15!
TMPTO( PSGSI+10, PSGSI+13*, PSGOPI+8, PSGOPI+11*, AL1+8*, AL1+12*, AL1+20, AL1+23*, AL1+27*, AL1+32*
, AL1+39, AL1+41*, CPYPC+8*, CPYPC+15*
TMPTOLN PSGSI+10~*, PSGOPI+8~*, AL1+20~*, AL1+39~*
TOSI CPYPC+13~*, CPYPC+14*, CPYPC+15, CPYPC+17*
TXT DATUSR~, DATUSR+4
TXTLN PSGOPI+1~, PSGOPI+9*, PSGOPI+10, PSGOPI+11
UD DONE+1!, AL1+1*
USER DATUSR+2~, DATUSR+3*, DATUSR+4
USR PSGOPI+1~, GETPRCOM+3*, GETPRCOM+6*, GETPRCOM+9*, DATUSR~, DATUSR+3
X DONE+1!
XU DONE+1!
Y EN21+3*, DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All