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 |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: YTCLERK

Package: Mental Health

Routine: YTCLERK


Information

YTCLERK ;SLC/DKG,SLC/BB-FAST CLERICAL ENTRY; ;5/30/02 15:04

Source Information

Source file <YTCLERK.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Mental Health 7 DONE^YTAR  ^YTAR2  (A31,REMMPR,RESTART)^YTCLERK1  (,EN40)^YTFILE  ^YTLIST  ^YTMMP7  KAR^YTS  
VA FileMan 2 ^%DT  ^DIC  

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  YTCLERK1  YTONLY  

Entry Points

Name Comments DBIA/ICR reference
1 ;
2 ;
RE ;
REY ;
REY1 ;
ENX ;
NX ;
D1 ;
D14 ;
D14X ;
RD ;
WD ;
WD1 ;
; 3/10/94 LJA Commented... F H=1:1:3 S ^YTD(601.4,YSDFN,1,YSENT,H+3)=X(H)
BK ;
BK1 ;
BK2 ;
BK3 ;
CONT ;
A11 ;
ORD ;;all instruments
Q
Q1 ;
TFYN(YSC) ;

External References

Name Field # of Occurrence
^%DT REY1+1
^DIC A11+1
DONE^YTAR D14X+3
^YTAR2 ENX+1, CONT+1
A31^YTCLERK1 REY+1
REMMPR^YTCLERK1 RE+9
RESTART^YTCLERK1 YTCLERK+3
^YTFILE D14X+3
EN40^YTFILE REY1+4
^YTLIST 2+3, 2+4
^YTMMP7 WD+1
KAR^YTS 1+1, 2+1, 2+2, RE+9, REY+1, REY1+1, REY1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Discontinued CLERK test found:"
  • Line Location: YTCLERK+3
Function Call: READ
  • Formatting: !!?3
  • Prompt: "Clerk Test: "
  • Variable: YSTESTN
  • Timeout: DTIME
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !!,"Enter one of the above listed instruments.",!,"Questions will NOT be asked. Responses only are required.",!
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: " [Not Found]"
  • Line Location: RE+1
Function Call: WRITE
  • Prompt: $C(7)," [INTERVIEWS may not be CLERK entered!]"
  • Line Location: RE+3
Function Call: WRITE
  • Prompt: " [Not a CLERK Test]",$C(7)
  • Line Location: RE+4
Function Call: WRITE
  • Prompt: $C(7)," [Not Available]"
  • Line Location: RE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REY1+1
Function Call: WRITE
  • Prompt: !,"There is a clerk test underway on this patient now",!,"Try again later."
  • Line Location: REY1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENX+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>68
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: $J(J,5),": "
  • Line Location: D1+1
Function Call: READ
  • Variable: *X
  • Timeout: 120
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: A11+1
Function Call: READ
  • Prompt: " OK? Y// "
  • Variable: A
  • Timeout: DTIME
  • Line Location: A11+2
Function Call: WRITE
  • Prompt: !!?2,"The requesting professional must be informed!"
  • Line Location: A11+3
Function Call: WRITE
  • Prompt: !!?2,$P(^VA(200,YSORD,0),U)," may order ",$P($T(ORD+YSORDP),";",3)
  • Line Location: A11+4
Function Call: WRITE
  • Prompt: !!,"Valid responses are: "
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: $E(C,I),", "
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: "and X (missing response)"
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !!,"Press * to stop, press ^ to back up.",!!
  • Line Location: Q1+1
Routine Call
  • DIC
  • Line Location:
    • A11+1

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)
^VA(200 - [#200] A11+2, A11+4
^XUSEC("YSP" REY+1, A11+4
^XUSEC("YSZ" REY+1
^YTD(601.4 - [#601.4] YTCLERK+3, REY1+3, REY1+4*, WD+1*, WD+2, WD1+2*, BK3+1
^YTT(601 - [#601] RE+1, RE+2, RE+3, RE+6, ENX+1, NX+1, NX+2, D14X+2, WD+1

Label References

Name Line Occurrences
2 2+3, 2+4, RE+1, RE+3, RE+4, RE+5
A11 1+1, A11+3
BK D14+1
BK1 BK+1
BK2 BK+1
BK3 BK+1
CONT D14+1
D1 D14+1, BK+1
D14X D14+1
NX D14X+1, BK1+1, BK2+1, BK3+1
Q D14+1
Q1 ENX+2, Q+1, Q+2
RD D14+1
WD D14X+1, D14X+3
WD1 WD+1

Naked Globals

Name Field # of Occurrence
^( YTCLERK+3
^("AC" YTCLERK+3
^("B" NX+2
^("C" ENX+1
^(0 NX+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT REY1+1*, REY1+2!
%DT("A" REY1+1*
%DT(0 REY1+1*
>> A A11+2*, A11+3
>> B RE+8*, NX+2*, Q+2
>> B1 NX+2*, Q
>> C RE+8*, NX+1*, D14+1, Q, TFYN+1*
DIC A11+1*!
DIC("A" A11+1*
DIC("B" A11+1*
DIC(0 A11+1*
DTIME 2+1, A11+2
DUZ REY+1, A11+1, A11+2, A11+3
>> H WD+1*
>> I Q*
>> J RE+8*, ENX+1, NX+1, NX+2, D1+1, D14X+1*, D14X+2*, WD+1, BK+1, BK1+1*
, BK2+1*, BK3+1*
U RE+3, RE+4, RE+5, RE+6, RE+7, NX+1, D14X+2, WD+1, A11+2, A11+4
, Q
>> X RE+3*, RE+4, RE+5, RE+7, D14+1, D14X+1, RD+1*
>> X( WD+1*
>> X1 NX+1*, D14+1, Q
>> XMB(6 D14X+3*
>> Y REY1+1, REY1+2, A11+1, A11+2, A11+3, A11+4
YSC TFYN~, TFYN+1
>> YSCL YTCLERK+3*, REY1+4*
>> YSCLERK RE+2*, REY1+3, BK3+1, CONT+1
>> YSCLN REY1+4*
>> YSDFN YTCLERK+3, REY1+3, REY1+4, WD+1, WD+2, WD1+2, BK3+1
>> YSDTA REY1+2*
>> YSENT YTCLERK+3*, REY1+4, WD+1, WD1+2
>> YSMCMI2L D14X+2
>> YSMCMI2P D14X+2
>> YSNQ RE+6*, RE+7*, D14X+1
>> YSOK 1+1, REY+1, A11+1*, A11+2*, A11+4*
>> YSORD A11+4*
>> YSORDP A11+4*
>> YSQ REY+1*
>> YSRP RE+8*, D14X+1*, D14X+2*, WD+1, WD+2*, BK+1, BK1+1*, BK2+1*, BK3+1*
>> YSTEST YTCLERK+3*, RE+2*, RE+3, RE+6, REY1+4, ENX+1, NX+1, NX+2, D14X+2, D14X+3
, WD+1, CONT+1*
YSTESTN 2+1*, 2+2, 2+3!, 2+4!, RE+1, RE+2, RE+6, RE+9, REY1+4
>> YSTF WD+1
>> YSTIN RE+9
>> YSTOUT 2+1*, A11+2*
>> YSUOUT 2+1*, A11+2*
YSXT 2+2*, 2+3!, 2+4!, D14X+3*
>> YSXTP RE+8*

Marked Items

Name Field # of Occurrence
$T(ORD+YSORDP A11+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All