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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSA2

Package: Contract Health Management Information System

Routine: ACHSA2


Information

ACHSA2 ; IHS/ITSC/PMF - ENTER DOCUMENTS (3/8)-(BLANKET DESCRIPTION) ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSA2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Contract Health Management Information System 1 READ^ACHSFU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSA1  

Entry Points

Name Comments DBIA/ICR reference
Q1 ;
SB1 ;
END ;
A1 ;
Q2 ;
E9 ;
E8 ;
E7 ;
E6 ;
E1 ;
E3 ;
E2 ;

External References

Name Field # of Occurrence
READ^ACHSFU A1+5, E2+2, E3+2, E6+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?9,"Blanket Description"
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: !!,"Blanket Description: "
  • Line Location: A1+4
Function Call: WRITE
  • Prompt: *7,!!," The Description Is Required To Complete This Document"
  • Line Location: A1+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: E1+4
Function Call: WRITE
  • Prompt: !,"Line ",I,": ",A(I)
  • Line Location: E1+5
Function Call: WRITE
  • Prompt: !!,"Edit Line #: "
  • Line Location: E2+1
Function Call: WRITE
  • Prompt: !," Enter The Number Of The Line You Wish To Edit",!," Select 1 to ",L
  • Line Location: E2+4
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: E2+6
Function Call: WRITE
  • Prompt: !,X,!," Replace: "
  • Line Location: E3+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: E3+7
Function Call: WRITE
  • Prompt: " With: "
  • Line Location: E6+2
Function Call: WRITE
  • Prompt: !," Enter The New Characters or 'RETURN' If None"
  • Line Location: E6+5
Function Call: WRITE
  • Prompt: *7,!," Too Long... (150 Character Max.)"
  • Line Location: E8+2
Function Call: WRITE
  • Prompt: !!," Enter A Description For This Document.",!," It Will Be Printed In Place Of The",!," Patient Identification Data On The Form."
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !!," The Maximun Length Allowed Is 150 Characters.",!," Type The Description In Single Stream Of Characters",!," (ie. Don't Press The Return Key Until The End)."
  • Line Location: Q1+2
Function Call: WRITE
  • Prompt: !!," Enter The Characters You Wish To Delete.",!," Then You Will Be Asked To Enter The Characters To",!," Replace The Just Deleted Characters, If any.",!
  • Line Location: Q2+1

Label References

Name Line Occurrences
A1 A1+7, Q1+3
E1 A1+3, E3+3, E6+4, E7+3, E8+3
E2 E2+4, E2+6
E3 E3+7, E6+7, Q2+2
E6 E3+4, E6+5
E7 E3+5, E6+7
E8 E7+2
E9 E2+5
END A1+6, E2+3, E3+3, E6+4
Q1 A1+6
Q2 E3+3
SB1 E3+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A A1+1!, E1+1!, END+1!
A( E1+3*, E1+5, E2+7, E7+1*, E7+2, E8+1
ACHSBLT A1+2*, A1+3, A1+8*, E1+3, E7+1*, E7+2*, E8+1*, E9+1!
>> ACHSQUIT A1+6, E2+3, E3+3, E6+4
B END+1!, SB1+6*, SB1+8
C E1+2*, E1+3*, END+1!
>> DUOUT E3+3, E6+4
E END+1!, SB1+3*, SB1+4, SB1+5*, SB1+6, SB1+7*, SB1+8
F END+1!, SB1+1*, SB1+2, SB1+7
I E1+3*, E1+5*, E1+6, E7+2*, E8+1, END+1!
J E1+2*, E1+3*, END+1!
L E1+6*, E2+4, E2+6, E7+1*, E7+2*, END+1!
N E2+7*, E7+1, END+1!
P E3+4*, E3+7, E6+6, END+1!, SB1+1*, SB1+8*
R END+1!, SB1+3*, SB1+6
S END+1!, SB1+1*
W END+1!, SB1+7*
X E2+7*, E3+1, E6+6*, E6+7, E7+1, END+1!, SB1+3, SB1+7, SB1+8
>> Y A1+6, A1+7, A1+8, E1+3*, E2+4, E2+5, E2+6, E2+7, E3+3, E3+4
, E3+5, E6+5, E6+6, SB1+1, SB1+3, SB1+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All