Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.0731 - [#50.0731] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call