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

Package: Quality Assurance

Routine: AQAQPR22


Information

AQAQPR22 ;IHS/ANMC/LJF - PROCEDURES BY PROVIDER(PCC DATA); [ 07/09/1999 2:25 PM ]

Source Information

Source file <AQAQPR22.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Quality Assurance 2 (GETGRP,PROVCNT,SUBCNT)^AQAQPR23  KILL^AQAQUTIL  
Kernel 1 ^%ZISC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Quality Assurance 3 AQAQPR2  AQAQPR21  AQAQPR23  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;***> SUBRTN to print heading
END ;EP;>>> eoj <<<
TOTALS ;>>> print facility totals <<<
NEWPG ;EP;***> SUBRTN for end of page control
LOOP3
LOOP2
LOOP1
LOOP4
LINE ;***> SUBRTN to print line of visit data
WAIT

External References

Name Field # of Occurrence
^%ZISC END+1
GETGRP^AQAQPR23 LOOP2+2
PROVCNT^AQAQPR23 LOOP2+1
SUBCNT^AQAQPR23 LOOP2+3
KILL^AQAQUTIL END+1
^DIR WAIT, NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> NO DATA FOUND!!"
  • Line Location: AQAQPR22+17
Function Call: WRITE
  • Prompt: !!,"***TOTAL PROCEDURES: ",AQAQTCT,"***",!,AQAQLINE
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$E(AQAQDT,4,5)_"/"_$E(AQAQDT,6,7)_"/"_($E(AQAQDT,1,3)+1700)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?11,$E(AQAQX,4,5)_"/"_$E(AQAQX,6,7)_"/"_($E(AQAQX,1,3)+1700)
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: ?22,$P(AQAQX,U,7)
  • Line Location: LINE+10
Function Call: WRITE
  • Prompt: ?26,$J(AQAQY,6)
  • Line Location: LINE+12
Function Call: WRITE
  • Prompt: ?36,$E($P(^AUTNPOV(AQAQZ,0),U),1,43)
  • Line Location: LINE+13
Function Call: WRITE
  • Prompt: @IOF,!,AQAQLINE
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,AQAQDUZ,?80-$L(AQAQSITE)/2,AQAQSITE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?80-$L(AQAQTY)/2,AQAQTY,?70,"Page: ",AQAQPAGE
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,Y,?80-$L(AQAQPRV)/2,AQAQPRV
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !?30,AQAQRG,!,AQAQLINE
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,"Visit",?11,"Proc.",?20,"Visit",?26,"Patient"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"Date",?11,"Date",?20,"Type",?26,"Chart #"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?36,"Procedure Narrative",!,AQAQLIN2
  • Line Location: HEAD+10
Routine Call
  • DIR
  • Line Location:
    • WAIT
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] LINE+11
^AUPNVPRC - [#9000010.08] LINE+5
^AUPNVSIT - [#9000010] LINE+10
^AUTNPOV - [#9999999.27] LINE+13
^DD("DD" HEAD+6
^DIC(3 - [#3] AQAQPR22+5
^DIC(4 - [#4] AQAQPR22+6
^UTILITY("AQAQPR2" AQAQPR22+17, LOOP1, LOOP2, LOOP3, LOOP4, END+1!

Label References

Name Line Occurrences
END LOOP1+1, LOOP1+2, LOOP4+2
HEAD AQAQPR22+17, LOOP1+1, NEWPG+1, NEWPG+3
LINE LOOP4+1
LOOP1 LOOP2+1
LOOP2 LOOP3+1
LOOP3 LOOP4+1
LOOP4 LOOP4+2
NEWPG LOOP1+2, TOTALS+1, LINE+15
TOTALS LOOP1
WAIT AQAQPR22+17

Naked Globals

Name Field # of Occurrence
^( LOOP4+1
^(0 LINE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AQAQBDT AQAQPR22+10
>> AQAQDT LOOP2+6*, LOOP3*, LOOP3+1, LOOP4, LINE+3
>> AQAQDUZ AQAQPR22+5*, HEAD+3
>> AQAQEDT AQAQPR22+11
>> AQAQGCT LOOP1+3*, LOOP2+2, LINE+14*
>> AQAQICD LOOP1+6*, LOOP2*, LOOP2+1, LOOP2+3, LOOP3, LOOP4
>> AQAQLIN2 AQAQPR22+14*, HEAD+10
>> AQAQLINE AQAQPR22+13*, TOTALS+2, HEAD+1, HEAD+7
>> AQAQPAGE AQAQPR22+5*, LOOP1+1, NEWPG+2, HEAD+1*, HEAD+5
>> AQAQPCT LOOP1+3*, LINE+14*
>> AQAQPRV AQAQPR22+15*, AQAQPR22+21*, LOOP1*, LOOP2, LOOP3, LOOP4, HEAD+6
>> AQAQRG AQAQPR22+10*, AQAQPR22+11*, HEAD+7
>> AQAQRNG LOOP2+3
>> AQAQSITE AQAQPR22+6*, HEAD+3
>> AQAQSTOP AQAQPR22+5*, LOOP1+1, LOOP1+2, LOOP4+2, NEWPG+1*, NEWPG+2*, NEWPG+3
>> AQAQSTR LOOP4+1*, LINE+5
>> AQAQTCT AQAQPR22+15*, TOTALS+2
>> AQAQTY HEAD+4*, HEAD+5
>> AQAQVDFN LOOP3+1*, LOOP4*, LOOP4+1, LINE+10
>> AQAQX LINE+5*, LINE+8, LINE+10*, LINE+11
>> AQAQY LINE+11*, LINE+12
>> AQAQZ LINE+5*, LINE+13
DIR WAIT!, NEWPG+2!
DIR("A" WAIT*
DIR(0 WAIT*, NEWPG+2*
DT HEAD+6
DUZ AQAQPR22+5
DUZ(2 AQAQPR22+6, LINE+11
IOF END+1, HEAD+1
IOSL TOTALS+1, LINE+15
IOST WAIT, NEWPG+1
U AQAQPR22+5, AQAQPR22+6, LOOP1+1, LOOP1+2, LOOP4+2, LINE+5, LINE+10, LINE+11, LINE+13, NEWPG+3
>> X NEWPG+2
>> Y HEAD+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All