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 |  All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Generic Code Sheet 5 KILLBATC^GECSMUT1  KILLCS^GECSPUR1  GETSITE^GECSSITE  $$STATUS^GECSUSTA  DELASK^GECSUTIL  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Generic Code Sheet 15 GECSBATC  GECSEDIT  GECSMUT1  GECSMUT2  GECSPURG  GECSREP0  GECSRST1  GECSRSTA  
GECSSTT1  GECSTRAN  GECSUTIL  GECSVFY  GECSXBL1  GECSXBLD  GECSXMAP  

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

External References

Name Field # of Occurrence
^%ZIS PRINT+2
KILLBATC^GECSMUT1 DELASK+6
KILLCS^GECSPUR1 DELASK+5
GETSITE^GECSSITE VARIABLE+24
$$STATUS^GECSUSTA DELASK+3
DELASK^GECSUTIL ERROR+2

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
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] VARIABLE+24
^DIE("B" VARIABLE+23
^GECS(2100 - [#2100] DELASK+4, PRINT+3, PRINT+5, VARIABLE+3, VARIABLE+14
^GECS(2100.1 - [#2100.1] VARIABLE+16
^GECS(2101.1 - [#2101.1] VARIABLE+8
^GECS(2101.2 - [#2101.2] VARIABLE+12

Label References

Name Line Occurrences
$$YN DELASK+3
HELP YN+12
PAUSE PRINT+8
PRINT PRINTDQ+1
R PRINT+13

Naked Globals

Name Field # of Occurrence
^( PRINT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DELASK+1~, DELASK+3*, PRINT+1~, PRINT+4*, PRINT+9*, YN~, YN+5*, YN+8, YN+11
D PRINT+1~, PRINT+5*, PRINT+10, VARIABLE+1~, VARIABLE+3*, VARIABLE+5, VARIABLE+6, VARIABLE+7, VARIABLE+9, VARIABLE+10
, VARIABLE+11, VARIABLE+13
DA1 PRINT+1~, PRINT+5*
DTIME R+1, PAUSE+1, YN+9
GECS VARIABLE+2!, VARIABLE+25!
GECS("BATCH" VARIABLE+8*, VARIABLE+20
GECS("BATDA" VARIABLE+7*, VARIABLE+8
GECS("CSDA" VARIABLE+4*
GECS("CSNAME" VARIABLE+5*, VARIABLE+18
GECS("EDIT" VARIABLE+13*, VARIABLE+23
GECS("SITE" VARIABLE+9*, VARIABLE+21, VARIABLE+24
GECS("SITE1" VARIABLE+10*, VARIABLE+24
GECS("SYSID" VARIABLE+6*, VARIABLE+19
GECS("TRANSFMS" VARIABLE+14*, VARIABLE+15, VARIABLE+16
GECS("TRANSFMSDA" VARIABLE+16*
GECS("TT" VARIABLE+11*, VARIABLE+12
GECS("TTDA" VARIABLE+12*, VARIABLE+22
GECSBATC DELASK+1~, DELASK+4*, DELASK+6
GECSDA DELASK~, DELASK+3, DELASK+4, DELASK+5, PRINTDQ+1, PRINT~, PRINT+3, PRINT+5, VARIABLE~, VARIABLE+3
, VARIABLE+4, VARIABLE+14, ERROR~, ERROR+2
GECSFLAG PRINT+1~, PRINT+5, PRINT+6, PRINT+8, VARIABLE+1~, VARIABLE+18*, VARIABLE+19*, VARIABLE+20*, VARIABLE+21*, VARIABLE+22*
, VARIABLE+23*, VARIABLE+24*, VARIABLE+25, PAUSE+1*
GECSFNOP VARIABLE+1~, VARIABLE+24*
I YN+4~, YN+7*, HELP+1*
IO PRINT+2, PRINT+6, PAUSE+1
IO(0 PRINT+6, R+1, PAUSE+1
IOP PRINT+2*!
IOST PRINT+6
LINE PRINT+1~, PRINT+5*, PRINT+6, PRINT+7*, PRINT+11*, PRINT+13
X R+1~*, PAUSE+1~*, YN+4~, YN+6, YN+9*, YN+10*, YN+11*, YN+12!, YN+13, YN+15
XH DELASK+2*, YN+14!, HELP, HELP+1
XH( HELP+1
XP DELASK+2*, YN+7, YN+14!
XP( YN+7
>> ZTQUEUED PRINT+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All