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 |  Marked Items |  All
Print Page as PDF
Routine: SCDXPOV3

Package: Scheduling

Routine: SCDXPOV3


Information

SCDXPOV3 ; ALB/SCK - VISIT REPORT BY NPCDB TRANSMISSION STATUS ; 05 Oct 98 8:38 PM

Source Information

Source file <SCDXPOV3.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Scheduling 4 INIT^SCDXPOV  ^SCDXPOV1  ($$COVPRI,$$ELGPRI,CLEAR)^SCDXPOV2  DTS^SDUTL  
Registration 1 $$SITE^VASITE  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCDXPOV  

Entry Points

Name Comments DBIA/ICR reference
NEWPAGE ;
VISQ
HDR ; Print the report header
; Variables
; LINEOUT - Message line for header
; END - Timeout or Uparrow flag for read
VISRPT ; Print body of the Visit report consolidated by number of visits.
WRT ; Call procedures to initialize report data global, build the report global, and then print the report.
VISIT(SCXDT,SCXP,SCXE,SCXET,SCXV,SCXC) ; Update visit count for this encounter
; Input:
; SCXDT - Visit date
; SCXP - Patients DFN
; SCXE - Vet Eligibility status of encounter
; SCXET - Vet. or Non-Vet status
; SCXV - Category of visit
; SCXC - C&P status of encounter
MSG ;
BLDRPT ; Build data global for report. Order through date/patient TMP global, and count the number of unique
; visits. Increment the appropriate report data global.

External References

Name Field # of Occurrence
^DIR NEWPAGE+2
INIT^SCDXPOV WRT+11
^SCDXPOV1 VISRPT+32
$$COVPRI^SCDXPOV2 VISIT+23, VISIT+25
$$ELGPRI^SCDXPOV2 VISIT+17, VISIT+19
CLEAR^SCDXPOV2 NEWPAGE+2
DTS^SDUTL HDR+11, HDR+13
$$SITE^VASITE WRT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"VETERAN ELIGIBILITY",!
  • Line Location: VISRPT+11
Function Call: WRITE
  • Prompt: !?8,$P(^DIC(8,NUM,0),U),?45,$J($P(^TMP("SCDXPOV",$J,"VISITS","VELIG",NUM),U),6)
  • Line Location: VISRPT+14
Function Call: WRITE
  • Prompt: !?42,SDASH,!,?5,"Veteran Sub-Total",?45,$J(SBTT,6)
  • Line Location: VISRPT+17
Function Call: WRITE
  • Prompt: !!,?5,"NON-VETERAN ELIGIBILITY",!
  • Line Location: VISRPT+20
Function Call: WRITE
  • Prompt: !?8,$P(^DIC(8,NUM,0),U),?45,$J($P(^TMP("SCDXPOV",$J,"VISITS","NVELIG",NUM),U),6)
  • Line Location: VISRPT+23
Function Call: WRITE
  • Prompt: !?42,SDASH,!,?5,"Non-Veteran Sub-Total",?45,$J(SBTT,6)
  • Line Location: VISRPT+26
Function Call: WRITE
  • Prompt: !!,?5,"CATEGORY OF VISIT",!
  • Line Location: VISRPT+29
Function Call: WRITE
  • Prompt: !?8,$P($T(VISIT+NUM^SCDXPOV1),";",3),?45,$J($P(^TMP("SCDXPOV",$J,"VISITS","COV",NUM),U),6)
  • Line Location: VISRPT+32
Function Call: WRITE
  • Prompt: !?42,SDASH,!,?5,"Category Sub-Total",?45,$J(SBTT,6)
  • Line Location: VISRPT+35
Function Call: WRITE
  • Prompt: !!,?8,"Compensation and Penison appointments are included in the above",!?8,"categories and totals and are shown here for information only"
  • Line Location: VISRPT+38
Function Call: WRITE
  • Prompt: !!?8,"COMPENSATION AND PENSION",?45,$J($P(^TMP("SCDXPOV",$J,"VISITS","CP"),U),6)
  • Line Location: VISRPT+39
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?(IOM-$L(HD2))/2,HD2
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?2,"Facility: "_DNAME,?(IOM-$L(HD1))-5,HD1
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !?8,LINEOUT
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!?48,"VISITS"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,SDBDASH
  • Line Location: HDR+19
Function Call: READ
  • Timeout: DTIME
  • Variable: LL
  • Line Location: NEWPAGE+3
