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

Package: Quality Assurance

Routine: AQAOPR22


Information

AQAOPR22 ; IHS/ORDC/LJF - PRINT REVIEW WORKSHEET CONT. ;

Source Information

Source file <AQAOPR22.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
Quality Assurance 2 TIME^AQAOUTIL  PRTOPT^AQAOVAR  
VA Fileman 2 Y^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Quality Assurance 1 AQAOPR21  

Entry Points

Name Comments DBIA/ICR reference
COMMENT ; >>> print comments area
END ; >>> eoj
RISK ; >>> print all risk of outcomes in file
REVIEW ; >>> print review level data
HEADING ; >>> print worksheet heading & top section
NEWPG ; >>> SUBRTN for end of page control
INIT ; >>> initialize variables
ACTION ; >>> print actions available for this review level
FIND ; >>> print findings available for this review level

External References

Name Field # of Occurrence
^%ZIS HEADING+1
^%ZISC END+2
TIME^AQAOUTIL HEADING+3
PRTOPT^AQAOVAR END+1
Y^DIQ HEADING+12, HEADING+14, HEADING+16
^DIR NEWPG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"REVIEW WORKSHEET FOR QAI OCCURRENCE"
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: ?60,Y
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: !,"Case ID: ",AQAOCID
  • Line Location: HEADING+5
Function Call: WRITE
  • Prompt: ?40,"Patient: ",$E(AQAONAM,1,20)
  • Line Location: HEADING+5
Function Call: WRITE
  • Prompt: " #",$P(^AUPNPAT(X,41,DUZ(2),0),U,2)
  • Line Location: HEADING+6
Function Call: WRITE
  • Prompt: !,"Occurrence Date: "
  • Line Location: HEADING+7
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADING+7
Function Call: WRITE
  • Prompt: ?40,"Visit Date: "
  • Line Location: HEADING+8
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADING+10
Function Call: WRITE
  • Prompt: !,"Service/Ward or Clinic: ",$E(Y,1,25),"/"
  • Line Location: HEADING+15
Function Call: WRITE
  • Prompt: $E(Y,1,25)
  • Line Location: HEADING+16
Function Call: WRITE
  • Prompt: !,"Indicator: "
  • Line Location: HEADING+17
Function Call: WRITE
  • Prompt: $P(^AQAO(2,Y,0),U),?25,$P(^(0),U,2)
  • Line Location: HEADING+18
Function Call: WRITE
  • Prompt: !,AQAOLINE,!
  • Line Location: HEADING+19
Function Call: WRITE
  • Prompt: !?(80-$L(X))/2,X,!
  • Line Location: REVIEW+1
Function Call: WRITE
  • Prompt: !,"REVIEWER/TEAM NAME: "
  • Line Location: REVIEW+2
Function Call: WRITE
  • Prompt: AQAOLIN2,?47,"REVIEW DATE: ",AQAOLIN2
  • Line Location: REVIEW+2
Function Call: WRITE
  • Prompt: !!,"PERFORMANCE LEVELS BY PROVIDER (Only asked when closing occurrence)",!
  • Line Location: RISK+12
Function Call: WRITE
  • Prompt: !!,"FINDING:",!
  • Line Location: FIND+1
Function Call: WRITE
  • Prompt: !!,"ACTION:",!
  • Line Location: ACTION+1
Function Call: WRITE
  • Prompt: !,"COMMENTS: "
  • Line Location: COMMENT+2
Function Call: WRITE
  • Prompt: @IOF,!,"Case ID: ",AQAOCID
  • Line Location: NEWPG+3
Function Call: WRITE
  • Prompt: ?40,"Patient: ",$E(AQAONAM,1,20)
  • Line Location: NEWPG+3
Function Call: WRITE
  • Prompt: " #",$P(^AUPNPAT(X,41,DUZ(2),0),U,2)
  • Line Location: NEWPG+4
Function Call: WRITE
  • Prompt: !,AQAOLINE,!!
  • Line Location: NEWPG+5
Routine Call
  • DIR
  • Line Location:
    • NEWPG+1
