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: AQAOCHK

Package: Quality Assurance

Routine: AQAOCHK


Information

AQAOCHK ; IHS/ORDC/LJF - CHECK OCC NEEDING REVIEW ;

Source Information

Source file <AQAOCHK.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Quality Assurance 3 ($$SETREFRL,QIREF,REFSET,SET)^AQAOCHK0  ^AQAOCHK1  END^AQAOCHK2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Quality Assurance 2 AQAOCHK1  AQAOCHK3  

Entry Points

Name Comments DBIA/ICR reference
REVSET(X,Y,D,R) ; -- SUBRTN to set review array
; X=referred to, Y=review number, D=review date, R=reviewed by
OCC ;EP; -- loop thru open occurrences then check if on indicator list
NEXT ; -- go to print rtn
REVIEWS ; -- SUBRTN to find occ referred to user or team
USER ; -- check if user has referral after last review performed by user
TEAM ; -- check if team has referral after last review performed by team
ACTION ; -- SUBRTN to find any pending action plans user needs to review
ENTRY ;ENTRY POINT to build array counting occ needing review
LASTREV() ; -- SUBRTN to find last review date
OPEN ; -- SUBRTN to find open cases

External References

Name Field # of Occurrence
$$SETREFRL^AQAOCHK0 USER+6, TEAM+6
QIREF^AQAOCHK0 REVIEWS+31
REFSET^AQAOCHK0 USER+7, TEAM+7
SET^AQAOCHK0 OCC+6, OPEN+5
^AQAOCHK1 NEXT+3
END^AQAOCHK2 NEXT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Checking for OCCURRENCES & ACTION PLANS you need to review"
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: ". . . . ."
  • Line Location: ENTRY+3
