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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AQAOT651

Package: Quality Assurance

Routine: AQAOT651


Information

AQAOT651 ; GENERATED FROM 'AQAO LONG DISPLAY' PRINT TEMPLATE (#1271) ; 05/13/96 ; (continued)

Source Information

Source file <AQAOT651.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 5 $$OUT^DIALOGU  CSTP^DIO2  Y^DIQ  ^DIWP  (,0,A,NX)^DIWW  
Quality Assurance 1 ^AQAOT652  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Quality Assurance 1 AQAOT65  

Entry Points

Name Comments DBIA/ICR reference
A2R ;
BEGIN ;
I1 ;
H1R ;
H1 ;
M
J1 ;
N
A2 ;
T
B2 ;
DT
I1R ;
J1R ;
B2R ;

External References

Name Field # of Occurrence
^AQAOT652 J1R+9
$$OUT^DIALOGU DT
CSTP^DIO2 T+1
Y^DIQ J1+4
^DIWP I1+1, B2+1
^DIWW I1R+2
0^DIWW I1R+1
A^DIWW B2R+1
NX^DIWW I1R+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: N+0
Function Call: WRITE
  • Prompt: $$OUT^DIALOGU(Y,"DD")
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" "
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: $J(Y#100\1,2)_","
  • Condition for execution: Y#100
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: DT+2
Function Call: WRITE
  • Prompt: ?50
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: "Rev Date: "
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: ?0
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: "Adv Outcome Risk: "
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: ?47
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: "Occ Outcome: "
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: ?9
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: "Finding: "
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: X
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: ?41
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: X
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: $E(Y,1,50)
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: ?52
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: "Action: "
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: X
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: $E(X,1,10)
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: ?66
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: $E(X,1,10)
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: ?1
  • Line Location: H1R+1
Function Call: WRITE
  • Prompt: "Review Comments: "
  • Line Location: H1R+1
Function Call: WRITE
  • Prompt: ?4
  • Line Location: J1+1
Function Call: WRITE
  • Prompt: "Review Level: "
  • Line Location: J1+1
Function Call: WRITE
  • Prompt: $E(Y,1,4)
  • Line Location: J1+2
Function Call: WRITE
  • Prompt: ?23
  • Line Location: J1+3
Function Call: WRITE
  • Prompt: "by "
  • Line Location: J1+3
Function Call: WRITE
  • Prompt: $E(Y,1,22)
  • Line Location: J1+4
Function Call: WRITE
  • Prompt: ?50
  • Line Location: J1+5
Function Call: WRITE
  • Prompt: "Rev Date: "
  • Line Location: J1+5
Function Call: WRITE
  • Prompt: ?0
  • Line Location: J1+7
Function Call: WRITE
  • Prompt: "Adv Outcome Risk: "
  • Line Location: J1+7
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: J1+8
Function Call: WRITE
  • Prompt: ?47
  • Line Location: J1+9
Function Call: WRITE
  • Prompt: "Occ Outcome: "
  • Line Location: J1+9
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: J1+10
Function Call: WRITE
  • Prompt: ?9
  • Line Location: J1+11
Function Call: WRITE
  • Prompt: "Finding: "
  • Line Location: J1+11
Function Call: WRITE
  • Prompt: X
  • Line Location: J1+12
Function Call: WRITE
  • Prompt: ?52
  • Line Location: J1+13
Function Call: WRITE
  • Prompt: "Action: "
  • Line Location: J1+13
Function Call: WRITE
  • Prompt: X
  • Line Location: J1+14
Function Call: WRITE
  • Prompt: $E(X,1,10)
  • Line Location: J1+15
Function Call: WRITE
  • Prompt: ?66
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: $E(X,1,10)
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: ?1
  • Line Location: A2R+1
Function Call: WRITE
  • Prompt: "Review Comments: "
  • Line Location: A2R+1
Function Call: WRITE
  • Prompt: ?5
  • Line Location: J1R+1
Function Call: WRITE
  • Prompt: "Date Case Closed: "
  • Line Location: J1R+1
Function Call: WRITE
  • Prompt: ?44
  • Line Location: J1R+3
Function Call: WRITE
  • Prompt: "Final Review Level: "
  • Line Location: J1R+3
Function Call: WRITE
  • Prompt: $E(Y,1,4)
  • Line Location: J1R+4
Function Call: WRITE
  • Prompt: ?0
  • Line Location: J1R+5
Function Call: WRITE
  • Prompt: "Final Risk Assessment: "
  • Line Location: J1R+5
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: J1R+6
Function Call: WRITE
  • Prompt: ?45
  • Line Location: J1R+7
Function Call: WRITE
  • Prompt: "Final Occ Outcome: "
  • Line Location: J1R+7
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: J1R+8
Routine Call
  • DIALOGU
  • Line Location:
    • DT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AQAO(6 - [#9002168.6] J1+14
^AQAO(7 - [#9002168.7] J1+2, J1R+4
^AQAO(8 - [#9002168.8] J1+12
^AQAO1(2 - [#9002169.2] BEGIN+11
^AQAO1(3 - [#9002169.3] BEGIN+5, BEGIN+7, J1+8, J1+10, J1R+6, J1R+8
^AQAOC - [#9002167] BEGIN+7, BEGIN+11, BEGIN+15, H1R+2, I1+1, I1R+3, J1+2, J1+10, J1+16, A2R+2
, B2+1, J1R+2, J1R+8
^DD(9002167.01 J1+4
^UTILITY($J T

Label References

Name Line Occurrences
@( M
A2 J1+16
A2R J1+17
B2 A2R+2
B2R A2R+3
BEGIN AQAOT651+1
DT BEGIN+3, J1+6, J1R+2
H1 BEGIN+15
H1R BEGIN+16
I1 H1R+2
I1R H1R+3
J1 I1R+3
J1R I1R+4
N BEGIN+2, BEGIN+4, BEGIN+6, BEGIN+8, BEGIN+10, BEGIN+12, H1+1, H1R+1, J1+1, J1+3
, J1+5, J1+7, J1+9, J1+11, J1+13, A2+1, A2R+1, J1R+1, J1R+3, J1R+5
, J1R+7
T BEGIN+15, H1R+2, J1+1, J1+16, A2R+2, J1R+1

Naked Globals

Name Field # of Occurrence
^( BEGIN+15, H1R+2, I1R+3, J1+16, A2R+2
^(0 BEGIN+5, BEGIN+7, BEGIN+11, J1+2, J1+8, J1+10, J1+12, J1+14, J1R+4, J1R+6
, J1R+8
^(1 T

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C J1+4*
>> D0 BEGIN+7, BEGIN+9*, BEGIN+11, BEGIN+13*, BEGIN+15, H1R+2, I1+1, I1R+3, J1+2, J1+10
, J1+12*, J1+14*, J1+16, A2R+2, B2+1, J1R+2, J1R+8
>> D1 BEGIN+15*, H1R+2*, I1+1, I1R+3*, J1+2, J1+10, J1+12*, J1+14*, J1+16, A2R+2
, B2+1
>> D2 J1+16*, A2R+2*, B2+1
>> DILCT T+1*, BEGIN+1*
>> DIOT(2 T
DIP BEGIN+9!, BEGIN+10!, BEGIN+13!, BEGIN+14!, H1+1!, I1R+1!, J1+12!, J1+14!, J1+15!, A2+1!
DIP(101 BEGIN+9, BEGIN+13, J1+12*, J1+14*
DIP(2 BEGIN+10, BEGIN+14, H1+1*, J1+15, A2+1*
DIP(3 BEGIN+10*, BEGIN+14, J1+15
DIP(4 BEGIN+10*, BEGIN+14, J1+15
DIP(5 BEGIN+14, J1+15
DIP(6 BEGIN+14*, J1+15*
>> DISTP T+1*, BEGIN+1*
>> DIWF T
>> DIWL I1+1*, B2+1*
>> DIWR I1+1*, B2+1*
>> DIXX M
>> DN T, BEGIN+1*, BEGIN+2, BEGIN+4, BEGIN+6, BEGIN+8, BEGIN+9, BEGIN+10, BEGIN+12, BEGIN+13
, BEGIN+14, BEGIN+15, H1+1, H1R+1, H1R+2, I1R+1, J1+1, J1+3, J1+5, J1+7
, J1+9, J1+11, J1+12, J1+13, J1+14, J1+15, J1+16, A2+1, A2R+1, A2R+2
, J1R+1, J1R+3, J1R+5, J1R+7
>> DSC( BEGIN+15, I1R+3, J1+16
DUZ("LANG" DT
>> DXS(15 BEGIN+9
>> DXS(16 BEGIN+10
>> DXS(17 BEGIN+13
>> DXS(18 BEGIN+14
>> DXS(19 H1+1
>> DXS(20 J1+12
>> DXS(21 J1+14
>> DXS(22 J1+15
>> DXS(23 A2+1
>> I(0 BEGIN+9, BEGIN+13, J1+12, J1+14
>> I(1 BEGIN+15*, H1R+2*, I1R+3*, J1+12, J1+14
>> I(2 J1+16*, A2R+2*
IOSL T
>> J(1 BEGIN+15*, H1R+2*, I1R+3*
>> J(2 J1+16*, A2R+2*
U DT+1, BEGIN+3, BEGIN+5, BEGIN+7, BEGIN+9, BEGIN+11, BEGIN+13, J1+2, J1+4, J1+6
, J1+8, J1+10, J1+12, J1+14, J1R+2, J1R+4, J1R+6, J1R+8
>> X BEGIN+3, BEGIN+5, BEGIN+7*, BEGIN+9*, BEGIN+10*, BEGIN+11*, BEGIN+13*, BEGIN+14*, H1+1*, I1+1*
, J1+2*, J1+4, J1+6, J1+8, J1+10*, J1+12*, J1+14*, J1+15*, A2+1*, B2+1*
, J1R+2*, J1R+4, J1R+6, J1R+8*
Y DT, DT+1, DT+2, BEGIN+3*, BEGIN+5*, BEGIN+7*, BEGIN+9!, BEGIN+10!, BEGIN+11*, BEGIN+13!
, BEGIN+14*!, H1+1!, I1R+1!, J1+2*, J1+4*, J1+6*, J1+8*, J1+10*, J1+12!, J1+14!
, J1+15*!, A2+1!, J1R+2*, J1R+4*, J1R+6*, J1R+8*
Y(0 BEGIN+5*, BEGIN+7*, J1+8*, J1+10*, J1R+6*, J1R+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All