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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AQAOLKP

Package: Quality Assurance

Routine: AQAOLKP


Information

AQAOLKP ; IHS/ORDC/LJF - LOOKUP UTILITIES ;

Source Information

Source file <AQAOLKP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 ^%DT  ^DIC  FILE^DICN  EN1^DIP  ^DIR  
Quality Assurance 3 ^AQAOAUD  $$OCCID^AQAOCID  ^AQAOENTQ  

Caller Graph

Caller Graph Total: 24

Package Total Caller Graph
Quality Assurance 24 AQAOAPA  AQAODEL  AQAODICC  AQAOENTR  AQAOENTS  AQAOPA6  AQAOPC1  AQAOPC11  
AQAOPC2  AQAOPC21  AQAOPC3  AQAOPC4  AQAOPC41  AQAOPC51  AQAOPC7  AQAOPC71  
AQAOPC8  AQAOPC82  AQAOPR6  AQAOPR7  AQAOPR9  AQAOREV  AQAOUSA  AQAOVAL  

Entry Points

Name Comments DBIA/ICR reference
AUDIT
BDATE() ;ENTRY POINT EXTR VAR ask user to choose beginning date for report
RTYPE() ;EP; EXTRN VAR - screen on selecting review types
; to select BTR must have Blood Product file
; to select PTF must have Drug file
IND() ;ENTRY POINT EXTR VAR to ask user for indicator
CREATE ;ENTRY POINT else, create case identifier than add entry
EDATE() ;ENTRY POINT EXTR VAR ask user to choose ending date for report
OCCDT(V) ;ENTRY POINT EXTR FUNC to ask user for occ date;PATCH 2
ADD ;ENTRY POINT for adding new occurrence
; >>> ask patient name & date & indicator then enter
ED1
BD1
EXCEP(X) ;EP; EXTRN FUNC to test whether ind has exception recorded
ASK ;ENTRY POINT for selecting occurrence
; >>> ask for occ id or patient name or indicator
RTEND
CHECK ; >>> check if occurrence already entered; if so go to edit

External References

Name Field # of Occurrence
^%DT ADD+4, OCCDT+3
^AQAOAUD CHECK+2, AUDIT+1
$$OCCID^AQAOCID CREATE+2
^AQAOENTQ CHECK+1
^DIC ASK+5, ADD+2, ADD+10, IND+4
FILE^DICN CREATE+7
EN1^DIP ASK+11
^DIR ASK+14, BD1+2, ED1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+10
Function Call: WRITE
  • Prompt: !!,"Please wait while I create the occurrence entry . . ."
  • Line Location: CREATE+1
Function Call: WRITE
  • Prompt: !!,"CANNOT ADD; AUDIT FILE LOCKED. TRY AGAIN.",!
  • Line Location: CREATE+5
Function Call: WRITE
  • Prompt: !,"CANNOT ADD NEW ENTRY; ANOTHER USER ADDING TO FILE. TRY AGAIN."
  • Line Location: CREATE+6
Function Call: WRITE
  • Prompt: !!,"Your CASE # is ",AQAOCID,!
  • Line Location: CREATE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: OCCDT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: IND+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: BD1+1
Function Call: WRITE
  • Prompt: *7," NO FUTURE DATES"
  • Line Location: BD1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ED1+1
Function Call: WRITE
  • Prompt: *7," NO FUTURE DATES"
  • Line Location: ED1+2
Function Call: WRITE
  • Prompt: *7," ENDING DATE MUST BE AFTER BEGINNING DATE"
  • Line Location: ED1+3
Routine Call
  • DIC
  • Line Location:
    • ASK+5
    • ADD+2
    • ADD+10
    • IND+4
Routine Call
  • DIR
  • Line Location:
    • ASK+14
    • BD1+2
    • ED1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AQAOC - [#9002167] Classic Fileman Calls
^AQAO(2 - [#9002168.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AQAGU(0 CREATE+5, CREATE+8
^AQAOC - [#9002167] EXCEP+1
^AQAOC(0 CREATE+6, CREATE+8
^DD(50.6 RTYPE+6
^LAB(66 - [#66] RTYPE+5
^PSDRUG(0 RTYPE+6

Label References

Name Line Occurrences
ADD ADD+5, ADD+10, CHECK+1
ASK CHECK+3
BD1 BD1+2
CREATE CHECK+3
ED1 ED1+2
RTEND RTYPE+4, RTYPE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ADD+4*, OCCDT+1~, OCCDT+2*
%DT("A" ADD+4*, OCCDT+2*
%DT("B" OCCDT+3*
>> AQAO CHECK+2
>> AQAOBD ED1+3
>> AQAOCHK("OK" ADD+10!, IND+4!
>> AQAOCID ASK+6*, CHECK+3, CREATE+2*, CREATE+7, CREATE+10
>> AQAODATE ASK+7*, ADD+5*, CREATE+4
AQAOIFN ASK+2!, ASK+6*, ASK+11, CHECK+2, CREATE+9*, AUDIT
>> AQAOIND ASK+7*, ADD+10*, CREATE+4
>> AQAOPAT ASK+7*, ADD+2*, CREATE+4
>> AQAOUDIT("ACTION" CHECK+2*, AUDIT*
>> AQAOUDIT("COMMENT" CHECK+2*, AUDIT+1*
>> AQAOUDIT("DA" CHECK+2*, AUDIT*
>> BY ASK+11*
DD CREATE+7!
DIC ASK+2!*, ASK+10*, ADD+2!*, ADD+7!*, CREATE+3*, IND+1~, IND+2*
DIC("A" ASK+3*, ADD+9*, IND+4*
DIC("DR" CREATE+4*, CREATE+7!
DIC("S" ASK+4*, ADD+8*, IND+3*
DIC(0 ASK+2*, ADD+2*, ADD+7*, CREATE+3*, IND+2*
DINUM CREATE+7!
DIR ASK+12!, BD1~, ED1~
DIR("A" ASK+13*, BD1+1*, ED1+1*
DIR(0 ASK+12*, BD1+1*, ED1+1*
DIRUT CHECK+1!
DO CREATE+7!
DT BD1+2, ED1+2
>> DTOUT ASK+5, IND+5, BD1+3, ED1+4
>> DUOUT ASK+5, IND+5
DUZ(2 CREATE+4
>> FLDS ASK+10*
>> FR ASK+11*
IO(0 ASK+11
>> IOP ASK+11*
>> L ASK+10*
>> TO ASK+11*
U ASK+7, IND+5, BD1+3, ED1+4, EXCEP+1
V OCCDT~, OCCDT+3
X ASK+5, CREATE+7*, IND+5, RTYPE+3~*, RTYPE+4*, RTYPE+5*, RTYPE+6*, RTEND, EXCEP~, EXCEP+1
Y ASK+5, ASK+6, ADD+2, ADD+5, ADD+10, CREATE+8, CREATE+9, OCCDT+1~, OCCDT+4, IND+1~
, IND+5*, IND+6, BD1~, BD1+2, BD1+3*, BD1+4, ED1~, ED1+2, ED1+3*, ED1+4*
, ED1+5, RTYPE+4, RTYPE+5
Y(0 ASK+6, ASK+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All