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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AQAQPR3

Package: Quality Assurance

Routine: AQAQPR3


Information

AQAQPR3 ;IHS/ANMC/LJF - DISCHARGES BY PROVIDER AND DX; [ 09/28/92 1:09 PM ]

Source Information

Source file <AQAQPR3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  C^%DTC  ^DIR  
Quality Assurance 2 ^AQAQPR31  END^AQAQPR32  
Uncategorized 1 ^%ET  

Entry Points

Name Comments DBIA/ICR reference
ALL ;***> choose one or all classes or categories
DATE2
END
ERR ;EP;***> entry point to handle errors
DEV
ONE ;***> choose which class or category to print
PRV
QUE
DX ;***> primary dx only or primary & secondary
DATE

External References

Name Field # of Occurrence
^%DT DATE, DATE2
C^%DTC DATE2+3
^%ET ERR+5
^%ZIS DEV
HOME^%ZIS END
^%ZISC QUE+2, ERR+4
^%ZTLOAD QUE+2
^AQAQPR31 DEV
END^AQAQPR32 ERR+6
^DIR DX+4, PRV+4, ALL+2, ONE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?25,"INPATIENT DIAGNOSES BY PROVIDER",!!
  • Line Location: AQAQPR3+3
Function Call: WRITE
  • Prompt: !,"This report gives you a listing (with subcounts) of diagnoses "
  • Line Location: AQAQPR3+4
Function Call: WRITE
  • Prompt: !,"for inpatient visits. You can choose to see PRIMARY diagnoses"
  • Line Location: AQAQPR3+5
Function Call: WRITE
  • Prompt: !,"only or BOTH primary and secondary diagnoses. You will be asked"
  • Line Location: AQAQPR3+6
Function Call: WRITE
  • Prompt: !,"for a DATE RANGE. You can get the report for ALL PROVIDERS or"
  • Line Location: AQAQPR3+7
Function Call: WRITE
  • Prompt: !,"only ONE PROVIDER; for ONE CLASS such as all pediatricians; or"
  • Line Location: AQAQPR3+8
Function Call: WRITE
  • Prompt: !,"for one STAFF CATEGORY. The report is SUBTOTALED by provider and"
  • Line Location: AQAQPR3+9
Function Call: WRITE
  • Prompt: !,"within each provider by diagnostic category.",!!
  • Line Location: AQAQPR3+10
Function Call: WRITE
  • Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",!
  • Line Location: DATE2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: *7,!!?30,"Interrupt Acknowledged",!!
  • Line Location: ERR+4
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIR
  • Line Location:
    • DX+4
    • PRV+4
    • ALL+2
    • ONE+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("NBRK" ERR+1
^%ZOSF("OS" ERR+4

Label References

Name Line Occurrences
DATE DATE2+1
DATE2 DATE2+2, PRV+4
DEV ALL+2
END DATE+1, DX+4, PRV+4, ALL+3, ONE+4, DEV
ONE PRV+5
PRV DX+4, ONE+4
QUE DEV

Naked Globals

Name Field # of Occurrence
^("OS" ERR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*, DATE2*
>> %DT("A" DATE*, DATE2*
>> %ZIS DEV*
AQAQBDT DATE+1*, DATE2+2, END!
AQAQCDX DX+4*, END!
AQAQEDT DATE2+1*, DATE2+2, DATE2+3*, END!
AQAQI QUE+1*, END!
AQAQSRT ALL+2*, ONE+1!, ONE+5*, END!
AQAQTYP PRV+4*, PRV+5, ONE+2, ONE+3, END!
DIR DX+1!, PRV!, ALL+1!, ONE+1!, END!
DIR("A" DX+1*, DX+2*, DX+3*, PRV*, PRV+1*, PRV+2*, PRV+3*, ALL+1*
DIR("B" ALL+2*
DIR(0 DX+1*, PRV*, ALL+1*, ONE+2*, ONE+3*
>> DIRUT DX+4, PRV+4, ALL+3, ONE+4
DT DATE2+3
IO DEV
IO("Q" DEV, QUE!
IOF AQAQPR3+3
>> POP DEV
U ERR+4
>> X DATE*, DATE2*, DATE2+3, DX+4, PRV+4, ONE+4
>> X1 DATE2+3*
>> X2 DATE2+3*
Y DATE+1, DATE2+1, DX+4, PRV+4, ALL+2, ONE+5, END!
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+1*
ZTSK QUE+2!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All