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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCPSRP

Package: Patient Care Component Data Transmission

Routine: APCPSRP


Information

APCPSRP ; IHS/TUCSON/LAB - print Operational summary AUGUST 14, 1992 ; [ 08/17/03 8:19 PM ]

Source Information

Source file <APCPSRP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Care Component Data Transmission 5 CHKSITE^APCPDRI  (APC,INPT)^APCPSRP2  ^APCPSRP3  ^APCPSRP4  ^APCPSRP5  
VA Fileman 3 DD^%DT  EN^DIQ1  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Patient Care Component Data Transmission 5 APCPSR  APCPSRP2  APCPSRP3  APCPSRP4  APCPSRP5  

Entry Points

Name Comments DBIA/ICR reference
CHA ;PRINT CHA TOTALS
HEAD ;EP
SKIPPED ;
HEAD1 ;
STATDB ;
OVERVIEW ;
GEN ;
START ;
TAPE ;
EOJ ;
PRINT ;
DENT ;
INPT ;

External References

Name Field # of Occurrence
DD^%DT START+3
CHKSITE^APCPDRI START+1
APC^APCPSRP2 GEN+5
INPT^APCPSRP2 INPT+4
^APCPSRP3 SKIPPED+2
^APCPSRP4 CHA+3
^APCPSRP5 STATDB+2
EN^DIQ1 TAPE+3
^DIR START+8, HEAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: OVERVIEW+2
Function Call: WRITE
  • Prompt: !,"Your site is currently set up to generate the following record types: "
  • Line Location: OVERVIEW+3
Function Call: WRITE
  • Prompt: !!,"This PCC Export was processed on ",APCPSR("RUN DATE")," for Posting Dates",!,APCPSR("PRINT BEGIN")," to ",APCPSR("PRINT END"),". A total of ",$P(^APCPLOG(APCPSR("LOG"),0),U,8)," visits were processed, exporting "
  • Line Location: OVERVIEW+8
Function Call: WRITE
  • Prompt: !,"the following ",$P(^APCPLOG(APCPSR("LOG"),0),U,6)," transaction records:",!
  • Line Location: OVERVIEW+9
Function Call: WRITE
  • Prompt: !!,"APC VISITS EXPORTED"
  • Line Location: GEN+3
Function Call: WRITE
  • Prompt: !,"Following is a breakdown of all visits that generated APC transactions by Visit",!,"Date, Type, Location, Service Category, Clinic and Primary Provider Discipline."
  • Line Location: GEN+4
Function Call: WRITE
  • Prompt: !!!,"VISITS EXPORTED TO THE IHS DIRECT INPATIENT SYSTEM"
  • Line Location: INPT+2
Function Call: WRITE
  • Prompt: !,"Following is a breakdown of all visits that generated Direct Inpatient",!,"Transactions:",!
  • Line Location: INPT+3
Function Call: WRITE
  • Prompt: !!,"DENTAL VISITS"
  • Line Location: DENT+2
Function Call: WRITE
  • Prompt: !,^XTMP("APCPSR",APCPJOB,APCPBTH,"GEN","DENTWMEDS")," of the above PHARMACY Clinic visits were actually DENTAL Clinic visits",!,"on which a medication was prescribed. The DENTAL Clinic visits were ",!
  • Line Location: DENT+3
Function Call: WRITE
  • Prompt: "converted to PHARMACY Clinic prior to generating the APC transaction record.",!
  • Line Location: DENT+4
Function Call: WRITE
  • Prompt: !!!,"COMMUNITY HEALTH NURSING ACTIVITY (CHA) TRANSACTIONS"
  • Line Location: CHA+2
Function Call: WRITE
  • Prompt: !!,"The Transmission Status for this Export is: "
  • Line Location: TAPE+1
Function Call: WRITE
  • Prompt: ^UTILITY("DIQ1",$J,9001005,APCPSR("LOG"),.15,"E"),!
  • Line Location: TAPE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?45,"PCC Transmission Summary Page ",APCPSR("PG")
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,"Report Run Date: ",APCPSR("DTP"),?70,"Page ",APCPSR("PG")
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !!?((80-APCPSR("LENG"))/2),"DATA TRANSMISSION SUMMARY FOR ",APCPSR("FAC PRINT")
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?20,"Date Export Run: ",APCPSR("RUN DATE")
  • Line Location: HEAD1+5
Routine Call
  • DIR
  • Line Location:
    • START+8
    • HEAD+2

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] START+3, OVERVIEW+8, OVERVIEW+9, OVERVIEW+13, INPT+1
^DIC(4 - [#4] START+2
^UTILITY("DIQ1" TAPE+4
^XTMP("APCPSR" DENT+1, DENT+3

Label References

Name Line Occurrences
CHA DENT+1
DENT INPT+1
HEAD START+5, OVERVIEW+1
HEAD1 HEAD+1
PRINT START+7
STATDB GEN+1, CHA+1

Naked Globals

Name Field # of Occurrence
^(0 OVERVIEW+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCP1 EOJ+1!
APCP2 EOJ+1!
APCP3 EOJ+1!, EOJ+2!
>> APCPBTH DENT+1, DENT+3
>> APCPJOB DENT+1, DENT+3
APCPLC EOJ+1!
APCPPTR EOJ+2!
>> APCPS("CHA" CHA+1
>> APCPS("STAT" OVERVIEW+7
>> APCPSR("DTP" HEAD1+3
>> APCPSR("FAC P RINT" , START+2*, HEAD1+2, HEAD1+4
>> APCPSR("LENG" HEAD1+2*, HEAD1+4
>> APCPSR("LOG" START+3, OVERVIEW+8, OVERVIEW+9, OVERVIEW+13, INPT+1, TAPE+3, TAPE+4
>> APCPSR("PG" START+4*, HEAD+1, HEAD+3*, HEAD+4, HEAD1+1*, HEAD1+3
>> APCPSR("PRINT BEGIN" , OVERVIEW+8,  END" , OVERVIEW+8
>> APCPSR("QUIT" START+6!, OVERVIEW+1, GEN+6, INPT+5, CHA+4, STATDB+3, SKIPPED+3, HEAD+2*
>> APCPSR("RUN D ATE" , START+3*, OVERVIEW+8, HEAD1+5
APCPT EOJ+1!, EOJ+2!
APCPTOTC EOJ+1!, EOJ+2!
APCPTOTO EOJ+1!, EOJ+2!
APCPWC EOJ+2!
APCPX EOJ+1!
DA TAPE+2!, TAPE+3*!
DIC TAPE+2!, TAPE+3*!
DIQ TAPE+2!, TAPE+3!
DIQ(0 TAPE+3*
DIR START+8!, HEAD+2!
DIR("A" START+8*
DIR(0 START+8*, HEAD+2*
DR TAPE+2!, TAPE+3*!
>> DTOUT HEAD+2
DUZ(2 START+2
G EOJ+3!
IO START+8, HEAD+2
IO(0 START+8, HEAD+2
IOF HEAD+4, HEAD1+1
IOSL OVERVIEW+1
IOST START+8, HEAD+2
U START+2, START+3, OVERVIEW+8, OVERVIEW+9, OVERVIEW+13, INPT+1
X EOJ+3!
Y START+3*, EOJ+3!, HEAD+2
Z EOJ+3!
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 |  Naked Globals |  Local Variables |  All