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

Package: Quality Assurance

Routine: AQAQPR2


Information

AQAQPR2 ;IHS/ANMC/LJF - PROCEDURES BY PROVIDER(PCC DATA); [ 09/28/92 1:08 PM ]

Source Information

Source file <AQAQPR2.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 ^AQAQPR21  END^AQAQPR22  
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
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
^AQAQPR21 DEV
END^AQAQPR22 ERR+6
^DIR PRV+4, ALL+2, ONE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?25,"PROCEDURES BY PROVIDER",!!
  • Line Location: AQAQPR2+3
Function Call: WRITE
  • Prompt: !,"This report gives you a listing (with subcounts) of INPATIENT "
  • Line Location: AQAQPR2+4
Function Call: WRITE
  • Prompt: !,"procedures by operating provider and OUTPATIENT procedures by"
  • Line Location: AQAQPR2+5
Function Call: WRITE
  • Prompt: !,"primary provider. You will be asked for a DATE RANGE. You can"
  • Line Location: AQAQPR2+6
Function Call: WRITE
  • Prompt: !,"get the report for ALL PROVIDERS or only ONE PROVIDER, for ONE"
  • Line Location: AQAQPR2+7
Function Call: WRITE
  • Prompt: !,"CLASS such as all pediatricians; or one STAFF CATEGORY."
  • Line Location: AQAQPR2+8
Function Call: WRITE
  • Prompt: !,"The report is SUBTOTALED by provider and within each provider"
  • Line Location: AQAQPR2+9
Function Call: WRITE
  • Prompt: !,"by procedure category.",!!
  • Line Location: AQAQPR2+10
Function Call: WRITE
  • Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",!
  • Line Location: DATE2+2
Function Call: WRITE
  • Prompt: *7,!!?30,"Interrupt Acknowledged",!!
  • Line Location: ERR+4
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIR
  • Line Location:
    • 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, PRV+4, ALL+3, ONE+4, DEV
ONE PRV+5
PRV 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!
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 PRV!, ALL+1!, ONE+1!, END!
DIR("A" PRV*, PRV+1*, PRV+2*, PRV+3*, ALL+1*
DIR("B" ALL+2*
DIR(0 PRV*, ALL+1*, ONE+2*, ONE+3*
>> DIRUT PRV+4, ALL+3, ONE+4
DT DATE2+3
IO DEV
IO("Q" DEV, QUE!
IOF AQAQPR2+3
>> POP DEV
U ERR+4
>> X DATE*, DATE2*, DATE2+3, PRV+4, ONE+4
>> X1 DATE2+3*
>> X2 DATE2+3*
Y DATE+1, DATE2+1, 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