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 Total: 12

Package Total Call Graph
Scheduling 6 $$DIVA^SCRPW17  BLD^SCRPW21  $$DIR^SCRPW23  PDIS^SCRPW46  EXIT^SCRPW47  (SUBT,TITL)^SCRPW50  
VA Fileman 3 ^%DT  ^DIC  ^DIR  
DRG Grouper 2 $$ICDDX^ICDCODE  $$CPT^ICPTCOD  
Kernel 1 EN^XUTMDEVQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCRPW47  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SCRPW45+6
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: !
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+8
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+7
    • EDT+8
    • PAR+4
    • CRI1+4
    • PFD

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SCRPW45+2~, SCRPW45+6*
%DT("A" SCRPW45+6*, EDT*
%DT(0 SCRPW45+6*
DIC PAR+6~*
DIC("A" RANGE*, RANGE+5*
DIC(0 PAR+6*
DIR SCRPW45+2~, EDT+6!, EDT+8!, PAR+3!, CRI1!, APF+2!, APF+3, APF+4!, PFD~
DIR("?" EDT+6*, PAR+4*, CRI1+1*, CRI1+2*, CRI1+3*, APF+2*
DIR("A" EDT+6*, EDT+8*, PAR+3*, CRI1*, APF+2*, APF+4*, PFD*
DIR("B" EDT+6*, EDT+8*, PFD*
DIR(0 EDT+6*, EDT+8*, PAR+3*, CRI1*, PFD*
>> DTOUT EDT+7, EDT+8, PAR+4, LIST+1, RANGE+1, R2, CRI1+4, PFD
>> DUOUT EDT+7, EDT+8, 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" SCRPW45+6*, EDT+1
SD("EDT" EDT+2*
SD("LIST" PAR+7*
SD("PBDT" SCRPW45+6*
SD("PEDT" EDT+2*
>> 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+4
SDCRI( CRI1+19*
>> SDD EDT+7*, APF+3, APF+4
SDDIV SCRPW45+2~, SCRPW45+4
SDEXE STR+3~
>> SDFMT EDT+7*
SDI EDT+2*, 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+2*, EDT+3*, EDT+9*, PAR+5*, PAR+6*, 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+2*, EDT+3, EDT+4, EDT+9*, EDT+10, 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+3
SDPAR( PAR+7*, 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+7, LIST+4, LIST+5, RANGE, RANGE+4, RANGE+5, R2+2, R2+3, APF+5*
, APF+6, PFD+1
>> SDSEL(0 PAR+6*, PAR+7
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+7, LIST+5, RANGE+5, R2+1, R2+5
SDX STR+3~, STR+5, STR1~, STR1+2, STR1+3
SDX( STR+4*
>> T EDT+9*, APF+6
U EDT+7, PAR+7, 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, EDT, EDT+1, EDT+2, EDT+7, EDT+9, 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+7, 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