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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCRPW41

Package: Scheduling

Routine: SCRPW41


Information

SCRPW41 ;RENO/KEITH - Veterans Without Activity Since a Specified Date Range ; 5/25/2004

Source Information

Source file <SCRPW41.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Scheduling 8 $$DIVA^SCRPW17  BLD^SCRPW21  ($$DIR,DISP0)^SCRPW23  ASK^SCRPW41  (,$$DSV,EXIT,EXIT1)^SCRPW42  (PDIS,SCAT)^SCRPW43  (SUBT,TITL)^SCRPW50  $$GETOE^SDOE  
VA FileMan 4 ^%DT  NOW^%DTC  ^DIC  ^DIR  
Registration 3 ^DGPMSTAT  WARD^DGPMUTL  (DEM,ELIG)^VADPT  
Kernel 2 $$S^%ZTLOAD  EN^XUTMDEVQ  
Fee Basis 1 $$AUTHL^FBUTL  

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

Package Total Caller Graph
Scheduling 3 SCRPW VETS W/OUT ACTIVITY  SCRPW41  SCRPW43  

Entry Points

Name Comments DBIA/ICR reference
STAT ;Prompt for encounter statuses to include
SET ;Set TMP global
ASK1 ;Prompt for 'Means Test/Eligibility/Enrollment Report' parameters
EDT1
STOP ;Check for stop task request
VET() ;Vet? Alive? Eligible?
SORT(SDACR) ;Return sort value
START ;Print report
PF() ;Prompt for page feed
EVAL(SDBD,SDED) ;Evaluate last activity
EDT
ASK ;Ask for sort elements
WARD(SDT) ;Get ward for date/time

External References

Name Field # of Occurrence
^%DT SCRPW41+8, EDT, ASK1+5, EDT1
NOW^%DTC START+1, START+4
$$S^%ZTLOAD STOP+1
^DGPMSTAT WARD+2
WARD^DGPMUTL EVAL+18
^DIC STAT+4
^DIR EDT+9, PF+1, EDT1+5, EDT1+8
$$AUTHL^FBUTL EVAL+13
$$DIVA^SCRPW17 ASK1+3
BLD^SCRPW21 EDT+3, START+1, EDT1+9
$$DIR^SCRPW23 ASK+2, ASK+3
DISP0^SCRPW23 STAT+7
ASK^SCRPW41 EDT1+10
^SCRPW42 START+4
$$DSV^SCRPW42 SET+7
EXIT^SCRPW42 SCRPW41+8, EDT, EDT+5, EDT+9, EDT+11, START+4
EXIT1^SCRPW42 ASK1+3, ASK1+5, EDT1, EDT1+5, EDT1+8, STAT+5, STAT+7
PDIS^SCRPW43 STAT+5
SCAT^SCRPW43 EDT1+8
SUBT^SCRPW50 SCRPW41+7, EDT+3, EDT+5, ASK+1, ASK1+4, EDT1+3, EDT1+6, EDT1+9, STAT+1
TITL^SCRPW50 SCRPW41+3, ASK1+2
$$GETOE^SDOE EVAL+8
DEM^VADPT VET+1
ELIG^VADPT VET+2
EN^XUTMDEVQ EDT+11, STAT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will return a list of veterans that are not deceased who had",!,"activity during a date range specified by the user, and have not been seen"
  • Line Location: SCRPW41+4
Function Call: WRITE
  • Prompt: !,"since. Activity is determined by an examination of Fee Basis, inpatient and",!,"outpatient care (including future appointments). Once the scheduling"
  • Line Location: SCRPW41+5
Function Call: WRITE
  • Prompt: !,"replacement application has been implemented at your site, this report will",!,"no longer be accurate."
  • Line Location: SCRPW41+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SCRPW41+8
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: !!,"Veterans not seen since the date range: ",SD("PBDT")," to ",SD("PEDT"),!!,"Output sort elements: "
  • Line Location: EDT+5
Function Call: WRITE
  • Prompt: "(NONE SELECTED)"
  • Line Location: EDT+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SDI>1
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: ?(19+(3*SDI))
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: $E($P(SDX,U,2),1,SDL)_$S($P(SDX,U,3):" <pagefeed>",1:"")
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column output.",!
  • Line Location: EDT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"End date cannot be before begin date!",!
  • Line Location: EDT1+1