Routine Call
  • DIR
  • Line Location:
    • NEWPAGE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8 - [#8] VISRPT+14, VISRPT+23
^TMP("SCDXPOV" BLDRPT+15, BLDRPT+16*, BLDRPT+21, BLDRPT+22*, BLDRPT+27*, VISRPT+13, VISRPT+14, VISRPT+15, VISRPT+22, VISRPT+23
, VISRPT+24, VISRPT+31, VISRPT+32, VISRPT+33, VISRPT+39
^TMP("SCDXV" VISIT+15, VISIT+16, VISIT+18*, VISIT+19*, VISIT+21, VISIT+22, VISIT+24*, VISIT+25*, VISIT+27, VISIT+28*
, BLDRPT+12, BLDRPT+13, BLDRPT+14, BLDRPT+19, BLDRPT+20, BLDRPT+21, BLDRPT+22, BLDRPT+25, BLDRPT+26

Label References

Name Line Occurrences
BLDRPT WRT+11
HDR VISRPT+9, NEWPAGE+4
NEWPAGE VISRPT+10, VISRPT+13, VISRPT+18, VISRPT+22, VISRPT+27, VISRPT+31, VISRPT+36
VISQ VISRPT+10, VISRPT+13, VISRPT+18, VISRPT+22, VISRPT+27, VISRPT+31, VISRPT+36
VISRPT WRT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DIR(0 NEWPAGE+2*
DNAME WRT+6~, WRT+10*, HDR+15
DVN WRT+6~, WRT+10*
END HDR+5~
HD1 HDR+5~, HDR+10*, HDR+12*, HDR+14*, HDR+15
HD2 HDR+5~, HDR+8*, HDR+9
IO WRT+8
IOF HDR+7
IOM HDR+9, HDR+15
IOSL VISRPT+10, VISRPT+13, VISRPT+18, VISRPT+22, VISRPT+27, VISRPT+31, VISRPT+36
IOST NEWPAGE+2
L1 VISIT+13~, VISIT+17*, VISIT+18, VISIT+23*, VISIT+24, VISRPT+7~
LINEOUT HDR+5~, HDR+17*
LL HDR+5~, HDR+17*, NEWPAGE+1~
LV1 BLDRPT+9~, BLDRPT+15*, BLDRPT+16, BLDRPT+21*, BLDRPT+22
NUM VISRPT+7~, VISRPT+12*, VISRPT+13*, VISRPT+14, VISRPT+15, VISRPT+21*, VISRPT+22*, VISRPT+23, VISRPT+24, VISRPT+30*
, VISRPT+31*, VISRPT+32, VISRPT+33
SBTT VISRPT+7~, VISRPT+12*, VISRPT+15*, VISRPT+17, VISRPT+21*, VISRPT+24*, VISRPT+26, VISRPT+30*, VISRPT+33*, VISRPT+35
SCHL VISIT+13~, VISIT+16*, VISIT+17, VISIT+22*, VISIT+23
SCX BLDRPT+9~, BLDRPT+14*, BLDRPT+15, BLDRPT+16
>> SCXABRT VISRPT+10, VISRPT+13, VISRPT+18, VISRPT+22, VISRPT+27, VISRPT+31, VISRPT+36, NEWPAGE+2*, NEWPAGE+4
>> SCXBEG WRT+10, HDR+11
SCXC VISIT~, VISIT+27
SCXDT VISIT~, VISIT+15, VISIT+16, VISIT+18, VISIT+19, VISIT+21, VISIT+22, VISIT+24, VISIT+25, VISIT+27
, VISIT+28, BLDRPT+9~, BLDRPT+10*, BLDRPT+12*, BLDRPT+13, BLDRPT+14, BLDRPT+19*, BLDRPT+20, BLDRPT+21, BLDRPT+22
, BLDRPT+25*, BLDRPT+26
SCXE VISIT~, VISIT+17, VISIT+18, VISIT+19
>> SCXEND HDR+13
SCXET VISIT~, VISIT+18, VISIT+19
SCXP VISIT~, VISIT+15, VISIT+16, VISIT+18, VISIT+19, VISIT+21, VISIT+22, VISIT+24, VISIT+25, VISIT+27
, VISIT+28, BLDRPT+9~, BLDRPT+13*, BLDRPT+14, BLDRPT+20*, BLDRPT+21, BLDRPT+22, BLDRPT+26*
SCXV VISIT~, VISIT+23, VISIT+24, VISIT+25
SDASH WRT+6~, WRT+7*, VISRPT+17, VISRPT+26, VISRPT+35
SDBDASH WRT+6~, WRT+7*, HDR+19
U VISIT+16, VISIT+18, VISIT+19, VISIT+22, VISIT+24, VISIT+25, WRT+10, BLDRPT+15, BLDRPT+16, BLDRPT+21
, BLDRPT+22, BLDRPT+27, VISRPT+14, VISRPT+15, VISRPT+23, VISRPT+24, VISRPT+32, VISRPT+33, VISRPT+39
>> Y HDR+11*, HDR+12, HDR+13*, HDR+14, NEWPAGE+2

Marked Items

Name Field # of Occurrence
$T(MSG+(3) HDR+17
$T(VISIT+NUM^SCDXPOV1 VISRPT+32
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All