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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ASMWKSHT

Package: Site Management

Routine: ASMWKSHT


Information

ASMWKSHT ;PRINT A WORK-SHEET FOR FACILITY MODIFICATIONS [ 09/20/85 3:34 PM ]

Source Information

Source file <ASMWKSHT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Utilities 2 ^AUCLS  ^AUDICLK  
VA Fileman 2 ^%DT  ^DIC  
Uncategorized 1 ^%AUQUE  

Entry Points

Name Comments DBIA/ICR reference
UCI
PRQ1
END
QUE1
YN
QUE
A1
START
L2
L3
L1
QUEND
PRQ
LINE
HEADING
SBRS

External References

Name Field # of Occurrence
^%AUQUE QUE
^%DT UCI+1
^AUCLS A1
^AUDICLK L3
^DIC A1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "FACILITY MODIFICATION WORKSHEET.......",!!!
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: ?5,$P(^AUTTLOC(SITE,0),U,1),?50
  • Line Location: L3+0
Function Call: WRITE
  • Prompt: $S(LKPRINT="":AU("ULINE"),1:LKPRINT),!
  • Line Location: L3+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Timeout: USTO
  • Variable: Y
  • Line Location: SBRS+0
Function Call: READ
  • Timeout: 5
  • Variable: Y
  • Line Location: SBRS+0
Function Call: WRITE
  • Prompt: !!,"Enter a ""Y"" for YES or an ""N"" for NO."
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,AU("PRL"),!
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: #,!!,TME,?80-$L(TITLE)\2,TITLE,?72,"page ",PG,!,?80-$L(^DD("SITE"))\2,^DD("SITE"),!
  • Line Location: HEADING+1
Function Call: WRITE
  • Prompt: ?80-$L(MG("UCI"))\2,MG("UCI")
  • Line Location: UCI+0
Function Call: WRITE
  • Prompt: !!,?80-$L("as of "_Y)\2,"as of ",Y,!!
  • Line Location: UCI+2
Function Call: WRITE
  • Prompt: !!,?5,"MODIFICATION: ",AU("MOD"),!!,?10,"FACILITY",?50,"DATE COMPLETED"
  • Line Location: UCI+3
Function Call: WRITE
  • Prompt: !
  • Line Location: UCI+4
Routine Call
  • DIC
  • Line Location:
    • A1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" UCI
^%ZTSK - [#14.4] PRQ, PRQ1!, QUE1*
^ASMEQP( L1, L2
^ASMEQP("B" L1
^AUTTLOC - [#9999999.06] L3
^DD("DD" UCI+2
^DD("SITE" HEADING+1

Label References

Name Line Occurrences
END L1
HEADING START, L3
L1 L1, L3
LINE UCI+3
QUE A1
SBRS SBRS
START PRQ1, QUE

Naked Globals

Name Field # of Occurrence
^("MOD" QUE1*
^("MODPTR" QUE1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT UCI+1*
AU L2*, END!
AU("LINE" START*, LINE
AU("MOD" A1*, UCI+3, PRQ*, QUE1
AU("MODFOUND" L2!*, L3
AU("MODPTR" A1*, L2, PRQ*, QUE1
AU("OLD" LINE*
AU("PRINT" QUE
AU("PRL" LINE*
AU("QUE" QUE
AU("ULINE" START*, L3
>> DA L2*
>> DAA L1*, L2*, L3
DFOUT SBRS!, SBRS+1*
>> DIC A1*, L2*
>> DIC(0 A1*
DLOUT SBRS!, SBRS+1*
DQOUT SBRS!, SBRS+1*
>> DR L2*, L3*
>> DRENT L3*
DT UCI+1*, UCI+2
DTOUT SBRS!*
DUOUT SBRS!, SBRS+1*
>> HR HEADING*
IO START, END
IOF END
>> IOP QUE*
>> LKDATA L2*
>> LKPRINT L3
>> MG("UCI" UCI*
>> MIN HEADING*
>> PG START*, HEADING*, HEADING+1
>> SITE START*, L1*, L3
>> SITEDFN L1*, L2
>> SITENUM PRQ1*
>> TITLE HEADING*, HEADING+1
>> TM HEADING*
>> TME HEADING*, HEADING+1
U L3, PRQ1*
>> USER HEADING*
>> USTO SBRS
>> X UCI+1*
>> Y A1, SBRS*, SBRS+1*, UCI, UCI+1, UCI+2*
>> Y(0 A1
ZTSK PRQ, PRQ1, QUE1, QUEND!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All