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
Print Page as PDF
Routine: QAOSPPR0

Package: Occurrence Screen

Routine: QAOSPPR0


Information

QAOSPPR0 ;HISC/DAD-PEER REVIEWER WORKSHEET ;2/16/93 09:31

Source Information

Source file <QAOSPPR0.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT ;
LOOP1 ;
BLANK
CHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: LOOP1+4
Function Call: WRITE
  • Prompt: !?3,$S($P(QAOSMULT,"^",5)=D0:"_X_",1:"___"),?8,$J(QA,3,0),?15,$P(LOC,"^",2)
  • Line Location: LOOP1+5
Function Call: WRITE
  • Prompt: !!,"If quality of care is rated as level 2 or 3, indicate involved practitioner(s).",!!," __________________________________________________________________________"
  • Line Location: LOOP1+7
Function Call: WRITE
  • Prompt: !?3,$P(ARRAY(QA),"^"),?8,$J(QA,3,0),?15,$P(ARRAY(QA),"^",2)
  • Line Location: LOOP1+10
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: LOOP1+12
Function Call: WRITE
  • Prompt: !?3,$S(D0=LOC:"_X_",1:"___"),?8,$J(QA,3,0),?15,$P(^QA(741.8,D0,0),"^",2)
  • Line Location: LOOP1+14
Function Call: WRITE
  • Prompt: !!,"DATE REVIEW COMPLETED: "
  • Line Location: LOOP1+16
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"____________________")
  • Line Location: LOOP1+16
Function Call: WRITE
  • Prompt: ?47,"DUE DATE: "
  • Line Location: LOOP1+18
Function Call: WRITE
  • Prompt: $S((QAOSHOW=3)!(QAOSDATA=1)!(Y=""):"____________________",1:Y)
  • Line Location: LOOP1+19
Function Call: WRITE
  • Prompt: !!,"Can steps be taken to improve the care of similar patients in the future?"
  • Line Location: LOOP1+22
Function Call: WRITE
  • Prompt: !,"___ YES, ___ NO. If YES, describe. (Please answer even if quality of"
  • Line Location: LOOP1+23
Function Call: WRITE
  • Prompt: !,"care was rated as ""LEVEL 1"".)"
  • Line Location: LOOP1+23
Function Call: WRITE
  • Prompt: !!,"Should the care in this case be considered for educational presentations"
  • Line Location: LOOP1+24
Function Call: WRITE
  • Prompt: !,"because it was exemplary? ___ YES, ___ NO. If YES, describe."
  • Line Location: LOOP1+25
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: LOOP1+26
Function Call: WRITE
  • Prompt: !?3,^UTILITY($J,"W",DIWL,QA,0)
  • Line Location: LOOP1+28
Function Call: WRITE
  • Prompt: !
  • Line Location: BLANK+0
Function Call: WRITE
  • Prompt: !,"SIGNATURE"
  • Line Location: BLANK+1
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: CHK+2
Info |  Source |  Entry Points |  Interaction Calls