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

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)

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call