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

Package: Generic Code Sheet

Routine: GECSPUR1


Information

GECSPUR1 ;WISC/RFJ/KLD-purge code sheets (purge routine) ;01 Nov 93

Source Information

Source file <GECSPUR1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIK  

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

Package Total Caller Graph
Generic Code Sheet 6 GECSEDIT  GECSMUT1  GECSPURG  GECSSDCT  GECSUTIL  GECSXBLD  

Entry Points

Name Comments DBIA/ICR reference
DQ ; queue comes here
H ; header
KILLBATC(DA) ; kill batch da from file 2101.3
KILLCS(DA) ; delete code sheet da
KILLSTAC(DA)

External References

Name Field # of Occurrence
DD^%DT DQ+3
NOW^%DTC DQ+3
^DIK KILLBATC+3, KILLCS+3, KILLSTAC+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," STATION: ",GECS("SITE")_GECS("SITE1"),!,"BATCH TYPE: ",$S($G(GECSSYS)="*":"** ALL **",1:GECS("BATCH")),!," USER: ",$P($G(^VA(200,DUZ,0)),"^")
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !!,"Deleting all code sheets created or transmitted before: ",GECSDATE
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !!,"deleting batches and code sheets contained in batches:"
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: !?5,GECSBATC
  • Line Location: DQ+16
Function Call: WRITE
  • Prompt: " --deleted, cleaning up associated code sheets:"
  • Line Location: DQ+18
Function Call: WRITE
  • Prompt: !?14
  • Line Location: DQ+20
Function Call: WRITE
  • Prompt: $J($P($G(^GECS(2100,GECSDA,0)),"^"),10)
  • Line Location: DQ+21
Function Call: WRITE
  • Prompt: !?14
  • Condition for execution: $X>68
  • Line Location: DQ+21
Function Call: WRITE
  • Prompt: !,"cleaning up code sheets:",!?14
  • Line Location: DQ+24
Function Call: WRITE
  • Prompt: $J($P(GECSDATA,"^"),10)
  • Line Location: DQ+29
Function Call: WRITE
  • Prompt: !?14
  • Condition for execution: $X>68
  • Line Location: DQ+29
Function Call: WRITE
  • Prompt: $J($P(GECSDATA,"^"),10)
  • Line Location: DQ+36
Function Call: WRITE
  • Prompt: !?14
  • Condition for execution: $X>68
  • Line Location: DQ+36
Function Call: WRITE
  • Prompt: !!,"Finished - deleted ",GECSCOUN," code sheets."
  • Line Location: DQ+38
Function Call: WRITE
  • Prompt: !,"cleaning up stack file:",!?14
  • Line Location: DQ+42
Function Call: WRITE
  • Prompt: $P(GECSDATA,"^"),!?14
  • Line Location: DQ+45
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"CODE SHEET/TRANSMISSION RECORD DELETION TRANSCRIPT ",%
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2100 - [#2100] Classic Fileman Calls
^GECS(2100.1 - [#2100.1] Classic Fileman Calls
^GECS(2101.3 - [#2101.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GECS(2100 - [#2100] DQ+21, DQ+25, DQ+28, KILLCS+1
^GECS(2100.1 - [#2100.1] DQ+43, KILLSTAC+1
^GECS(2101.3 - [#2101.3] DQ+9, DQ+29, KILLBATC+1
^VA(200 - [#200] DQ+4

Label References

Name Line Occurrences
H DQ+3
KILLBATC DQ+17
KILLCS DQ+21, DQ+29, DQ+36
KILLSTAC DQ+46

Naked Globals

Name Field # of Occurrence
^( DQ+9, DQ+25, DQ+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+3, H+1*, H+2, H+3*, KILLBATC+2~, KILLCS+2~, KILLSTAC+2~
DA KILLBATC~, KILLBATC+1, KILLCS~, KILLCS+1, KILLSTAC~, KILLSTAC+1
DIC KILLBATC+2~, KILLCS+2~, KILLSTAC+2~
DIK KILLBATC+2~, KILLBATC+3*, KILLCS+2~, KILLCS+3*, KILLSTAC+2~, KILLSTAC+3*
DUZ DQ+4
>> GECS("BATCH" DQ+4
>> GECS("BATDA" DQ+14, DQ+26
>> GECS("SITE" DQ+4, DQ+11, DQ+34
>> GECS("SITE1" DQ+4, DQ+11, DQ+34
>> GECS("SYSID" DQ+13, DQ+26
GECSBADA DQ+1~, DQ+9*, DQ+17
GECSBATC DQ+1~, DQ+9*, DQ+12, DQ+16, DQ+21
GECSCOUN DQ+1~, DQ+9*, DQ+21*, DQ+29*, DQ+36*, DQ+38
GECSDA DQ+1~, DQ+21*, DQ+25*, DQ+28, DQ+29, DQ+36, DQ+43*, DQ+46
GECSDATA DQ+1~, DQ+9*, DQ+13, DQ+14, DQ+15, DQ+25*, DQ+26, DQ+29, DQ+34, DQ+35
, DQ+36, DQ+43*, DQ+44, DQ+45
>> GECSDATE DQ+5
>> GECSDT DQ+15, DQ+35
>> GECSDTST DQ+41, DQ+44
GECSNOW DQ+1~, DQ+3*, H+1
GECSSUF DQ+10~, DQ+11*, DQ+12
>> GECSSYS DQ+4, DQ+13, DQ+14, DQ+26
GECSTRAN DQ+1~, DQ+28*, DQ+29, DQ+33
IO DQ+2, DQ+3
IO(0 DQ+2
IOF H+1
IOST DQ+2
PAGE DQ+1~, DQ+3*, H+1*
SCREEN DQ+1~, DQ+2*, H+1
X KILLBATC+2~, KILLCS+2~, KILLSTAC+2~
Y DQ+3*, KILLBATC+2~, KILLCS+2~, KILLSTAC+2~
>> ZTQUEUED DQ+2
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  | All