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

Package: Scheduling

Routine: SCRPW50


Information

SCRPW50 ;RENO/KEITH - ACRP Data Validation Reports ; 15 Jul 98 4:31 PM

Source Information

Source file <SCRPW50.m>

Entry Points

Name Comments DBIA/ICR reference
RQUE(SDROU,SDES,SD132) ;Queue data validation reports
DATE
EXIT
XY(X,SDI,SDZ) ;Maintain $X, $Y
TITL(SDES) ;Display report title
SUBT(SDX) ;Display subtitle
END ;Clean up
PROV(SDOE,SDARY) ;Create array of provider types for an encounter

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,$C(7),"This date cannot be prior to OCT 1, 1996!"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column output."
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: @X
  • Line Location: XY+5
Function Call: WRITE
  • Prompt: X
  • Line Location: XY+6
Function Call: WRITE
  • Prompt: $$XY(IOF,1,0),?(IOM-$L(SDES)\2),SDES,!
  • Line Location: TITL+4
Function Call: WRITE
  • Prompt: $$XY(IOF,1,0),$$XY(IORVON),SDX,$$XY(IORVOFF),$$XY(IOSTBM,1),!
  • Line Location: TITL+5
Function Call: WRITE
  • Prompt: !!?(80-$L(SDX)\2),$$XY(IORVON),SDX,$$XY(IORVOFF)
  • Line Location: SUBT+2
Info |  Source |  Entry Points |  Interaction Calls