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

Package: Scheduling

Routine: SCRPW20


Information

SCRPW20 ;RENO/KEITH - ACRP Ad Hoc Report ;15 Nov 98 4:31 PM

Source Information

Source file <SCRPW20.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
INTRO
FMT ;Get format parameters
PERS ;Prompt for perspective
LIM ;Prompt for limitations
ORD ;Prompt for print order
XY(X) ;Maintain $X, $Y
XPF ;Extra print fields
REVIEW ;Review selected parameters
REVSCR
VERS ;Verify segments
REV0
REV1
RDIR
REV2
REV3
F1
F2
F3
F4
F5
F6
P1
L1
FDT
LDT
L2
L2A
L3
LDIR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDX)\2),SDX
  • Line Location: SCRPW20+3
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX,!
  • Line Location: SCRPW20+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: X
  • Line Location: XY+2
Function Call: WRITE
  • Prompt: !
  • Line Location: VERS+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SDOUT
  • Line Location: REV1+0
Function Call: WRITE
  • Prompt: !?32,$$XY(IORVON)," Report action ",$$XY(IORVOFF)
  • Line Location: REV1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REV1+3
Function Call: WRITE
  • Prompt: !!,"Required information missing. Unable to continue with queuing!"
  • Line Location: REV1+7
Function Call: WRITE
  • Prompt: !!,SDERR
  • Condition for execution: $G(SDERR)]""
  • Line Location: REV1+9
Function Call: WRITE
  • Prompt: !!,"Unable to continue with queuing!"
  • Line Location: REV1+9
Function Call: WRITE
  • Prompt: !!?31,$$XY(IORVON)," Re-edit actions ",$$XY(IORVOFF)
  • Line Location: REV1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: F6+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LDT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending date must be after beginning date!"
  • Line Location: LDT+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Beginning and Ending dates must both be prior to "_I10DTE_" (ICD-9) or both be on or after "_I10DTE_" (ICD-10)."
  • Line Location: LDT+4
Function Call: WRITE
  • Prompt: !!?(80-$L(SDX)\2),$$XY(IORVON),SDX,$$XY(IORVOFF)
  • Line Location: L3+0
Info |  Source |  Entry Points |  Interaction Calls