Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Scheduling 8 (BLD,SAVT)^SCRPW21  ($$REST,AED,CAT,DESC,PLIST)^SCRPW22  ($$DIR,DIRB1,DISP)^SCRPW23  INTRO^SCRPW26  EXIT^SCRPW27  ($$PFC,$$VERICD,$$VF,$$VL,$$VO,$$VP,MAR,PF,PFR)^SCRPW29  SUBT^SCRPW50  $$IMP^SCRPWICD  
Kernel 1 EN^XUTMDEVQ  
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Scheduling 4 SCRPW AD HOC REPORT  SCRPW21  SCRPW22  SCRPW26  

Entry Points

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

External References

Name Field # of Occurrence
^%DT FDT, LDT
BLD^SCRPW21 SCRPW20+5
SAVT^SCRPW21 SCRPW20+7
$$REST^SCRPW22 INTRO+1
AED^SCRPW22 L2
CAT^SCRPW22 P1, L3
DESC^SCRPW22 ORD+5
PLIST^SCRPW22 REV0
$$DIR^SCRPW23 INTRO+2, ORD+4, REV1+1, REV1+10, F1+2, F2, F3+1, F4+1, F5+1, F6
DIRB1^SCRPW23 ORD+3, F1, F2, F3, F4+1, F5+1, F6, P1, FDT, LDT
DISP^SCRPW23 INTRO, FMT+2, PERS+2, LIM+3, ORD+2, REVSCR+1
INTRO^SCRPW26 INTRO
EXIT^SCRPW27 SCRPW20+7, QUE
$$PFC^SCRPW29 RDIR
$$VERICD^SCRPW29 REV1+8
$$VF^SCRPW29 FMT+4
$$VL^SCRPW29 LIM+5
$$VO^SCRPW29 ORD+5
$$VP^SCRPW29 FMT+4, PERS+3
MAR^SCRPW29 QUE
PF^SCRPW29 XPF+1
PFR^SCRPW29 F1+2, F3+1, F4+1
SUBT^SCRPW50 L1
$$IMP^SCRPWICD L1+1
EN^XUTMDEVQ QUE, REV1+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" L1+1, FDT+1, LDT+2
^SDD(409.91 - [#409.91] INTRO+2
^TMP("SCRPW" SCRPW20+5!

Label References

Name Line Occurrences
$$XY REV1, REV1+10, L3
@( SCRPW20+6, FMT+3, LIM+4, REV2+1, REV3
FDT FDT+1, LDT+3
FMT FMT+4
L3 L2A
LDIR L3
LDT LDT+1
LIM LIM+5
ORD ORD+5
P1 PERS+3
PERS FMT+4, PERS+3
RDIR REV1+10
REV0 REVIEW+1
REV1 REV1+3, REV1+5, REV1+11
REV2 REV1+10
REVIEW INTRO+1, REV1+4
REVSCR REVIEW+1, REV1+10
VERS REV1, REV1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT L1~, FDT*
%DT("A" FDT*, LDT*
%DT("B" FDT*, LDT*
%DT(0 FDT*
DIR SCRPW20+5~, INTRO+2!, ORD+3!, ORD+4, REV1+1!, REV1+10, RDIR!, F1!, F1+2, F2!
, F3!, F3+1, F4+1!, F5!, F5+1, F6!, P1!, LDIR!
DIR("?" ORD+3*, F1*, F1+1*, F1+2*, F5+1*, P1*, LDIR*
DIR("A" ORD+3*, REV1+1*, RDIR*, F1*, F2*, F3+1*, F4+1*, F5+1*, F6*, P1*
, LDIR*
DIR("B" REV1+1*, FDT, LDT
DIR(0 INTRO+2*, ORD+3*, REV1+1*, RDIR*, F1*, F2*, F3+1*, F4+1*, F5+1*, F6*
>> DTOUT REV1+2, FDT, LDT
>> DUOUT REV1+2
DX XY+2~*
DY XY+2~*
I10DTE L1~, L1+1*, LDT+4
I10DTI L1~, L1+1*, LDT+3
IOM SCRPW20+3, SCRPW20+4
>> IORVOFF REV1, REV1+10, L3
>> IORVON REV1, REV1+10, L3
IOST SCRPW20+2, SCRPW20+3
>> SDACT REV1+1*, REV1+2, REV1+3, REV1+4, REV1+5, REV1+10*, REV2, REV2+1, REV3*
SDBOT INTRO!, FMT+2, PERS+1!, PERS+2, LIM+1!, LIM+3, ORD+1!, ORD+2, REVSCR!, REVSCR+1
SDBOT(1 INTRO*, FMT+1*, PERS+1*, LIM+2*, ORD+1*, REVSCR*
SDBOT(2 FMT+1*, PERS+1*, LIM+2*, ORD+1*, REVSCR*
SDBOT(3 PERS+1*, LIM+2*
SDERR REV0~, REV1+5*, REV1+8, REV1+9
>> SDNUL FMT+1*, PERS+1*, LIM+1*, ORD+1*, REV1+10*, REV1+11*, REV2*, P1*, L2A*
SDOUT SCRPW20+5~*, SCRPW20+6, SCRPW20+7, INTRO+2, FMT+1*, FMT+3, PERS+1*, LIM+1*, LIM+4, ORD+1*
, ORD+4, ORD+5, REV0*, REV1*, REV1+2*, REV1+5*, REV1+6*, REV1+7, REV1+8*, REV1+9
, REV1+10*, REV1+11*, REV3, P1, FDT*, LDT*, L2A
SDPAR SCRPW20+5!, SCRPW20+7
SDPAR( L2A
SDPAR("F" F1+2*, F2*, F3, F3+1*, F4, F4+1*, F5, F5+1*, F6*
SDPAR("L" FDT+1!*, LDT+1, LDT+2*, LDT+3
SDPAR("O" ORD+4*
SDPAR("X" P1!
>> SDREV SCRPW20+5*, SCRPW20+6, INTRO+1*, FMT+4, REV0*, P1, L2
SDS1 FMT+1*, PERS+1*, LIM+1*, ORD+1*, P1*, L1~, FDT+1*, LDT+2*, L2A*
>> SDS2 P1*, L2A*, L3
>> SDTAG SCRPW20+6*, FMT+3*, LIM+4*
>> SDTOP INTRO*, REVSCR*, REVSCR+1
SDX SCRPW20+3~*, SCRPW20+4*, ORD+4*, VERS+1*, F1+2*, F2*, F3+1*, F4+1*, F5+1*, F6*
, L3*
>> SDXY XY+2
T SCRPW20+5~*
U REV1+1, REV1+10, F2, F3, F4, F5, FDT, FDT+1, LDT, LDT+1
, LDT+2, LDT+3
X SCRPW20+5~, INTRO+2*, XY~, XY+2, FDT, LDT
Y SCRPW20+5~, L1+1*, FDT+1, LDT+1, LDT+2
ZTSAVE QUE~, REV1+3~
ZTSAVE("SDPAR(" QUE*, REV1+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All