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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSC3

Package: Pharmacy Point of Sale

Routine: ABSPOSC3


Information

ABSPOSC3 ; IHS/FCS/DRS - development - certification testing ;

Source Information

Source file <ABSPOSC3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Pharmacy Point of Sale 4 ZWRITE^ABSPOS  PRINTLOG^ABSPOSL  TASK^ABSPOSQ2  IMPOSS^ABSPOSUE  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Point of Sale 2 ABSPOSC2  ABSPOSC4  

Entry Points

Name Comments DBIA/ICR reference
LASTCOMM ; print the last comms log - look backwards for the last .1 suffix
RUNTEST(DIALOUT,FROM,THRU)
RESTOR02 ; by sending ASCII file A:\ABSPEC02.GSA
CLR0203A(FILE)
CLR0203(X) ; erase all entries in 9002313.02 and .03 claims & responses

External References

Name Field # of Occurrence
ZWRITE^ABSPOS CLR0203A+12
PRINTLOG^ABSPOSL LASTCOMM+4
TASK^ABSPOSQ2 RUNTEST+8
IMPOSS^ABSPOSUE CLR0203+2, CLR0203A+1, CLR0203A+7
^DIE CLR0203A+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Comms log ",X,!
  • Line Location: LASTCOMM+3
Function Call: WRITE
  • Prompt: "SEND file A:\ABSPEC02.GSA in ASCII mode, you have 20 seconds:",!
  • Line Location: RESTOR02+3
Function Call: READ
  • Prompt: ^TMP($J
  • Timeout: 20
  • Variable: I)
  • Line Location: RESTOR02+4
Function Call: WRITE
  • Prompt: !,"Now setting the data values...",!
  • Line Location: RESTOR02+7
Function Call: WRITE
  • Prompt: "We processed up through line number ",I-1,!
  • Line Location: RESTOR02+12
Function Call: WRITE
  • Prompt: "Erasing all entries in file ",FILE,"..."
  • Line Location: CLR0203A+3
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $X>70
  • Line Location: CLR0203A+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: CLR0203A+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CLR0203A+11
Routine Call
  • DIE
  • Line Location:
    • CLR0203A+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP( CLR0203A+4
^ABSPC - [#9002313.02] RUNTEST+4, RUNTEST+7
^ABSPECP("LOG" LASTCOMM+2
^ABSPECX("POS" RUNTEST+2!, RUNTEST+5*, RUNTEST+7*
^TMP($J RESTOR02+2!, RESTOR02+9

Label References

Name Line Occurrences
CLR0203 RESTOR02+5
CLR0203A CLR0203+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA CLR0203+3~, CLR0203A+2~, CLR0203A+8*
DIALOUT RUNTEST~, RUNTEST+2, RUNTEST+5, RUNTEST+7
DIE CLR0203+3~, CLR0203A+2~, CLR0203A+5*, CLR0203A+6, CLR0203A+7
DONE RESTOR02+2~, RESTOR02+8, RESTOR02+10*
DR CLR0203+3~, CLR0203A+2~, CLR0203A+8*
FILE CLR0203+3~, CLR0203+4*, CLR0203A~, CLR0203A+3, CLR0203A+4, CLR0203A+5
FROM RUNTEST~, RUNTEST+1, RUNTEST+3
I RUNTEST+3~*, RUNTEST+4, RUNTEST+5, RUNTEST+7, RESTOR02+1~, RESTOR02+4*, RESTOR02+8*, RESTOR02+9, RESTOR02+12
IEN CLR0203+3~, CLR0203A+2~, CLR0203A+4*, CLR0203A+8
J RUNTEST+4~*, RUNTEST+5, RUNTEST+6
K RUNTEST+6~*, RUNTEST+7
THRU RUNTEST~, RUNTEST+1*, RUNTEST+3
U RUNTEST+4
X LASTCOMM+1*, LASTCOMM+2*, LASTCOMM+3, LASTCOMM+4, RESTOR02+1~, RESTOR02+9*, RESTOR02+10, RESTOR02+11, CLR0203~, CLR0203+1
, CLR0203+2, CLR0203A, CLR0203A+1, CLR0203A+2~
Y RESTOR02+1~, RESTOR02+9*, RESTOR02+10, RESTOR02+11

Marked Items

Name Field # of Occurrence
$T( CLR0203+2, CLR0203A+1, CLR0203A+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All