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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: QAOSPSM3

Package: Occurrence Screen

Routine: QAOSPSM3


Information

QAOSPSM3 ;HISC/DAD-SUMMARY OF OCCURRENCE SCREENING - PART II ;5/6/93 09:08

Source Information

Source file <QAOSPSM3.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Occurrence Screen 1 ^QAOSPSM4  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Occurrence Screen 1 QAOSPSM2  

Entry Points

Name Comments DBIA/ICR reference
SRV(STATUS,SEQUENCE,PIECE) ;
EXIT
PAUSE
FF

External References

Name Field # of Occurrence
^DIR PAUSE+1
^QAOSPSM4 QAOSPSM3+50

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"3. Results of the Reliability Assessments (Complete only for second report"
  • Line Location: QAOSPSM3+2
Function Call: WRITE
  • Prompt: !," of fiscal year.)"
  • Line Location: QAOSPSM3+3
Function Call: WRITE
  • Prompt: !!," a. Clinical Review"
  • Line Location: QAOSPSM3+4
Function Call: WRITE
  • Prompt: !!," (1) Date reliability assessment completed ____________________"
  • Line Location: QAOSPSM3+5
Function Call: WRITE
  • Prompt: !!," (2) Percentage agreement found ____________________"
  • Line Location: QAOSPSM3+6
Function Call: WRITE
  • Prompt: !!," b. Peer Review"
  • Line Location: QAOSPSM3+7
Function Call: WRITE
  • Prompt: !!," (1) Date reliability assessment completed ____________________"
  • Line Location: QAOSPSM3+8
Function Call: WRITE
  • Prompt: !!," (2) Percentage agreement found ____________________"
  • Line Location: QAOSPSM3+9
Function Call: WRITE
  • Prompt: !!!,"4. Service-Specific Occurrences"
  • Line Location: QAOSPSM3+11
Function Call: WRITE
  • Prompt: !!,DASH
  • Line Location: QAOSPSM3+12
Function Call: WRITE
  • Prompt: !,"| | Medicine | Surgery | Psychiatry | Other* | Total** |"
  • Line Location: QAOSPSM3+13
Function Call: WRITE
  • Prompt: !,"| (Including Neurology) | | | | |"
  • Line Location: QAOSPSM3+14
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: QAOSPSM3+15
Function Call: WRITE
  • Prompt: !,"| Criterion 1 | ",$$SRV("N",1,1)," | ",$$SRV("N",1,2)," | ",$$SRV("N",1,3)," | ",$$SRV("N",1,4)," | ",$$SRV("N",1,5)," |"
  • Line Location: QAOSPSM3+16
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: QAOSPSM3+17
Function Call: WRITE
  • Prompt: !,"| Criterion 2 | N/A | N/A | N/A | N/A | ",$$SRV("N",2,5)," |"
  • Line Location: QAOSPSM3+18
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: QAOSPSM3+19
Function Call: WRITE
  • Prompt: !,"| Criterion 3 | N/A | ",$$SRV("N",3,2)," | N/A | N/A | ",$$SRV("N",3,2)," |"
  • Line Location: QAOSPSM3+20
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: QAOSPSM3+21
Function Call: WRITE
  • Prompt: !,"| Criterion 4 | ",$$SRV("N",4,1)," | ",$$SRV("N",4,2)," | ",$$SRV("N",4,3)," | ",$$SRV("N",4,4)," | ",$$SRV("N",4,5)," |"
  • Line Location: QAOSPSM3+22
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: QAOSPSM3+23
Function Call: WRITE
  • Prompt: !!,"Include only occurrences in this table, i.e., cases requiring clinical review"
  • Line Location: QAOSPSM3+25
Function Call: WRITE
  • Prompt: !,"to determine if further review is necessary. Cases meeting exceptions, are"
  • Line Location: QAOSPSM3+26
Function Call: WRITE
  • Prompt: !,"not included."
  • Line Location: QAOSPSM3+27
Function Call: WRITE
  • Prompt: !!,"Use the following rules in determining the service to which an"
  • Line Location: QAOSPSM3+28
