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

Package: Occurrence Screen

Routine: QAOSPRS1


Information

QAOSPRS1 ;HISC/DAD,JCW-REVIEW SUMMARY REPORT ;11/23/92 15:45

Source Information

Source file <QAOSPRS1.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP ;
OCCR ;
CLIN ;
PEER ;
MGMT ;
CMTE ;
HEAD ;
SRVHDR ;
PAUSE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,X,!,$E(UNDL2,1,$L(X)),!
  • Line Location: OCCR+2
Function Call: WRITE
  • Prompt: !," 1 - TOTAL RECORDS",?67,$J(QAOTOTAL("RECR",QAOSTYPE),3,0)
  • Line Location: OCCR+3
Function Call: WRITE
  • Prompt: !," 2 - EXCEPTIONS",?67,$J(QAOTOTAL("EXCP",QAOSTYPE),3,0)
  • Line Location: OCCR+4
Function Call: WRITE
  • Prompt: !," 3 - DELETIONS",?67,$J(QAOTOTAL("DELT",QAOSTYPE),3,0)
  • Line Location: OCCR+5
Function Call: WRITE
  • Prompt: !!,X,!,$E(UNDL2,1,$L(X)),!
  • Line Location: OCCR+7
Function Call: WRITE
  • Prompt: !,$J(QAOSSEVR,2)," - ",QAOSTEXT,?67,$J(QAOSNUM,3,0)
  • Line Location: OCCR+12
Function Call: WRITE
  • Prompt: !!,UNDL1
  • Line Location: OCCR+15
Function Call: WRITE
  • Prompt: !!,X,!,$E(UNDL2,1,$L(X)),!
  • Line Location: CLIN+2
Function Call: WRITE
  • Prompt: !,$J(QAOSFIND,2)," - ",QAOSTEXT,?67,$J(QAOSNUM,3,0)
  • Line Location: CLIN+7
Function Call: WRITE
  • Prompt: !!,UNDL1
  • Line Location: CLIN+10
Function Call: WRITE
  • Prompt: !!,X,!,$E(UNDL2,1,$L(X))
  • Line Location: PEER+2
Function Call: WRITE
  • Prompt: !,$J(QAOSFIND,2)," - ",QAOSTEXT
  • Line Location: PEER+7
Function Call: WRITE
  • Prompt: ?TAB,$J(X,3,0)
  • Line Location: PEER+8
Function Call: WRITE
  • Prompt: ?TAB,$J(TOT,5,0)
  • Line Location: PEER+9
Function Call: WRITE
  • Prompt: !!,UNDL1
  • Line Location: PEER+12
Function Call: WRITE
  • Prompt: !!,X,!,$E(UNDL2,1,$L(X))
  • Line Location: MGMT+2
Function Call: WRITE
  • Prompt: !,$J(QAOSACTN,2)," - ",QAOSTEXT
  • Line Location: MGMT+7
Function Call: WRITE
  • Prompt: ?TAB,$J(X,3,0)
  • Line Location: MGMT+8
Function Call: WRITE
  • Prompt: ?TAB,$J(TOT,5,0)
  • Line Location: MGMT+9
Function Call: WRITE
  • Prompt: !!,UNDL1
  • Line Location: MGMT+12
Function Call: WRITE
  • Prompt: !!,X,!,$E(UNDL2,1,$L(X)),!
  • Line Location: CMTE+2
Function Call: WRITE
  • Prompt: !,$J(QAOSCONF,2)," - ",QAOSDD(QAOSCONF),?67,$J(QAOSNUM,3,0)
  • Line Location: CMTE+6
Function Call: WRITE
  • Prompt: !?(132-$L(X)/2),X,?120,QAOTODAY
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?(132-$L(QAQ2HED)/2),QAQ2HED,?120,"PAGE: ",QAOSPAGE,!!,UNDL2
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?66,"BLIND",?73,"DOM",?80,"MEDICINE",?92,"NHCU",?97,"NON",?102,"PSYCH",?113,"SCI",?121,"UNKNOWN"
  • Line Location: SRVHDR+1
Function Call: WRITE
  • Prompt: !?66,"REHAB",?75,"INTERMED",?85,"NEUROLOGY",?97,"COUNT",?105,"REHAB-MED",?116,"SURGERY",?127,"TOTAL"
  • Line Location: SRVHDR+2
Info |  Source |  Entry Points |  Interaction Calls