Function Call: WRITE
  • Prompt: !!,"Choose as many of the following statuses",!,"as you wish to include in the report:",!
  • Line Location: STAT+2
Function Call: WRITE
  • Prompt: !?10,"CHECKED IN",!?10,"CHECKED OUT",!?10,"NO ACTION TAKEN",!?10,"INPATIENT APPOINTMENT",!?10,"NON-COUNT",!?10,"ACTION REQUIRED",!
  • Line Location: STAT+3
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column output."
  • Condition for execution: $P(SD("FMT",1),U)="D"
  • Line Location: STAT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: STAT+7
Routine Call
  • DIC
  • Line Location:
    • STAT+4
Routine Call
  • DIR
  • Line Location:
    • EDT+9
    • PF+1
    • EDT1+5
    • EDT1+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SD(409.63 - [#409.63] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SCRPW41+8, EDT+2, START+4, ASK1+5, EDT1+2
^DGPM - [#405] EVAL+16
^DGPM("APRD" EVAL+16, EVAL+18
^DIC(42 - [#42] EVAL+17, WARD+2
^DPT - [#2] START+3, EVAL+9, EVAL+10, SET+1
^SC - [#44] EVAL+8, EVAL+9
^SCE("ADFN" EVAL+8
^SDV("ADT" EVAL+11
^TMP("SCRPW" START+1!, SET+3*, SET+4*, SET+5*, SET+6*, SET+8*, SET+9*, SET+10*, SORT+3

Label References

Name Line Occurrences
$$EVAL START+3
$$PF ASK+4
$$SORT SET+2
$$VET START+3
ASK EDT+4, ASK+3
EDT EDT+1
EDT1 EDT1+1
SET START+3
STAT EDT1+5
STOP START+3
WARD EVAL+19, EVAL+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+1, START+4
%DT SCRPW41+2~, SCRPW41+8*, ASK1+1~, ASK1+5*
%DT("A" SCRPW41+8*, EDT*, ASK1+5*, EDT1*
%DT(0 ASK1+5*
D0 EVAL+18~*
>> DFN START+1*, START+3*, EVAL+8, EVAL+9, EVAL+10, EVAL+11, EVAL+13, EVAL+16, EVAL+18, SET+1
, SET+3, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SORT+3
DG1 WARD+2~
DGA1 WARD+2~
DGT WARD+2~*
DGXFR0 WARD+2~
DIC STAT+3~*
DIC("A" STAT+4*
DIC("B" STAT+3*, STAT+4!
DIC("S" STAT+4*
DIC(0 STAT+3*
DIR SCRPW41+2~, EDT+9!, ASK+2, ASK+3, PF+1~, ASK1+1~, EDT1+4!, EDT1+7!
DIR("?" EDT+3*, EDT+9*, PF+1*, EDT1+4*, EDT1+7*, EDT1+9*
DIR("A" EDT+4*, EDT+9*, ASK+3*, PF+1*, EDT1+4*, EDT1+7*, EDT1+10*
DIR("B" EDT+9*, PF+1*, EDT1+5*
DIR(0 EDT+9*, ASK+2!, ASK+3!, PF+1*, EDT1+4*, EDT1+7*
>> DTOUT EDT+9, PF+1, EDT1+5, EDT1+8, STAT+4
>> DUOUT EDT+9, PF+1, EDT1+5, EDT1+8, STAT+4
I STAT+3~, STAT+4*
>> S1 ASK+2*, ASK+3, ASK+4
>> S2 ASK+3*, ASK+4
SD SCRPW41+2!, ASK1+1~
SD("BDT" SCRPW41+8*, EDT+1, START+3, ASK1+5*, EDT1+1
SD("EDT" EDT+2*, START+3, EDT1+2*
SD("FMT" EDT1+5*, EDT1+8*, STAT+7
SD("PAGE" EDT+3*, PF+2*, EDT1+9*
SD("PBDT" SCRPW41+8*, EDT+5
SD("PEDT" EDT+2*, EDT+5
SD("SORT" EDT+3*, EDT+6, EDT+7, ASK+4*, SET+2, SET+3, SET+4, SET+5, SET+6, SET+8
, SET+9, SET+10, ASK1+1*, EDT1+9*
SD("STAT" STAT+2!, STAT+4*, STAT+5
>> SD0 SET+1*
SDACR SORT~, SORT+3
SDACT SORT+2~, SORT+3*
SDBD EVAL~, EVAL+13, EVAL+22
SDDIV ASK1+1~, ASK1+3
SDDT EVAL+7~
SDDT( EVAL+8*, EVAL+9*, EVAL+11*, EVAL+15*, EVAL+17*, EVAL+18*, EVAL+21, WARD+2*
SDDT(9999999 EVAL+10*, EVAL+21
SDED EVAL~, EVAL+22
>> SDFEE START+2*, EVAL+14*
>> SDI EDT+4*, EDT+7*, ASK+1, ASK+4, PF+2, SET+2*, EDT1+10*
>> SDL EDT+7*
>> SDLINE START+4*
>> SDNOW START+1*, EVAL+20
SDNUL EDT+2*, EDT+4, ASK+2, ASK+3*, ASK1+1~*, EDT1+9*, EDT1+10
SDOE0 SORT+2~, SORT+3*
SDOUT EDT+2*, EDT+4, EDT+5, ASK+2, ASK+3, PF+1*, START+1*, START+3, START+4, STOP+1*
, ASK1+1~*, EDT1+8, EDT1+10, STAT+5
>> SDPAGE START+4*
>> SDPG START+4*
>> SDPNAM SET+1*, SET+3, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10
>> SDPNOW START+4*
SDS SET+2~
SDS( SET+2*
SDS(1 SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10
SDS(2 SET+5, SET+6, SET+7, SET+8, SET+9, SET+10
SDS(3 SET+6, SET+7, SET+8, SET+9, SET+10
SDS(4 SET+7, SET+8, SET+9, SET+10
SDS(5 SET+9, SET+10
SDS(6 SET+10
>> SDSSN SET+1*
>> SDSTOP START+1*, START+3*
SDT WARD~, WARD+2
>> SDTOT START+4*
>> SDUI SET+7*, SET+8, SET+9, SET+10
SDX EDT+3*, EDT+4, EDT+7*, ASK+1, ASK+4*, PF+1, START+3*, EVAL+7~, EVAL+8*, EVAL+9*
, EVAL+10*, EVAL+11*, EVAL+16*, EVAL+17, EVAL+18, EVAL+19, EVAL+21*, EVAL+22, SET+1*, SET+3
, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SORT+2~, SORT+4*, EDT1+9*, EDT1+10
SDX( EVAL+15, SORT+4
SDX("" SORT+4
SDXX EVAL+7~, EVAL+13*, EVAL+14, EVAL+15
SDY EVAL+7~, EVAL+8*, EVAL+9*, EVAL+16*, EVAL+17, EVAL+18
SDZ ASK+1~
>> T EDT+4*, START+1*, SORT+3, EDT1+10*
U EDT+7, ASK+3, ASK+4, START+3, EVAL+8, EVAL+9, EVAL+17, EVAL+18, EVAL+21, EVAL+22
, WARD+2, SET+1, SET+2, SORT+3, SORT+4, ASK1+5, EDT1+2, EDT1+5, EDT1+8, STAT+4
, STAT+7
>> VADM(6 VET+1
>> VAEL(4 VET+2
>> VAEL(5 VET+3
X EVAL+18~, ASK1+1~, STAT+4
Y SCRPW41+8, EDT, EDT+1, EDT+2, EDT+9, PF+2, START+4*, ASK1+1~, ASK1+5, EDT1
, EDT1+1, EDT1+2, EDT1+5, EDT1+8, STAT+4
Y(0 EDT1+5, EDT1+8
>> ZTQUEUED STOP+1
ZTSAVE EDT+10~, EDT+11, STAT+6~, STAT+7
ZTSAVE("SD(" EDT+10*, STAT+6*
ZTSAVE("SDDIV" STAT+6*
ZTSAVE("SDDIV(" STAT+6*
>> ZTSTOP STOP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All