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
Print Page as PDF
Routine: YTCHECK

Package: Mental Health

Routine: YTCHECK


Information

YTCHECK ;SLC/TGA-CHECK PSYCH TEST/INTERVIEW DATA BASE ; 7/10/89 11:21 ;03/11/94 12:13

Source Information

Source file <YTCHECK.m>

Entry Points

Name Comments DBIA/ICR reference
S ;
1 ;
2 ;
ENP ;
CK ;
CK1 ;
MMPIRCK(L,L1) ; If MMPIR and EXP=566 and GOT=1132... OK
; This code "compensates" for MMPR longs (MMPIs) entered before
; YS*5*17. These entries still have 1132 (2 x 566) responses...
D ;
T ;
P ;
P1
INC ;
DEL ;
END ;
KIL ;
HD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?22,"Check Psych Test/Interview Data Base"
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !!,"You may use this option for individual patients or all patients."
  • Line Location: S+2
Function Call: WRITE
  • Prompt: !,"If you use it for individual patients, you may elect to delete any unknown"
  • Line Location: S+3
Function Call: WRITE
  • Prompt: !,"tests/interviews and any tests/interviews with erroneous response sets."
  • Line Location: S+4
Function Call: WRITE
  • Prompt: !,"If you use it for all patients, you may elect to print a list of errors or"
  • Line Location: S+5
Function Call: WRITE
  • Prompt: !,"automatically delete all unknown patients, unknown instruments, and all"
  • Line Location: S+6
Function Call: WRITE
  • Prompt: !,"instruments with erroneous response sets."
  • Line Location: S+7
Function Call: WRITE
  • Prompt: !!,"THIS OPTION SHOULD NOT BE RUN WHILE TESTS/INTERVIEWS ARE UNDERWAY!",$C(7)
  • Line Location: S+8
Function Call: READ
  • Variable: A
  • Timeout: DTIME
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !,"Type 'I' to check an individial patient's data or 'A' to check all patients."
  • Line Location: 1+2
Function Call: READ
  • Formatting: !!
  • Prompt: "(L)ist or (D)elete errors: "
  • Variable: A
  • Timeout: DTIME
  • Line Location: 1+4
Function Call: READ
  • Prompt: !!
  • Variable: "Shall I list discontinued session(s)" S %=0 D YN^DICN G
  • Timeout: "^"[%Y
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !?4,"Answer 'YES' or 'NO'."
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CK+10
Function Call: WRITE
  • Prompt: YSNM
  • Condition for execution: YSN
  • Line Location: CK+10
Function Call: WRITE
  • Prompt: ?31,"Response set length error on "
  • Line Location: CK+11
Function Call: WRITE
  • Prompt: X,!?31,"expected ",L," got ",L1
  • Line Location: CK+15
Function Call: WRITE
  • Prompt: " - DELETED"
  • Line Location: CK+17
Function Call: WRITE
  • Prompt: " - DELETED"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !,"Unknown patient found"
  • Line Location: P+1
Function Call: WRITE
  • Prompt: " - DELETED"
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,"No data on this patient."
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: INC+1
Function Call: WRITE
  • Prompt: YSNM
  • Condition for execution: YSN
  • Line Location: INC+1
Function Call: WRITE
  • Prompt: ?31,"Incomplete Session(s) found"
  • Line Location: INC+1
Function Call: READ
  • Variable: A
  • Timeout: DTIME
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF,!,"Test/Interview Database Report on "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: HD+1
Info |  Source |  Entry Points |  Interaction Calls