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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOS97

Package: Pharmacy Point of Sale

Routine: ABSPOS97


Information

ABSPOS97 ; IHS/FCS/DRS - MSM Win NT 4.40 busted! ;

Source Information

Source file <ABSPOS97.m>

Entry Points

Name Comments DBIA/ICR reference
TRAP()
SUBROU(ARG)
NEWTRAP()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"TESTING $$ AND ERRORS",!
  • Line Location: ABSPOS97+4
Function Call: WRITE
  • Prompt: "Testing on ",$ZV,!
  • Line Location: ABSPOS97+5
Function Call: WRITE
  • Prompt: "Now we call $$SUBROU",!
  • Line Location: ABSPOS97+7
Function Call: WRITE
  • Prompt: "Back from call to $$SUBROU with $D(X)=",$D(X)
  • Line Location: ABSPOS97+9
Function Call: WRITE
  • Prompt: ", X=",X,!
  • Line Location: ABSPOS97+10
Function Call: WRITE
  • Prompt: !,"Now in SUBROU with ARG=",ARG,!
  • Line Location: SUBROU+1
Function Call: WRITE
  • Prompt: "$Q=",$Q,!
  • Line Location: SUBROU+4
Function Call: WRITE
  • Prompt: "And $ZT=",$ZT,!
  • Line Location: SUBROU+8
Function Call: WRITE
  • Prompt: "^%ZOSF(""TRAP"")=",^%ZOSF("TRAP"),!
  • Line Location: SUBROU+9
Function Call: WRITE
  • Prompt: "And now we make an error happen:",!
  • Line Location: SUBROU+10
Function Call: WRITE
  • Prompt: "SHOULD NOT REACH THIS LINE!!!!",!
  • Line Location: SUBROU+12
Function Call: WRITE
  • Prompt: "At the error trap",!
  • Line Location: TRAP+0
Function Call: WRITE
  • Prompt: "$Q=",$Q,!
  • Line Location: TRAP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TRAP" SUBROU+6, SUBROU+9

Label References

Name Line Occurrences
$$SUBROU ABSPOS97+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARG SUBROU~, SUBROU+1
X ABSPOS97+6!, ABSPOS97+8*, ABSPOS97+9, ABSPOS97+10, SUBROU+5~*, NEWTRAP+1~*, NEWTRAP+3, NEWTRAP+4*, NEWTRAP+5*, NEWTRAP+6
Y NEWTRAP+2~*, NEWTRAP+3, NEWTRAP+4

Marked Items

Name Field # of Occurrence
$T( SUBROU+5, SUBROU+11
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All