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

Package: Generic Code Sheet

Routine: GECSUTIL


Information

GECSUTIL ;WISC/RFJ/KLD-code sheet utilities ;13 Oct 98

Source Information

Source file <GECSUTIL.m>

Entry Points

Name Comments DBIA/ICR reference
DELASK(GECSDA) ; ask to delete the code sheet gecsda
PRINTDQ ; taskman comes here to print code sheet gecsda
PRINT(GECSDA) ; print code sheet gecsda
VARIABLE(GECSDA)
ERROR(GECSDA) ; error in code sheet variables
R ; press return to continue
PAUSE ; pause
YN(%) ; yes, no reader
; %=default answer [1=yes,2=no];
; XP=prompt array [none,1,2,3...];
; XH=help array [none,1,2,3...]
HELP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " << CODE SHEET DELETED >>"
  • Line Location: DELASK+5
Function Call: WRITE
  • Prompt: !!,"TRANSMITTED CODE SHEET FOR ID# ",$P(^GECS(2100,GECSDA,0),"^")," WILL BE AS FOLLOWS:",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: $S(%#10=0:$E(%),%#5=0:"+",1:".")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: $S(%#10=0:$E(%),%#5=0:"+",1:".")
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,D
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"CODE SHEET MISSING"
  • Line Location: VARIABLE+3
Function Call: WRITE
  • Prompt: !,"CODE SHEET NAME MISSING"
  • Line Location: VARIABLE+18
Function Call: WRITE
  • Prompt: !,"SYSTEM IDENTIFIER MISSING"
  • Line Location: VARIABLE+19
Function Call: WRITE
  • Prompt: !,"BATCH TYPE MISSING"
  • Line Location: VARIABLE+20
Function Call: WRITE
  • Prompt: !,"STATION NUMBER MISSING"
  • Line Location: VARIABLE+21
Function Call: WRITE
  • Prompt: !,"TRANSACTION TYPE/SEGMENT MISSING"
  • Line Location: VARIABLE+22
Function Call: WRITE
  • Prompt: !,"EDIT TEMPLATE MISSING"
  • Line Location: VARIABLE+23
Function Call: WRITE
  • Prompt: !!,"SINCE THERE ARE DATA ERRORS FOR THIS CODE SHEET, IT CANNOT BE EDITTED.",!,"THIS CODE SHEET SHOULD BE DELETED AND RE-ENTERED AS A NEW CODE SHEET."
  • Line Location: ERROR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,"<Press RETURN to continue>"
  • Line Location: R+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,XP(I)
  • Line Location: YN+7
Function Call: WRITE
  • Prompt: "? ",$P("YES// ^NO// ^<YES/NO> ","^",%)
  • Line Location: YN+8
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: YN+9
Function Call: WRITE
  • Prompt: " <<timeout>>"
  • Line Location: YN+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>73
  • Line Location: YN+13
Function Call: WRITE
  • Prompt: $P(" (YES)^ (NO)","^",X)
  • Line Location: YN+13
Function Call: WRITE
  • Prompt: !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",!!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,XH(I)
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+2
Info |  Source |  Entry Points |  Interaction Calls