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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCPRCH1

Package: Patient Care Component Data Transmission

Routine: APCPRCH1


Information

APCPRCH1 ; IHS/TUCSON/LAB - AMBULATORY OPERATIONS SUMMARY AUGUST 14, 1992 ; [ 02/14/00 2:22 PM ]

Source Information

Source file <APCPRCH1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
Patient Care Component Data Transmission 1 CHKSITE^APCPDRI  

Entry Points

Name Comments DBIA/ICR reference
C56 ;;
HEAD
C54 ;;
VD ;
C42 ;;
HEAD1 ;
EOJ ;
PRN ;
C68 ;;
C51 ;;
START ;
CLINIC ;
HRN
C60 ;;
PRINT ;
C53 ;;
PROC ;
C52 ;;

External References

Name Field # of Occurrence
DD^%DT START+5
CHKSITE^APCPDRI START+2
^DIR START+13, HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No CHA records"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!?50,"TOTAL CHA RECORDS: ",^XTMP("APCPRCH",APCPJOB,APCPBTH,"GEN","TOTAL")
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,APCPRCH("HRN"),?8,APCPRCH("RD"),?27,APCPRCH("V LOC"),?47,APCPRCH("CLINIC"),?51,APCPRCH("DATE LAST MOD")
  • Line Location: PRN+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C>0
  • Line Location: PRN+3
Function Call: WRITE
  • Prompt: ?61,$E($P(^VA(200,$P(^AUPNVPRV(X,0),U),0),U),1,18)
  • Line Location: PRN+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C>0
  • Line Location: PRN+4
Function Call: WRITE
  • Prompt: ?61,$E($P(^DIC(16,$P(^AUPNVPRV(X,0),U),0),U),1,18)
  • Line Location: PRN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Report Run Date: ",APCPRCH("DTP"),?70,"Page ",APCPRCH("PG")
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !!?((80-APCPRCH("LENG"))/2),"PCC DATA TRANSMISSION FOR ",APCPRCH(" PRINT")
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?15,"Listing of VISITS that Generated CHA Transactions"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !?18,"Date Export Run: ",APCPRCH("RUN DATE")
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !?8,"Visits Processed for Posting Dates: ",APCPRCH("PRINT BEGIN")," to ",APCPRCH("PRINT END")
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !!,APCPRCH("80D"),!," HRN ",?8,"VISIT DATE/TIME",?28,"LOCATION",?47,"CL",?51,"DATE MOD",?61,"PROVIDERS",!,APCPRCH("80D"),!
  • Line Location: HEAD1+8
Routine Call
  • DIR
  • Line Location:
    • START+13
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCPLOG - [#9001005] START+5
^APCPSITE(1 START+3
^AUPNPAT - [#9000001] HRN
^AUPNVPRV - [#9000010.06] PRN+3, PRN+4
^AUPNVPRV("AD" PRN+2
^AUPNVSIT - [#9000010] PRINT+2, CLINIC+1
^DD("DD" VD+1
^DD(9000010.06 PRN+3, PRN+4
^DIC(16 - [#16] PRN+4
^DIC(4 - [#4] START+4, PRINT+2
^DIC(40.7 - [#40.7] CLINIC+2
^VA(200 - [#200] PRN+3
^XTMP("APCPRCH" START+8, START+12, EOJ+1!, PROC+1

Label References

Name Line Occurrences
EOJ START+8, START+11
HEAD START+7, PRINT+1
HEAD1 HEAD
HRN CLINIC+1
PRINT PROC+1
PROC START+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCPBTH START+8, START+12, EOJ+1, PROC+1
>> APCPJOB START+8, START+12, EOJ+1, PROC+1
>> APCPRCH(" PRI NT" , START+4*, HEAD1+2, HEAD1+4
>> APCPRCH("80D" START+1*, HEAD1+8
>> APCPRCH("CLINIC" CLINIC+1*, CLINIC+2*, PRN+1
>> APCPRCH("DATE LAST MOD" , HRN+1*, PRN+1
>> APCPRCH("DTP" HEAD1+3
>> APCPRCH("HRN" HRN*, PRN+1
>> APCPRCH("LENG" HEAD1+2*, HEAD1+4
>> APCPRCH("LOG" START+5
>> APCPRCH("PAT DFN" , HRN*
>> APCPRCH("PG" START+6*, HEAD, HEAD1+1*, HEAD1+3
>> APCPRCH("PRIN T BEGIN" , HEAD1+7, T END" , HEAD1+7
>> APCPRCH("QUIT" START+9!, START+11, PROC+1, PRINT+1, HEAD+1*
>> APCPRCH("RD" VD+1*, PRN+1
>> APCPRCH("RUN DATE" , START+5*, HEAD1+6, SITE" , START+3*, START+4, HRN
>> APCPRCH("SC" PRINT+2*
>> APCPRCH("TYPE" PRINT+2*
>> APCPRCH("V LO C" , PRINT+2*, PRN+1
>> APCPRCH("V" PROC+1*, PRINT+2, CLINIC+1, PRN+2
>> APCPRCH("VR" PRINT+2*, HRN, HRN+1, VD+1
>> C PRN+2*, PRN+3*, PRN+4*
DIR START+13!, HEAD+1!
DIR("A" START+13*
DIR(0 START+13*, HEAD+1*
>> DIRUT START+13*
>> DTOUT HEAD+1
>> DUOUT START+13
IO START+13, HEAD+1
IO(0 START+13, HEAD+1
IOF EOJ+2, HEAD1+1
IOSL PRINT+1
IOST START+13, HEAD+1
U START+4, START+5, PRINT+2, CLINIC+1, CLINIC+2, HRN, HRN+1, PRN+3, PRN+4
>> X PRN+2*, PRN+3, PRN+4
>> Y START+5*, HRN+1*, VD+1*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All