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

Package: Quality Assurance

Routine: AQAQPR12


Information

AQAQPR12 ;IHS/ANMC/LJF - ADMISSIONS BY PROVIDER; [ 08/06/92 4:29 PM ]

Source Information

Source file <AQAQPR12.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 ^%ZISC  
Quality Assurance 1 KILL^AQAQUTIL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Quality Assurance 2 AQAQPR1  AQAQPR11  

Entry Points

Name Comments DBIA/ICR reference
COUNT ;***> SUBRTN to print subcounts and increment totals
HEAD ;***> SUBRTN to print heading
END ;EP;>>> eoj <<<
NEWPG ;***> SUBRTN for end of page control
LINE ;***> SUBRTN to print line of data and increment counts
WAIT

External References

Name Field # of Occurrence
^%ZISC END+1
KILL^AQAQUTIL END+1
^DIR WAIT, NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> NO DATA FOR DATES",!!
  • Line Location: AQAQPR12+12
Function Call: WRITE
  • Prompt: !!," ADMISSIONS: ",AQAQTCNT
  • Line Location: AQAQPR12+31
Function Call: WRITE
  • Prompt: !," ICU ADMISSIONS: ",AQAQTICT
  • Line Location: AQAQPR12+32
Function Call: WRITE
  • Prompt: !," TOTAL ADMISSIONS: ",AQAQTCNT+AQAQTICT
  • Line Location: AQAQPR12+33
Function Call: WRITE
  • Prompt: !,"NEWBORN ADMISSIONS: ",AQAQTWCT
  • Line Location: AQAQPR12+34
Function Call: WRITE
  • Prompt: !,AQAQLINE
  • Line Location: AQAQPR12+35
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,AQAQLINE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,AQAQDUZ,?80-$L(AQAQSITE)/2,AQAQSITE
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?80-$L(AQAQTY)/2,AQAQTY,?70,"Page: ",AQAQPAGE
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,Y,?30,AQAQRG
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,AQAQLINE
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"Admit Date",?20,"Patient",?43,"Ward",?48,"Srv",?55,"Admitting DX"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,AQAQLIN2
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: ?20,$E($P(AQAQSTR,U),1,20)
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: ?43,$E($P(AQAQSTR,U,2),1,3),?48,$E($P(AQAQSTR,U,3),1,3)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?55,$E($P(AQAQSTR,U,4),1,23)
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: !," Admissions: ",AQAQSCNT
  • Line Location: COUNT+1
Function Call: WRITE
  • Prompt: !," ICU Admissions: ",AQAQICNT
  • Line Location: COUNT+2
Function Call: WRITE
  • Prompt: !," Total Admissions: ",AQAQICNT+AQAQSCNT
  • Line Location: COUNT+3
Function Call: WRITE
  • Prompt: !,"Newborn Admissions: ",AQAQWCNT
  • Line Location: COUNT+4
Function Call: WRITE
  • Prompt: !,AQAQLINE
  • Line Location: COUNT+5
Routine Call
  • DIR
  • Line Location:
    • WAIT
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HEAD+7, LINE+1
^DIC(3 - [#3] AQAQPR12+4
^DIC(4 - [#4] AQAQPR12+5
^UTILITY("AQAQPR1" AQAQPR12+12, AQAQPR12+16, AQAQPR12+22, AQAQPR12+25, END+1!

Label References

Name Line Occurrences
COUNT AQAQPR12+17, AQAQPR12+23, AQAQPR12+30
END AQAQPR12+29
HEAD AQAQPR12+12, AQAQPR12+18, NEWPG+1, NEWPG+3
LINE AQAQPR12+26
NEWPG AQAQPR12+19, AQAQPR12+31, LINE+8
WAIT AQAQPR12+12

Naked Globals

Name Field # of Occurrence
^( AQAQPR12+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AQAQBDT AQAQPR12+6
>> AQAQDT AQAQPR12+21*, AQAQPR12+22*, AQAQPR12+23, AQAQPR12+25, LINE+1
>> AQAQDUZ AQAQPR12+4*, HEAD+4
>> AQAQEDT AQAQPR12+7
>> AQAQICNT AQAQPR12+10*, AQAQPR12+17, AQAQPR12+30, LINE+5*, COUNT+2, COUNT+3, COUNT+5*
>> AQAQLIN2 AQAQPR12+9*, HEAD+10
>> AQAQLINE AQAQPR12+8*, AQAQPR12+35, HEAD+2, HEAD+8, COUNT+5
>> AQAQLST AQAQPR12+21*, AQAQPR12+23
>> AQAQPAGE AQAQPR12+4*, AQAQPR12+18, NEWPG+2, HEAD+1, HEAD+2*, HEAD+6
>> AQAQPRV AQAQPR12+15*, AQAQPR12+16*, AQAQPR12+20, AQAQPR12+22, AQAQPR12+25
>> AQAQRG AQAQPR12+6*, AQAQPR12+7*, HEAD+7
>> AQAQSCNT AQAQPR12+10*, AQAQPR12+17, AQAQPR12+30, LINE+7*, COUNT+1, COUNT+3, COUNT+5*
>> AQAQSITE AQAQPR12+5*, HEAD+4
>> AQAQSTOP AQAQPR12+4*, AQAQPR12+16, AQAQPR12+19, AQAQPR12+22, AQAQPR12+25, AQAQPR12+29, NEWPG+1*, NEWPG+2*, NEWPG+3
>> AQAQSTR AQAQPR12+26*, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6
>> AQAQTCNT AQAQPR12+10*, AQAQPR12+31, AQAQPR12+33, COUNT+1*
>> AQAQTICT AQAQPR12+10*, AQAQPR12+32, AQAQPR12+33, COUNT+2*
>> AQAQTWCT AQAQPR12+10*, AQAQPR12+34, COUNT+4*
>> AQAQTY HEAD+5*, HEAD+6
>> AQAQWCNT AQAQPR12+10*, AQAQPR12+30, LINE+6*, COUNT+4, COUNT+5*
>> DFN AQAQPR12+24*, AQAQPR12+25*, AQAQPR12+26
DIR WAIT!, NEWPG+2!
DIR("A" WAIT*
DIR(0 WAIT*, NEWPG+2*
DT HEAD+7
DUZ AQAQPR12+4
DUZ(2 AQAQPR12+5
IOF END+1, HEAD+1
IOSL LINE+8
IOST WAIT, NEWPG+1, HEAD+1
U AQAQPR12+4, AQAQPR12+5, AQAQPR12+16, AQAQPR12+19, AQAQPR12+22, AQAQPR12+25, AQAQPR12+29, NEWPG+3, LINE+2, LINE+3
, LINE+4, LINE+5, LINE+6
>> X NEWPG+2
>> Y HEAD+7*, LINE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All