Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
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
WRT ; Call procedures to initialize report data global, build the report global, and then print the report.
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.
VISRPT ; Print body of the Visit report consolidated by number of visits.
VISQ
HDR ; Print the report header
; Variables
; LINEOUT - Message line for header
; END - Timeout or Uparrow flag for read
NEWPAGE ;
MSG ;

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
  • Variable: LL
  • Timeout: DTIME
  • Line Location: NEWPAGE+3
Info |  Source |  Entry Points |  Interaction Calls