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

Package: Scheduling

Routine: SCRPW45


Information

SCRPW45 ;RENO/KEITH - Outpatient Diagnosis/Procedure Search ;15 Jul 98 02:38PM

Source Information

Source file <SCRPW45.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Scheduling 7 $$DIVA^SCRPW17  BLD^SCRPW21  $$DIR^SCRPW23  PDIS^SCRPW46  EXIT^SCRPW47  (SUBT,TITL)^SCRPW50  ($$ICDDX,$$IMP)^SCRPWICD  
VA FileMan 3 ^%DT  ^DIC  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 EN^XUTMDEVQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SCRPW DX/PROCEDURE CODE SEARCH  SCRPW47  

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
QUE
EXIT
PAR ;Select report search criteria
LIST
RANGE
R2
CRI ;Prompt for element combination criteria
CRI1
STR(SDSTR,SDTX) ;Convert combine logic into output text string
STR1(SDX) ;Convert to text (cont.)
APF ;Select additional print fields
PFD
WRAP(SDITX,SDOTX,SDIXE,SDOXE,SDLTH,SDUJC) ;Text wrapper
PIX
POX
MOVE
MOVE1
MOVE2
MOVE3
INCR

External References

Name Field # of Occurrence
^%DT BDT, EDT
^DIC LIST+1, RANGE+1, R2
^DIR EDT+11, EDT+12, PAR+4, CRI1+4, PFD
$$CPT^ICPTCOD LIST+4, RANGE+4, R2+2
$$DIVA^SCRPW17 SCRPW45+4
BLD^SCRPW21 EDT+13
$$DIR^SCRPW23 APF+3, APF+4
PDIS^SCRPW46 EDT+14
EXIT^SCRPW47 EXIT
SUBT^SCRPW50 SCRPW45+5, EDT+9, PAR+2, CRI+1, APF+1
TITL^SCRPW50 SCRPW45+3
$$ICDDX^SCRPWICD LIST+4, RANGE+4, R2+2
$$IMP^SCRPWICD SCRPW45+6
EN^XUTMDEVQ QUE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"End date cannot be before begin date!",!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Beginning and Ending dates must both be prior to "_SD("I10DTE")_" (ICD-9) or both be on or after "_SD("I10DTE")_" (ICD-10)."
  • Line Location: EDT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending value must collate after beginning value!",!
  • Line Location: R2+4
Function Call: WRITE
  • Prompt: !!," Specify letter combinations that represent how the search elements selected",!," above will be applied in evaluating patient activity (eg. ""ABC"" or ""ABC'D""):"
  • Line Location: CRI+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CRI1+4
Function Call: WRITE
  • Prompt: $C(7)," ?? Invalid!"
  • Line Location: CRI1+6
Function Call: WRITE
  • Prompt: $C(7),"No criteria selected!"
  • Line Location: CRI1+8
Function Call: WRITE
  • Prompt: $C(7)," ?? The value ""'&"" is incorrect syntax!"
  • Line Location: CRI1+9
Function Call: WRITE
  • Prompt: $C(7)," ?? Character ""'"" appears redundantly!"
  • Line Location: CRI1+10
Function Call: WRITE
  • Prompt: $C(7)," ?? Character ""&"" appears redundantly!"
  • Line Location: CRI1+11
Function Call: WRITE
  • Prompt: $C(7),"No criteria selected!"
  • Line Location: CRI1+12
Function Call: WRITE
  • Prompt: $C(7)," ?? Element '"_SDC_"' appears redundantly!"
  • Line Location: CRI1+14
Function Call: WRITE
  • Prompt: $C(7)," ?? Character '"_SDC_"' is not recognized!"
  • Line Location: CRI1+15
Function Call: WRITE
  • Prompt: !?4,SDTX(SDIII)
  • Line Location: CRI1+19
Function Call: WRITE
  • Prompt: !,"deleted..."
  • Line Location: PFD+1
Routine Call
  • DIC
  • Line Location:
    • LIST+1
    • RANGE+1
    • R2
