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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSODP

Package: Outpatient Pharmacy

Routine: PSODP


Information

PSODP ;BHAM ISC/JrR - SORT AND PRINT DUE ANSWER SHEETS ; 11/17/92 10:19

Source Information

Source file <PSODP.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 YN^DICN  EN1^DIP  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOD DUE SORT AND PRINT  

Entry Points

Name Comments DBIA/ICR reference
COUNT
SUMMOUT
PSOSUMM
DIP
QUES
SUMMHD
SUMM ;Enter here from ^DIP to print Summary
EXIT
QUES2
QUES1
PSONLY
ACCUM ;Enter here from DHIT="D ACCUM^PSODP"

External References

Name Field # of Occurrence
YN^DICN PSOSUMM+1, PSONLY+1
EN1^DIP DIP+7
^DIR SUMMHD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you want a Report Summary"
  • Line Location: PSOSUMM+0
Function Call: WRITE
  • Prompt: !,"Do you want a SUMMARY only"
  • Line Location: PSONLY+0
Function Call: WRITE
  • Prompt: !!!,"Following is a Summary of the DUE Questionnaires and the",!,"corresponding Answers found in your report."
  • Line Location: SUMM+4
Function Call: WRITE
  • Prompt: !,"This Summary contains a cumulative total of the YES/NO/UNKNOWN type answers.",!!
  • Line Location: SUMM+5
Function Call: WRITE
  • Prompt: !,%," ANSWER SHEET"_$S(%>1:"S",1:"")_" HAD A MISSING QUESTIONNAIRE FIELD!"
  • Line Location: SUMM+6
Function Call: WRITE
  • Prompt: !!!,"TOTAL ANSWER SHEETS FOUND: ",PSOATOT
  • Line Location: SUMM+7
Function Call: WRITE
  • Prompt: !,"TOTAL QUESTIONNAIRES FOUND: ",PSOQATOT
  • Line Location: SUMM+8
Function Call: WRITE
  • Prompt: !?(2-($L(PSOQ)\2)),PSOQ
  • Line Location: SUMMOUT+0
Function Call: WRITE
  • Prompt: ?(16-($L(%)\2)),%
  • Line Location: SUMMOUT+1
Function Call: WRITE
  • Prompt: ?(25-($L(%)\2)),%
  • Line Location: SUMMOUT+2
Function Call: WRITE
  • Prompt: ?(38-($L(%)\2)),%
  • Line Location: SUMMOUT+3
Function Call: WRITE
  • Prompt: ?(56-($L(%)\2)),%
  • Line Location: SUMMOUT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUMMHD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMMHD+1
Function Call: WRITE
  • Prompt: !!?(40-($L(PSOQAM)\2)),PSOQAM
  • Line Location: SUMMHD+3
Function Call: WRITE
  • Prompt: !!,"Number of Answer Sheets: ",^TMP("PSOD",$J,PSOQA)
  • Line Location: SUMMHD+4
Function Call: WRITE
  • Prompt: !!,"QUEST #",?15,"YES",?25,"NO",?35,"UNKNOWN",?50,"NOT ANSWERED"
  • Line Location: SUMMHD+5
Function Call: WRITE
  • Prompt: !,PSOQL
  • Line Location: SUMMHD+6
Function Call: WRITE
  • Prompt: !?5,"A Summary will be printed at the end of this report detailing the"
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: !?5,"number of times a question was answered YES, NO, UNKNOWN, or NOT ANSWERED."
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' if you want to see the Summary ONLY."
  • Line Location: QUES2+0
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' if you want to print this Summary."
  • Line Location: QUES1+0
