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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ASMTLOG1

Package: Site Management

Routine: ASMTLOG1


Information

ASMTLOG1 ;(#2) PRINT CARTRIDGE MAILING LIST [ 11/22/85 11:48 AM ]

Source Information

Source file <ASMTLOG1.m>

Entry Points

Name Comments DBIA/ICR reference
HEAD
END
AAPC ;;APC
AG ;;REG
LABEL
ACHS ;;CHS
START ;PRINT CARTRIDGE MAILING LIST
B1
B2
B3
LINE
TOTAL
HEADING

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?10,$P(^AUTTLOC($P(^(ASM),"^",1),0),"^",1)
  • Line Location: B2+0
Function Call: WRITE
  • Prompt: ?42,$P($T(@$P(ASM("GL"),"^",1)),";;",2),?56,$P(ASM("GL"),"^",5),!
  • Line Location: B3+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,USER,?80-$L(LOC)\2,LOC,?72,"page ",PG,!,TME,?80-$L(TITLE)\2,TITLE
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: ?78-$L(Y),Y,!
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: !!,?15,"FACILITY",?42,"DATA",?52,"# OF RECORDS"
  • Line Location: LABEL+0
Function Call: READ
  • Timeout: ",?10,"DIRECTOR,
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: @IOF,?80-$L("M E M O R A N D U M")\2,"M E M O R A N D U M",!!!,?5,"TO:",?10,"DIRECTOR, DATA PROCESSING SERVICES CENTER"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!!,?3,"FROM: ",?10,"OKLAHOMA CITY AREA OFFICE",!?10,"OFFICE OF PROGRAM PLANNING AND EVALUATION",!!!,"SUBJECT:",?10,"R.P.M.S. DATA CARTRIDGES",!!!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: "ENCLOSED ARE THE FOLLOWING DATA CARTRIDGES.....",!!!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,AG("PRL"),!
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !!!!,"Total cartridges sent: ",ASM("TOT"),!!!!,"Signature: _____________________________________",!
  • Line Location: TOTAL+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] B2
^AZOTXST( B2+1*
^AZOTXST("AC" B2+1*
^AZOTXST("AMAIL" B2+1!
^DD("DD" HEADING+3
^DD("SITE" HEADING+1
^DIC(3 - [#3] HEADING+2
^UTILITY($J B2

Label References

Name Line Occurrences
B1 END
B2 B3
END B2
HEAD B1
HEADING B1, B3
LINE LABEL
TOTAL END

Naked Globals

Name Field # of Occurrence
^( B2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("HR" HEADING+1*, HEADING+2
>> AG("LINE" LABEL*, LINE
>> AG("MIN" HEADING+1*, HEADING+2*
>> AG("OLD" LINE*
>> AG("PRL" LINE*
>> AG("TM" HEADING+1*
ASM B1*, B2*, END!, HEADING
ASM( B2*
ASM("COPIES" START+1*, END
ASM("GL" B2+1*, B3
ASM("TOT" B1*, B2*, TOTAL
ASM(1 B2+1
ASM(2 B2+1
ASM(3 B2+1
ASM(4 START+1*, B1*, END
DT B2+1, HEADING+3
DUZ HEADING+2
>> I B2*
IO HEADING, HEAD
IOF END, HEADING, HEAD
>> LOC HEADING+1*, HEADING+3
>> PG B1*, HEADING+1*, HEADING+3
>> TITLE HEADING+1*, HEADING+3
>> TME HEADING+2*, HEADING+3
>> USER HEADING+2*, HEADING+3
>> Y HEADING+3*

Marked Items

Name Field # of Occurrence
$T(@$PIECE^2;4(8) B3
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All