Routine Call
  • %ZIS
  • Line Location:
    • HEADING+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AQAO(2 - [#9002168.2] HEADING+18
^AQAO(6 - [#9002168.6] ACTION+2, ACTION+3
^AQAO(8 - [#9002168.8] FIND+2, FIND+3
^AQAO1(3 - [#9002169.3] RISK+4, RISK+5, RISK+13, RISK+14
^AQAOC - [#9002167] HEADING+3
^AUPNPAT - [#9000001] HEADING+6, NEWPG+4
^AUPNVSIT - [#9000010] HEADING+10, HEADING+12
^DD("DD" HEADING+3, HEADING+7, HEADING+10
^DD(9000010 HEADING+12
^DD(9002167 HEADING+14, HEADING+16
^DPT - [#2] HEADING+4

Label References

Name Line Occurrences
COMMENT RISK+1
END RISK+9, RISK+18, RISK+22, FIND+7, ACTION+7, COMMENT+1
NEWPG RISK+8, RISK+17, RISK+20, FIND+6, ACTION+6, COMMENT+1

Naked Globals

Name Field # of Occurrence
^(0 HEADING+18, RISK+5, RISK+14, FIND+3, ACTION+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AQAOCID HEADING+5, NEWPG+3
>> AQAODEV HEADING+1
>> AQAOI RISK+2*, RISK+3, RISK+6, RISK+7
>> AQAOIFN HEADING+3
>> AQAOLIN2 INIT+2*, REVIEW+2
>> AQAOLINE INIT+1*, HEADING+19, NEWPG+5
>> AQAONAM HEADING+4*, HEADING+5, NEWPG+3
>> AQAORLEV REVIEW+1, RISK+1, FIND+4, ACTION+4
>> AQAOSLV END+1
>> AQAOSTOP INIT+3*, RISK+2, RISK+4, RISK+9, RISK+13, RISK+18, RISK+22, FIND+2, FIND+7, ACTION+2
, ACTION+7, COMMENT+1, NEWPG+1*, NEWPG+2
>> AQAOSTR HEADING+3*, HEADING+4, HEADING+6, HEADING+7, HEADING+9, HEADING+14, HEADING+16, HEADING+18, NEWPG+4
>> AQAOV HEADING+9*, HEADING+11, HEADING+12
>> AQAOX RISK+4*, RISK+5, RISK+13*, RISK+14, FIND+2*, FIND+3, ACTION+2*, ACTION+3
>> AQAOX1 RISK+5*, RISK+6, RISK+7, RISK+14*, RISK+15, RISK+16, FIND+3*, FIND+4, FIND+5, ACTION+3*
, ACTION+4, ACTION+5
>> C HEADING+12*, HEADING+14*, HEADING+16*
DIR NEWPG+1!
DIR(0 NEWPG+1*
DT HEADING+3
DUZ(2 HEADING+6, NEWPG+4
>> I RISK+19*
IO HEADING+1
IOF NEWPG+3
>> IOP HEADING+1*
IOSL RISK+8, RISK+17, RISK+20, FIND+6, ACTION+6, COMMENT+1
IOST NEWPG+1
U HEADING+4, HEADING+6, HEADING+7, HEADING+9, HEADING+10, HEADING+12, HEADING+14, HEADING+16, HEADING+18, REVIEW+1
, RISK+2, RISK+4, RISK+6, RISK+7, RISK+9, RISK+13, RISK+15, RISK+16, RISK+18, RISK+22
, FIND+2, FIND+3, FIND+4, FIND+5, FIND+7, ACTION+2, ACTION+3, ACTION+4, ACTION+5, ACTION+7
, COMMENT+1, NEWPG+2, NEWPG+4
>> X HEADING+6*, REVIEW+1*, NEWPG+1, NEWPG+4*
>> Y HEADING+3*, HEADING+7*, HEADING+9*, HEADING+10*, HEADING+12*, HEADING+13, HEADING+14*, HEADING+15, HEADING+16*, HEADING+18*
>> ZTQUEUED END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All