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

Package: Patient Care Component Data Transmission

Routine: APCPDISP


Information

APCPDISP ; IHS/TUCSON/LAB - DISPLAY PCC EXPORT LOG DATA AUGUST 14, 1992 ; [ 03/03/03 9:44 AM ]

Source Information

Source file <APCPDISP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 2 ^XBDBQUE  $$VAL^XBDIQ1  
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
TEXT ;
EN1 ;
XIT ;EP
FF ;
PRINT ;
PROC ;

External References

Name Field # of Occurrence
^DIC EN1+4
^DIR TEXT+8, FF+1
^XBDBQUE EN1+7
$$VAL^XBDIQ1 PRINT+9, PRINT+11, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22
, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28
$$FMTE^XLFDT PRINT+2, PRINT+5, PRINT+6, PRINT+7, PRINT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Display PCC DATA TRANSMISSION Log Entry",!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"Goodbye"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?19,"PCC DATA TRANSMISSION LOG REPORT"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?7,"Information for Log Entry ",APCPLOG," Beginning Date: ",$$FMTE^XLFDT($P(^APCPLOG(APCPLOG,0),U))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?30,"Number:",?40,APCPLOG
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?22,"Beginning Date:",?40,$$FMTE^XLFDT($P(APCPREC,U))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?25,"Ending Date:",?40,$$FMTE^XLFDT($P(APCPREC,U,2))
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?17,"Run Start Date/Time:",?40,$$FMTE^XLFDT($P(APCPREC,U,3))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?18,"Run Stop Date/Time:",?40,$$FMTE^XLFDT($P(APCPREC,U,4))
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?24,"Run Location:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.09)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?22,"** Special Date Range Re-Export **"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !?17,"Transmission Status:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.15)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?17,"File name created: ",?40,$P(APCPREC,U,24)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?17,"This log entry was created with REDO."
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!?4,"Total Number of Visits Processed:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.08)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !!?11,"Number of APC Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.13)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !?5,"Number of Inpatient Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.11)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !?11,"Number of CHA Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.14)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !?2,"Reasons Visits were skipped and did not generate a statistical record:"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !?6,"# STATISTICAL DATABASE Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.17)
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !!,"Total Number of Records Transmitted to the Area Office: ",$$VAL^XBDIQ1(9001005,APCPLOG,.06)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !!,"To list the errors, use the 'ERRS - List PCC Data Transmission Errors Report."
  • Line Location: TEXT+4
Function Call: WRITE
  • Prompt: !?40,"PCC Data Transmission Log - Page 2",!!
  • Line Location: FF+3
Routine Call
  • DIC
  • Line Location:
    • EN1+4
Routine Call
  • DIR
  • Line Location:
    • TEXT+8
    • FF+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCPLOG - [#9001005] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCPLOG - [#9001005] PRINT+2, PRINT+3, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+21, PRINT+22, PRINT+23, PRINT+24
, PRINT+25, PRINT+26

Label References

Name Line Occurrences
FF TEXT+1
XIT EN1+4, EN1+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCPLOG EN1+5*, XIT+1!, PRINT+2, PRINT+3, PRINT+4, PRINT+9, PRINT+11, PRINT+14, PRINT+15, PRINT+16
, PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27
, PRINT+28
APCPQUIT EN1+2!, TEXT+1, FF+1*
APCPREC XIT+1!, PRINT+3*, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10, PRINT+12, PRINT+13
DIC EN1+4*!
DIC(0 EN1+4*
DIR TEXT+8!, FF+1!
DIR("A" TEXT+8*, FF+1*
DIR(0 TEXT+8*, FF+1*
>> DIRUT TEXT+8*, FF+1
>> DUOUT TEXT+8
IOF EN1+1, PRINT+1, FF+2
IOSL TEXT+1
IOST TEXT+6, FF+1
U PRINT+2, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10, PRINT+12, PRINT+13, PRINT+15, PRINT+16
, PRINT+17, PRINT+18, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26
>> XBNS EN1+6*
>> XBRC EN1+6*
>> XBRP EN1+6*
>> XBRX EN1+6*
>> Y EN1+4, EN1+5
>> ZTQUEUED TEXT+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All