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

Package: Occurrence Screen

Routine: QAOSPWT0


Information

QAOSPWT0 ;HISC/DAD-PATIENTS AWAITING CLINICAL REVIEW ;4/30/93 09:41

Source Information

Source file <QAOSPWT0.m>

Entry Points

Name Comments DBIA/ICR reference
DEV ;
ENTSK ;
EXIT ;
HEAD ;
PAUSE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QAOSPWT0+5
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS FOUND AWAITING CLINICAL REVIEW"
  • Line Location: ENTSK+20
Function Call: WRITE
  • Prompt: !!,NAME,?33,SSN,?45,Y,?59,$S(WARD["~":$P(WARD,"~",2),1:WARD)
  • Line Location: ENTSK+27
Function Call: WRITE
  • Prompt: !?1,SCRN,?8,$E(SCRNTXT,1,50),?59,WARD(0)
  • Line Location: ENTSK+28
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!?23,"PATIENTS AWAITING CLINICAL REVIEW",?68,TODAY
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?QAQTART,QAQ2HED,?68,"PAGE: ",PAGE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"PATIENT / SCREEN",?33,"SSN",?45,"DATE"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?59,$S(QAOSSORT="C":"CURR/OCCUR",1:"OCCUR/CURR")," WARD/CLIN"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,UNDL
  • Line Location: HEAD+7
Info |  Source |  Entry Points |  Interaction Calls