Routine Call
  • DIR
  • Line Location:
    • EDT+11
    • EDT+12
    • PAR+4
    • CRI1+4
    • PFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SCRPW45+6, BDT, EDT+3
^TMP("SCRPW" APF+6

Label References

Name Line Occurrences
$$STR1 STR+4
APF EDT+13
BDT EDT+4
CRI EDT+7
CRI1 CRI+3, CRI1+6, CRI1+8, CRI1+9, CRI1+10, CRI1+11, CRI1+12, CRI1+18
EDT EDT+1
EXIT SCRPW45+4, BDT, EDT, EDT+7, EDT+8, EDT+11, EDT+12, EDT+14
INCR MOVE, MOVE1, MOVE2, MOVE2+2, MOVE2+3
LIST PAR+8
MOVE WRAP+11, MOVE, MOVE2, MOVE2+1, MOVE2+2, MOVE2+3, MOVE3+1
PAR EDT+6, PAR+9
PFD APF+5
PIX WRAP+11
POX WRAP+10, INCR
R2 R2+4
RANGE PAR+8
STR CRI1+19
WRAP STR+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SCRPW45+2~, BDT*
%DT("A" BDT*, EDT*
%DT(0 BDT*
DIC PAR+6~*, PAR+7
DIC("A" RANGE*, RANGE+5*
DIC("S" PAR+7*
DIC(0 PAR+6*
DIR SCRPW45+2~, EDT+10!, EDT+12!, PAR+3!, CRI1!, APF+2!, APF+3, APF+4!, PFD~
DIR("?" EDT+10*, PAR+4*, CRI1+1*, CRI1+2*, CRI1+3*, APF+2*
DIR("A" EDT+10*, EDT+12*, PAR+3*, CRI1*, APF+2*, APF+4*, PFD*
DIR("B" EDT+10*, EDT+12*, PFD*
DIR(0 EDT+10*, EDT+12*, PAR+3*, CRI1*, PFD*
>> DTOUT EDT+11, EDT+12, PAR+4, LIST+1, RANGE+1, R2, CRI1+4, PFD
>> DUOUT EDT+11, EDT+12, PAR+4, LIST+1, RANGE+1, R2, CRI1+4, PFD
IOM WRAP+10
>> S1 RANGE+5*, R2+4, APF+3*, APF+4, APF+5, APF+6, PFD+1*
>> S2 R2+3*, R2+4, R2+5, APF+4*, APF+5, APF+6, PFD+1*
SD SCRPW45+2~
SD("BDT" BDT*, EDT+1, EDT+4, PAR+7
SD("EDT" EDT+3*, EDT+4
SD("I10DTE" SCRPW45+6*, EDT+5
SD("I10DTI" SCRPW45+6*, EDT+4, PAR+7
SD("LIST" PAR+9*
SD("PBDT" BDT*
SD("PEDT" EDT+3*
>> SDAPF( APF+6*
>> SDAPF("PF" PFD+1!
>> SDAPF("PFX" APF+5, APF+6*, PFD+1
>> SDAPF("SDX" PFD+1!
>> SDBAD CRI1+13*, CRI1+14*, CRI1+15*, CRI1+18
>> SDC CRI1+7*, CRI1+13*, CRI1+14, CRI1+15, CRI1+16
SDCRI SCRPW45+2~, EDT+8
SDCRI( CRI1+19*
>> SDD EDT+11*, APF+3, APF+4
SDDIV SCRPW45+2~, SCRPW45+4
SDEXE STR+3~
>> SDFMT EDT+11*
SDI EDT+6*, QUE*, PAR+1, STR+3~, STR+4*
>> SDII CRI+3*, CRI1, CRI1+19
>> SDIII CRI1+13*, CRI1+19*
SDITX WRAP~, WRAP+10
SDITX( WRAP+11
SDITX("" WRAP+10
SDIXE WRAP~
SDIXE( PIX
SDLAST WRAP+9~, WRAP+10*, WRAP+11
SDLTH STR+5*, WRAP~, WRAP+10*, MOVE, MOVE1, MOVE2, MOVE2+2, MOVE2+3
>> SDNUL EDT+6*, EDT+7*, EDT+13*, PAR+5*, PAR+8*, LIST, LIST+2*, RANGE+2*, R2+1*, CRI+3
, CRI1+5*, APF+3, APF+4*
SDOTX WRAP~, WRAP+10!
SDOTX( MOVE, MOVE+1*, MOVE1*, MOVE2*, MOVE2+1*, MOVE2+3*, MOVE3+1*, INCR*
SDOTX(1 WRAP+10*
>> SDOUT EDT+6*, EDT+7, EDT+8, EDT+13*, EDT+14, PAR+4*, LIST, LIST+1*, RANGE+1*, R2*
, CRI+3, CRI1+4*, APF+3, APF+4
SDOXE STR+5, WRAP~
SDOXE( POX
SDOXE(2 STR+5*
SDPAR SCRPW45+2~, EDT+7
SDPAR( PAR+9*, LIST+5*, RANGE+5*, R2+1!, R2+5*, CRI1+15, STR1+3
>> SDR CRI1+13*, CRI1+14
>> SDRESP CRI1+13*
>> SDS1 APF+6*
>> SDS2 APF+6*
>> SDSEL PAR+6*, PAR+8, PAR+9, LIST+4, LIST+5, RANGE, RANGE+4, RANGE+5, R2+2, R2+3
, APF+5*, APF+6, PFD+1
>> SDSEL(0 PAR+6*, PAR+9
SDSTR CRI1+13*, CRI1+16*, CRI1+19*, STR~, STR+4, STR+5
SDTX CRI1+19, STR~, STR+5
SDTX( CRI1+19
SDTX(1 CRI1+19
SDTXB WRAP+9~, MOVE3!
SDTXB( MOVE3*, MOVE3+1
SDTXB(998 MOVE3+1
SDUI WRAP+9~, WRAP+10*, WRAP+11*, PIX
SDUII WRAP+9~, WRAP+10*, POX, MOVE, MOVE+1, MOVE1, MOVE2, MOVE2+1, MOVE2+3, MOVE3+1
, INCR*
SDUIII WRAP+9~, MOVE3*, MOVE3+1*
SDUIV WRAP+9~, MOVE3+1*
SDUJC WRAP~, WRAP+10*, WRAP+11
>> SDVAR PAR+1*, PAR+2, PAR+3, PAR+4, PAR+9, LIST+5, RANGE+5, R2+1, R2+5
SDX STR+3~, STR+5, STR1~, STR1+2, STR1+3
SDX( STR+4*
>> T EDT+13*, APF+6
U EDT+11, PAR+9, LIST+5, RANGE+5, R2+3, R2+5, STR1+3, APF+4, APF+5, APF+6
X PAR+5, LIST+2, RANGE+2, R2+1, CRI1+5, CRI1+6, WRAP+9~, WRAP+11*, MOVE, MOVE+1
, MOVE1, MOVE2*, MOVE2+1*, MOVE2+3*, MOVE3, MOVE3+1*
X1 WRAP+9~, MOVE*, MOVE+1, MOVE1, MOVE2
X2 WRAP+9~, MOVE*, MOVE3
X3 WRAP+9~, MOVE2+1*, MOVE2+2, MOVE2+3
X4 WRAP+9~, MOVE3*
Y SCRPW45+6*, BDT, EDT, EDT+1, EDT+3, EDT+11, EDT+13, PAR+6, LIST+3, LIST+4
, LIST+5, RANGE+3, RANGE+4, RANGE+5, R2+1, R2+2, R2+5, CRI1+7*, CRI1+8, CRI1+9
, CRI1+10, CRI1+11, CRI1+12, CRI1+13, PFD+1, WRAP+9~, MOVE*
Y(0 EDT+11, PAR+6, LIST+4*, LIST+5, RANGE+4*, RANGE+5, R2+2*, R2+3
Y1 WRAP+9~, MOVE*, MOVE1, MOVE2, MOVE2+3
Y2 WRAP+9~, MOVE*, MOVE+1, MOVE2+1, MOVE2+2, MOVE3+1
ZTSAVE QUE~, QUE+1
ZTSAVE( QUE*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All