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

Package: Occurrence Screen

Routine: QAOSPCL1


Information

QAOSPCL1 ;HISC/DAD-CLINICAL REVIEWER WORKSHEET (PART 2) ;5/7/93 20:27

Source Information

Source file <QAOSPCL1.m>

Entry Points

Name Comments DBIA/ICR reference
SKIP1 ;
SKIP2 ;
BLANK
EXIT ;
EXIT0
CHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: QAOSPCL1+8
Function Call: WRITE
  • Prompt: !?3,ARRAY(Y),?8,$J($P(Y,"^"),3)
  • Line Location: QAOSPCL1+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: QA(0)>1
  • Line Location: QAOSPCL1+9
Function Call: WRITE
  • Prompt: ?15,^UTILITY($J,"W",DIWL,QA(0),0)
  • Line Location: QAOSPCL1+9
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: SKIP1+1
Function Call: WRITE
  • Prompt: !?3,$S($P(QAOSMULT,"^",5)=D0:"_X_",1:"___"),?8,$J(QA,3,0),?15,$P(LOC,"^",2)
  • Line Location: SKIP1+2
Function Call: WRITE
  • Prompt: ": __________________________________________________"
  • Line Location: SKIP1+4
Function Call: WRITE
  • Prompt: !?3,"_X_",?8,$J(QA(0),3)
  • Line Location: SKIP1+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: QA>1
  • Line Location: SKIP1+5
Function Call: WRITE
  • Prompt: ?15,^UTILITY($J,"W",DIWL,QA,0)
  • Line Location: SKIP1+5
Function Call: WRITE
  • Prompt: !?3,$P(ARRAY(QA),"^"),?8,$J(QA,3),?15,$P(ARRAY(QA),"^",2)
  • Line Location: SKIP2+3
Function Call: WRITE
  • Prompt: !!,"DATE REVIEW COMPLETED: "
  • Line Location: SKIP2+5
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"____________________")
  • Line Location: SKIP2+5
Function Call: WRITE
  • Prompt: !!,"Should the care in this case be considered for educational presentations"
  • Line Location: SKIP2+6
Function Call: WRITE
  • Prompt: !,"because it was exemplary? ___ YES, ___ NO. If YES, describe."
  • Line Location: SKIP2+7
Function Call: WRITE
  • Prompt: !!,QAOSHEAD
  • Line Location: SKIP2+8
Function Call: WRITE
  • Prompt: !?3,^UTILITY($J,"W",DIWL,QA,0)
  • Line Location: SKIP2+10
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