Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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) ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call