Function Call: WRITE
  • Prompt: !,"occurrence belongs:"
  • Line Location: QAOSPSM3+29
Function Call: WRITE
  • Prompt: !," Criterion 1 - Service at time of discharge from first hospitalization"
  • Line Location: QAOSPSM3+30
Function Call: WRITE
  • Prompt: !," Criterion 2 - No rule necessary since only total figure needed"
  • Line Location: QAOSPSM3+31
Function Call: WRITE
  • Prompt: !," Criterion 3 - No rule necessary since all occurrences are in surgery"
  • Line Location: QAOSPSM3+32
Function Call: WRITE
  • Prompt: !," Criterion 4 - Service providing care at time of death"
  • Line Location: QAOSPSM3+33
Function Call: WRITE
  • Prompt: !!,"* The ""Other"" column should be used for occurrences belonging to Intermediate"
  • Line Location: QAOSPSM3+34
Function Call: WRITE
  • Prompt: !,"Medicine, Nursing Home Care Unit, Rehabilitation Medicine, SCI, and Domiciliary."
  • Line Location: QAOSPSM3+35
Function Call: WRITE
  • Prompt: !!,"** The numbers in the ""Total"" columns should be the same as those in column 1"
  • Line Location: QAOSPSM3+36
Function Call: WRITE
  • Prompt: !,"of Part I if all occurrences were clinically reviewed."
  • Line Location: QAOSPSM3+37
Function Call: WRITE
  • Prompt: !!,"5. Facility Workload Data (Should be readily available from Medical"
  • Line Location: QAOSPSM3+39
Function Call: WRITE
  • Prompt: !," Administration Service)"
  • Line Location: QAOSPSM3+40
Function Call: WRITE
  • Prompt: !!," a. Number of Admissions to Acute Care during Reporting Period:"
  • Line Location: QAOSPSM3+41
Function Call: WRITE
  • Prompt: !!,"Reference : RCS 10-0021 (8ZD1) VA Inpatient Care"
  • Line Location: QAOSPSM3+42
Function Call: WRITE
  • Prompt: !," Under the ""Gains"" Section; Line ""Total - Adm & Trans"""
  • Line Location: QAOSPSM3+43
Function Call: WRITE
  • Prompt: !," List for each Bed Section:"
  • Line Location: QAOSPSM3+44
Function Call: WRITE
  • Prompt: !!," Medicine (Include Neurology, exclude Intermediate Med.)",?71,"________"
  • Line Location: QAOSPSM3+45
Function Call: WRITE
  • Prompt: !!," Surgery",?71,"________"
  • Line Location: QAOSPSM3+46
Function Call: WRITE
  • Prompt: !!," Psychiatry",?71,"________"
  • Line Location: QAOSPSM3+47
Function Call: WRITE
  • Prompt: !!," b. Number of ""Unscheduled"" and ""10-10"" Ambulatory Care"
  • Line Location: QAOSPSM3+48
Function Call: WRITE
  • Prompt: !," Visits During Reporting Period",?71,"________"
  • Line Location: QAOSPSM3+49
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FF+0
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Label References

Name Line Occurrences
$$SRV QAOSPSM3+16, QAOSPSM3+18, QAOSPSM3+20, QAOSPSM3+22
EXIT QAOSPSM3+10, QAOSPSM3+24, QAOSPSM3+38
FF QAOSPSM3+10, QAOSPSM3+38
PAUSE QAOSPSM3+10, QAOSPSM3+24, QAOSPSM3+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DASH QAOSPSM3+12, QAOSPSM3+15, QAOSPSM3+17, QAOSPSM3+19, QAOSPSM3+21, QAOSPSM3+23, EXIT!
DIR PAUSE+1!
DIR(0 PAUSE+1*
IOF FF
IOST PAUSE
PIECE SRV~, SRV+1
>> QAOBLANK SRV+1
>> QAOSQUIT QAOSPSM3+10, QAOSPSM3+24, QAOSPSM3+38, PAUSE+1*
>> QAOSRV( SRV+1
SEQUENCE SRV~, SRV+1
STATUS SRV~, SRV+1
UNDL EXIT!
>> Y PAUSE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All