Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMQQAVB

Package: PCC Medical Query

Routine: AMQQAVB


Information

AMQQAVB ; IHS/CMI/THL - GETS BLOOD QUANTUM ;

Source Information

Source file <AMQQAVB.m>

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
PCC Medical Query 2 AMQQATL  AMQQAV  

Entry Points

Name Comments DBIA/ICR reference
COMPB
CK
COMPB2
HELPB
C21
TRANS ; ENTRY POINT FROM AMQQATL
CKEXIT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Blood Quantum: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: COMPB+1
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: COMPB+7
Function Call: WRITE
  • Prompt: $E(Z,$L(X)+1,99)
  • Line Location: CK+1
Function Call: WRITE
  • Prompt: !!,"Enter one of the following: 'FULL', 'NONE', 'UNKNOWN' or some fraction",!,"such as '1/2' or '5/8'.",!!
  • Line Location: HELPB+0
Function Call: READ
  • Prompt: "Blood Quantum (lower limit): "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: COMPB2+0
Function Call: WRITE
  • Prompt: X
  • Line Location: COMPB2+2
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: COMPB2+4
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: COMPB2+6
Function Call: READ
  • Prompt: "Blood Quantum (upper limit): "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: C21+0
Function Call: WRITE
  • Prompt: X
  • Line Location: C21+2
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: C21+4
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: C21+6
Function Call: WRITE
  • Prompt: " WHOOPS...TRY AGAIN",*7,*7,!
  • Line Location: C21+15

Label References

Name Line Occurrences
C21 COMPB2+8, C21+3, C21+4
CK COMPB+5, COMPB2+5, C21+5
CKEXIT CK+1
COMPB COMPB+4, COMPB+8
COMPB2 COMPB, COMPB2+3, COMPB2+4, COMPB2+6, C21+15
HELPB COMPB+4, COMPB2+3, C21+3
TRANS C21+10, C21+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CK+1*
>> AMQQCOMP COMPB+6*, C21+8*, C21+15*
>> AMQQNOCO COMPB
>> AMQQQUIT COMPB+2*, COMPB2+1*, C21+1*
>> AMQQSYMB CKEXIT, CKEXIT+1, CKEXIT+2
DTIME COMPB+1, COMPB2, C21
U COMPB+1, COMPB+2, CK+1, COMPB2, COMPB2+1, C21, C21+1
>> X COMPB+1*, COMPB+2, COMPB+3, COMPB+4, COMPB+6, CK, CK+1*, CKEXIT, CKEXIT+1, CKEXIT+2
, TRANS+1*, TRANS+2*, COMPB2*, COMPB2+1, COMPB2+2*, COMPB2+3, COMPB2+4, COMPB2+7, C21*, C21+1
, C21+2*, C21+3, C21+4, C21+7, C21+9*, C21+11, C21+12*, C21+14
>> X(1 COMPB2+7*, C21+8, C21+9, C21+11*, C21+15
>> X(2 C21+7*, C21+8, C21+12, C21+14*, C21+15
>> Y COMPB+6, CK*, CK+1*, CK+2*, CKEXIT*, CKEXIT+1*, CKEXIT+2*, COMPB2+6, C21+6
>> Z CK+1*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  All