Function Call: WRITE
  • Prompt: !!,"*** NONE FOUND ***"
  • Line Location: NEXT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AQAO(2 - [#9002168.2] ENTRY+17
^AQAO(5 - [#9002168.5] ACTION+2, ACTION+3, ACTION+4
^AQAO(6 - [#9002168.6] REVIEWS+3, REVIEWS+21
^AQAO(9 - [#9002168.9] ENTRY+11, ENTRY+12, ENTRY+13
^AQAOC - [#9002167] OCC+3, OCC+4, OCC+5, REVIEWS+3, REVIEWS+4, REVIEWS+5, REVIEWS+10, REVIEWS+11, REVIEWS+16, REVIEWS+17
, REVIEWS+26, REVIEWS+27
^AQAOC("AD" OCC+2
^TMP("AQAOCHK" ENTRY+6!, ACTION+9*

Label References

Name Line Occurrences
$$LASTREV OPEN+5
ACTION OCC+8
OPEN OCC+7
REVIEWS OCC+7
REVSET REVIEWS+6, REVIEWS+12, REVIEWS+22, REVIEWS+28
TEAM REVIEWS+35
USER REVIEWS+34

Naked Globals

Name Field # of Occurrence
^(0 OCC+3, OCC+4, ACTION+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A REVIEWS+3*, REVIEWS+18*, REVIEWS+21
AQAOA REVIEWS+1!, REVIEWS+9*, REVIEWS+10*, REVIEWS+11, REVIEWS+12
>> AQAOAC OCC+5*, OCC+6
AQAOB REVIEWS+1!, REVIEWS+25*, REVIEWS+26*, REVIEWS+27
>> AQAODT OCC+4*, REVIEWS+5*, REVIEWS+6, REVIEWS+12, REVIEWS+19*, REVIEWS+21, REVIEWS+22, REVIEWS+28
>> AQAODUZ ENTRY+5*, ENTRY+11, ENTRY+12, ENTRY+13, USER+2, USER+3, REVSET+4, REVSET+6
>> AQAOIFN OCC+1*, OCC+2*, OCC+3, OCC+4, OCC+5, REVIEWS+3, REVIEWS+4, REVIEWS+5, REVIEWS+10, REVIEWS+11
, REVIEWS+16, REVIEWS+17, REVIEWS+26, REVIEWS+27
>> AQAOIND ENTRY+16*, ENTRY+17*, ENTRY+18, OCC+4*, ACTION+3*, ACTION+5, ACTION+9
>> AQAOLST USER+5*, TEAM+5*, OPEN+5*
>> AQAOPLN ACTION+1*, ACTION+2*, ACTION+3, ACTION+4, ACTION+9
AQAOR1 REVIEWS+1!, REVIEWS+33, OPEN+4
AQAOR1( USER+2, USER+4, USER+5, TEAM+3, TEAM+4, TEAM+5, REVSET+2*, REVSET+3*, REVSET+4*, REVSET+5*
, OPEN+2, OPEN+3!
AQAOR2 REVIEWS+1!
AQAOR2( REVIEWS+21*, USER+4, TEAM+4, REVSET+2*, REVSET+3*, REVSET+6*, REVSET+7*, OPEN+3, LASTREV+2, LASTREV+3
AQAOREF USER+1~, USER+6*, TEAM+1~, TEAM+6*
>> AQAOREV REVIEWS+15*, REVIEWS+16*, REVIEWS+17, REVIEWS+21, REVIEWS+22, REVIEWS+26, REVIEWS+27, REVIEWS+28
>> AQAOSTR ACTION+3*, ACTION+6, ACTION+7
>> AQAOUA("USER" ENTRY+7
>> AQAOX REVIEWS+4*, REVIEWS+6, REVIEWS+11*, REVIEWS+12, REVIEWS+19*, REVIEWS+21, REVIEWS+22, REVIEWS+27*, REVIEWS+28
AQAOXYZ ENTRY+6!, ENTRY+7*, REVIEWS+31, REVSET+3, ACTION+5
AQAOXYZ(1 ENTRY+14*, TEAM+2, REVSET+5, REVSET+7
AQAOXYZ(2 ENTRY+18*, ACTION+5
AQAOXYZ(3 NEXT+2, ACTION+8*
>> AQAOY REVIEWS+17*, REVIEWS+21, REVIEWS+22, REVIEWS+28
D REVSET~, REVSET+2, REVSET+3, REVSET+4, REVSET+5, REVSET+6, REVSET+7, LASTREV+1~*, LASTREV+3*
DT ACTION+6
DUZ ENTRY+5
DUZ(2 OCC+3, ACTION+4
>> I ACTION+1*, ACTION+2, ACTION+6, ACTION+8, ACTION+9
R REVIEWS+5*, REVIEWS+6, REVIEWS+12, REVSET~, REVSET+2, REVSET+3, REVSET+6, REVSET+7
U ENTRY+7, ENTRY+12, ENTRY+13, OCC+3, OCC+4, OCC+5, REVIEWS+3, REVIEWS+4, REVIEWS+5, REVIEWS+11
, REVIEWS+17, REVIEWS+18, REVIEWS+19, REVIEWS+21, REVIEWS+27, USER+4, USER+5, TEAM+4, TEAM+5, REVSET+2
, REVSET+3, REVSET+4, REVSET+5, REVSET+6, REVSET+7, OPEN+3, LASTREV+3, ACTION+3, ACTION+4, ACTION+6
, ACTION+7
X ENTRY+11*, ENTRY+12, ENTRY+13, OCC+6*, REVIEWS+17*, REVIEWS+18, REVIEWS+19, USER+1~, USER+2*, USER+4
, USER+5*, USER+6, TEAM+1~, TEAM+3*, TEAM+4, TEAM+5*, TEAM+6, REVSET~, REVSET+2, REVSET+3
, REVSET+4, REVSET+5, OPEN+1~, OPEN+2*, OPEN+3, OPEN+5*, LASTREV+1~*, LASTREV+2*, LASTREV+3
Y ENTRY+13*, ENTRY+14, ENTRY+17, USER+1~, USER+3*, USER+4, USER+5*, USER+6, TEAM+1~, TEAM+3*
, TEAM+4, TEAM+5*, TEAM+6, REVSET~, REVSET+2, REVSET+3, REVSET+4, REVSET+5, REVSET+6, REVSET+7
, OPEN+1~, LASTREV+1~*, LASTREV+3*, LASTREV+4
Z TEAM+1~, TEAM+2*, TEAM+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All