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

Package: Generic Code Sheet

Routine: GECSRST1


Information

GECSRST1 ;WISC/RFJ/KLD-stack reports (print) ;22 Dec 93

Source Information

Source file <GECSRST1.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ; queue comes here
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(DATA0,"^"),?24,Y,?46,X
  • Line Location: DQ+25
Function Call: WRITE
  • Prompt: " ",$E(YDT,4,5),"-",$E(YDT,6,7),"-"
  • Line Location: DQ+27
Function Call: WRITE
  • Prompt: $E($P(Y,",",2),2,5)
  • Line Location: DQ+28
Function Call: WRITE
  • Prompt: !?3,"COUNT: ",$E($P(DATA1,"^",3),1,69)
  • Line Location: DQ+29
Function Call: WRITE
  • Prompt: !?3,"ERROR: ",$E($P(DATA1,"^",2),1,69)
  • Line Location: DQ+30
Function Call: WRITE
  • Prompt: !?3,"DESCR: ",$E($P(DATA1,"^"),1,69)
  • Line Location: DQ+31
Function Call: WRITE
  • Prompt: !?3,"MAIL MSGS: "
  • Line Location: DQ+34
Function Call: WRITE
  • Prompt: ?14,DA1,?24,"CONFIRMATION: ",$P(^GECS(2100.1,DA,20,DA1,0),"^",2)
  • Line Location: DQ+37
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+38
Function Call: WRITE
  • Prompt: !?3,"*OLD MSGS: "
  • Line Location: DQ+41
Function Call: WRITE
  • Prompt: ?14,DA1,?24,"CONFIRMATION: ",$P(^GECS(2100.1,DA,21,DA1,0),"^",2)
  • Line Location: DQ+44
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+45
Function Call: WRITE
  • Prompt: !,"*** ACTUAL CODE SHEET:"
  • Line Location: DQ+47
Function Call: WRITE
  • Prompt: !,D
  • Line Location: DQ+50
Function Call: WRITE
  • Prompt: !,"*** END OF CODE SHEET ***"
  • Line Location: DQ+51
Function Call: WRITE
  • Prompt: !!?10,"TOTAL CODE SHEETS: ",TOTAL
  • Line Location: DQ+52
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"GCS STACK FILE STATUS REPORT",?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"TC-TRAN CODE -BATNUM",?24,"DATE@TIME CREATED",?46,"STATUS",?70,"HOLD DATE",!,%
  • Line Location: H+3
Info |  Source |  Entry Points |  Interaction Calls