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 |  Marked Items  | All
Print Page as PDF
Routine: YTCLERK1

Package: Mental Health

Routine: YTCLERK1


Information

YTCLERK1 ;SLC/DJP-CONTINUATION OF ^YTCLERK; ;5/30/02 15:06

Source Information

Source file <YTCLERK1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Mental Health 3 (1,ENX)^YTCLERK  ENKIL^YTFILE  KAR^YTS  
Kernel 1 ^%ZIS  
VA FileMan 1 YN^DICN  

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

Package Total Caller Graph
Mental Health 3 YTAR  YTCLERK  YTONLY  

Entry Points

Name Comments DBIA/ICR reference
A31 ;
QUE ;
ZAP ;
ZAP1
REMMPR ;
YSM ;clerk entered long form message
REN ;
; Administering the MMPI... ien#60
RESTART ;
; Called from RESTART and from YTCLERK
; 3/11/94 LJA
GOT ;

External References

Name Field # of Occurrence
^%ZIS QUE+1
YN^DICN ZAP+1, REMMPR+1, RESTART+6
1^YTCLERK ZAP+1
ENX^YTCLERK GOT+6
ENKIL^YTFILE ZAP+1
KAR^YTS ZAP+1, RESTART+6, GOT+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!?3
  • Prompt: "Queue to print when test(s)/interview(s) completed? Y// "
  • Variable: A
  • Timeout: DTIME
  • Line Location: A31+1
Function Call: WRITE
  • Prompt: !!?3,"Queing will send tests results to the selected printer as soon as it",!?3,"is available."
  • Line Location: A31+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !,"IMPROPERLY DEFINED DEVICE!",$C(7)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,"YOU MUST QUEUE TO A PRINTER!",$C(7)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,YSTESTN," DELETED!"
  • Line Location: ZAP+1
Function Call: WRITE
  • Prompt: !!,"By entering ""Y"", the test will be deleted from the patient's file.",!
  • Line Location: ZAP1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: REMMPR+8
Function Call: WRITE
  • Prompt: !,$P($T(YSM+YSI),";;",2,99)
  • Line Location: REMMPR+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: REMMPR+9
Function Call: WRITE
  • Prompt: !!,"If the short form (MMPR) is not used, the long form (MMPI) will be substituted.",!
  • Line Location: REMMPR+16
Function Call: WRITE
  • Prompt: !,"Restart ",YSTESTN," now"
  • Line Location: RESTART+6
Function Call: WRITE
  • Prompt: !,"Test will restart at question interrupted."
  • Line Location: RESTART+7
Function Call: WRITE
  • Prompt: !!,YSTESTN," must be completed or deleted prior to administering another test."
  • Line Location: RESTART+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: GOT+6
Routine Call
  • %ZIS
  • Line Location:
    • QUE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTD(601.4 - [#601.4] RESTART+5, GOT+2, GOT+3
^YTT(601 - [#601] RESTART+3, GOT+4, GOT+5

Label References

Name Line Occurrences
A31 A31+3, GOT+1
GOT RESTART+6
QUE A31+2, QUE+2, QUE+3
REMMPR REMMPR+16
REN REMMPR+7
RESTART RESTART+7
ZAP ZAP1, RESTART+8
ZAP1 ZAP+1

Naked Globals

Name Field # of Occurrence
^( GOT+3
^(0 GOT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ZAP+1*, REMMPR+1*, REMMPR+4!, REMMPR+7, REMMPR+13!, REMMPR+16!, RESTART+6*, RESTART+7
>> A A31+1*, A31+2*, A31+3
>> B GOT+3*
>> B1 GOT+3*
>> C GOT+2*
DTIME A31+1
IO QUE+3
IO(0 QUE+3
ION QUE+1!, QUE+2
>> IOP QUE+1*
IOST QUE+3
>> J GOT+2*, GOT+3
>> POP QUE+1
>> R1 GOT+6*
U RESTART+3, GOT+2, GOT+4, GOT+5
>> YSCL GOT+6*
>> YSCLN GOT+6*
>> YSDFN RESTART+5, GOT+2, GOT+3
>> YSDTA GOT+2*
>> YSENT GOT+2, GOT+3
>> YSI REMMPR+8*
>> YSNQ REN+2*, GOT+4*, GOT+5*
>> YSOK A31+1*, QUE+1*, GOT+1
>> YSORD GOT+2*
>> YSQ A31+1*, A31+2*
>> YSRP GOT+3*
>> YSTEST REN+2*, RESTART+3, RESTART+4, GOT+2, GOT+4, GOT+5, GOT+6
>> YSTESTN ZAP+1, RESTART+3*, RESTART+5*, RESTART+6, RESTART+8, GOT+4, GOT+6
>> YSTF REN+2*
>> YSTIN REMMPR+13*
>> YSTOUT A31+1*
>> YSUOUT A31+1*
>> YSXT GOT+2*
>> YSXTP GOT+2*

Marked Items

Name Field # of Occurrence
$T(YSM+YSI REMMPR+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All