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

Package: Quality Assurance

Routine: AQAQPR32


Information

AQAQPR32 ;IHS/ANMC/LJF - DISCHARGES BY PROVIDER & DX; [ 07/09/1999 2:26 PM ]

Source Information

Source file <AQAQPR32.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Quality Assurance 3 AQAQPR3  AQAQPR31  AQAQPR33  

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^AQAQPR33 LOOP2+2
PROVCNT^AQAQPR33 LOOP2+1
SUBCNT^AQAQPR33 LOOP2+3, LOOP2+4
KILL^AQAQUTIL END+1
^DIR WAIT, NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> NO DATA FOUND!!"
  • Line Location: AQAQPR32+17
Function Call: WRITE
  • Prompt: !!,"***TOTAL DIAGNOSES: ",AQAQTCT,"***",!,AQAQLINE
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$E(AQAQVDT,4,5)_"/"_$E(AQAQVDT,6,7)_"/"_($E(AQAQVDT,1,3)+1700)_"-"
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: $E(AQAQDT,4,5)_"/"_$E(AQAQDT,6,7)_"/"_($E(AQAQDT,1,3)+1700)
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: ?23,$J(AQAQY,6)
  • Line Location: LINE+11
Function Call: WRITE
  • Prompt: ?37,AQAQX
  • Line Location: LINE+15
Function Call: WRITE
  • Prompt: ?42,$E($P(^AUTNPOV(AQAQZ,0),U),1,37)
  • Line Location: LINE+16
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",?23,"Patient",!,"Dates",?23,"Chart #",?32,"Srv",?37,"P/S"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: ?42,"Diagnosis Narrative",!,AQAQLIN2
  • Line Location: HEAD+9
Routine Call
  • DIR
  • Line Location:
    • WAIT
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] LINE+10
^AUPNVINP - [#9000010.02] LINE+12
^AUPNVPOV - [#9000010.07] LINE+14
^AUPNVSIT - [#9000010] LINE+1
^AUTNPOV - [#9999999.27] LINE+16
^DD("DD" HEAD+6
^DIC(3 - [#3] AQAQPR32+5
^DIC(4 - [#4] AQAQPR32+6
^DIC(45.7 - [#45.7] LINE+13
^UTILITY("AQAQPR3" AQAQPR32+17, LOOP1, LOOP2, LOOP3, LOOP4, END+1!

Label References

Name Line Occurrences
END LOOP1+1, LOOP1+2, LOOP4+2
HEAD AQAQPR32+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+18
TOTALS LOOP1
WAIT AQAQPR32+17

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AQAQBDT AQAQPR32+10
>> AQAQDT LOOP2+7*, LOOP3*, LOOP3+1, LOOP4, LINE+8
>> AQAQDUZ AQAQPR32+5*, HEAD+3
>> AQAQEDT AQAQPR32+11
>> AQAQGCT LOOP1+3*, LOOP2+2, LINE+17*
>> AQAQICD LOOP1+6*, LOOP2*, LOOP2+1, LOOP2+3, LOOP2+4, LOOP3, LOOP4
>> AQAQLIN2 AQAQPR32+14*, HEAD+9
>> AQAQLINE AQAQPR32+13*, TOTALS+2, HEAD+1, HEAD+7
>> AQAQPAGE AQAQPR32+5*, LOOP1+1, NEWPG+2, HEAD+1*, HEAD+5
>> AQAQPCT LOOP1+3*, LINE+17*
>> AQAQPRV AQAQPR32+15*, AQAQPR32+21*, LOOP1*, LOOP2, LOOP3, LOOP4, HEAD+6
>> AQAQRG AQAQPR32+10*, AQAQPR32+11*, HEAD+7
>> AQAQRNG LOOP2+3, LOOP2+4
>> AQAQSITE AQAQPR32+6*, HEAD+3
>> AQAQSTOP AQAQPR32+5*, LOOP1+1, LOOP1+2, LOOP4+2, NEWPG+1*, NEWPG+2*, NEWPG+3
>> AQAQSTR LOOP4+1*, LINE+12, LINE+14
>> AQAQTCT AQAQPR32+15*, TOTALS+2
>> AQAQTY HEAD+4*, HEAD+5
>> AQAQV LINE+1*, LINE+10
>> AQAQVDFN LOOP3+1*, LOOP4*, LOOP4+1, LINE+1
>> AQAQVDT LINE+1*, LINE+4
>> AQAQX LINE+12*, LINE+13, LINE+14*, LINE+15
>> AQAQY LINE+10*, LINE+11
>> AQAQZ LINE+14*, LINE+16
DIR WAIT!, NEWPG+2!
DIR("A" WAIT*
DIR(0 WAIT*, NEWPG+2*
DT HEAD+6
DUZ AQAQPR32+5
DUZ(2 AQAQPR32+6, LINE+10
IOF END+1, HEAD+1
IOSL TOTALS+1, LINE+18
IOST WAIT, NEWPG+1
U AQAQPR32+5, AQAQPR32+6, LOOP1+1, LOOP1+2, LOOP4+2, LINE+1, LINE+10, LINE+12, LINE+13, LINE+14
, LINE+16, 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