Routine Call
  • DIR
  • Line Location:
    • SUMMHD

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.0731 - [#50.0731] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.073 - [#50.073] ACCUM+4, SUMMHD+2
^PS(50.0731 - [#50.0731] ACCUM+2, ACCUM+5, ACCUM+6, COUNT
^PS(50.0732 - [#50.0732] ACCUM+6
^TMP("PSOD" EXIT+3!, ACCUM+3, COUNT+2, SUMM+3, SUMM+6, SUMM+10, SUMMOUT+1, SUMMOUT+2, SUMMOUT+3, SUMMOUT+4
, SUMMHD+4, SUMMHD+7

Label References

Name Line Occurrences
COUNT ACCUM+6
DIP PSOSUMM+5
EXIT PSOSUMM+3, PSONLY+3
PSONLY PSONLY+2
PSOSUMM PSOSUMM+2
QUES PSOSUMM+2, PSONLY+2
QUES1 PSOSUMM+2
QUES2 PSONLY+2
SUMMHD SUMM+10
SUMMOUT SUMM+10

Naked Globals

Name Field # of Occurrence
^( ACCUM+3*, ACCUM+6, COUNT+2*, SUMM+3
^("NO" SUMMOUT+2
^("NULL" SUMMOUT+4
^("UNKNOWN" SUMMOUT+3
^("YES" SUMMOUT+1
^(0 ACCUM+6, SUMM+6
^(1 COUNT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSOSUMM+1*, PSOSUMM+2, PSOSUMM+3, PSOSUMM+4, PSONLY+1*, PSONLY+2, PSONLY+3, PSONLY+4, EXIT!, SUMM+6*
, SUMMOUT+1*, SUMMOUT+2*, SUMMOUT+3*, SUMMOUT+4*
>> BY DIP+6*
D0 EXIT!, ACCUM+2, ACCUM+5, ACCUM+6, COUNT
DCOPIES DIP!, EXIT!
DHD DIP+2*, EXIT!
DHIT DIP!, DIP+4*, DIP+5*, EXIT!
DIC DIP+2*, EXIT!
DIOBEG DIP!, DIP+5*, EXIT!
DIOEND DIP!, DIP+3*, DIP+5*, EXIT!
>> DIR(0 SUMMHD*
DIS DIP!, EXIT!
FLDS DIP+6*, EXIT!
FR DIP!, EXIT!
IOF SUMM+1, SUMM+11, SUMMHD+1
IOM SUMM+2
IOST SUMM+11, SUMMHD
L DIP+6*, EXIT!
PG DIP!, EXIT!
PSCNT DIP+1*, EXIT+2!
PSOA EXIT!, SUMM+3*
PSOATOT EXIT!, SUMM+2*, SUMM+3*, SUMM+7
PSODA EXIT+1!, COUNT*, COUNT+1*, COUNT+2
PSODN EXIT+1!, ACCUM+6*, COUNT
PSODQA EXIT+1!, ACCUM+2*, ACCUM+3, ACCUM+4, COUNT+2
PSONLY PSOSUMM+5*, PSONLY+4*, DIP+6, EXIT+1!
PSOQ EXIT+1!, SUMM+10*, SUMMOUT, SUMMOUT+1, SUMMOUT+2, SUMMOUT+3, SUMMOUT+4
PSOQA EXIT+1!, SUMM+10*, SUMMOUT+1, SUMMOUT+2, SUMMOUT+3, SUMMOUT+4, SUMMHD+2, SUMMHD+4, SUMMHD+7
PSOQAM EXIT+1!, SUMMHD+2*, SUMMHD+3
PSOQATOT EXIT+1!, SUMM+2*, SUMM+3*, SUMM+6*, SUMM+8
PSOQL DIP!, EXIT+1!, SUMM+2*, SUMMHD+6
PSOQM EXIT+1!, ACCUM+6*, COUNT+2
PSOQN EXIT+2!, ACCUM+6*
PSOSUMM PSOSUMM+4*, PSOSUMM+5, DIP+5, EXIT+2!
PSPOP EXIT+2!, SUMM+9*, SUMM+10, SUMMHD*
TO DIP!
>> X SUMMHD
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All