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

Package: Patient Care Component Data Transmission

Routine: APCPDR


Information

APCPDR ; IHS/TUCSON/LAB - MAIN DRIVER FOR PCC EXPORT TX GEN AUGUST 14, 1992 ; [ 12/16/03 7:59 AM ]

Source Information

Source file <APCPDR.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Patient Care Component Data Transmission 6 ^APCPDR2  ^APCPDRI  ERRBULL^APCPDRI3  (,RUNTIME)^APCPEOJ  ^APCPLOG  EN^APCPTAPE  
VA Fileman 3 (,NOW)^%DTC  ^DIE  ^DIR  
IHS Patient 2 KILL^AUPNPAT  $$UID^AUPNVSIT  
Kernel 1 $$FMADD^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
RESET ; kill PCIS xref and set flag if tx 23 or 24 generated
PROCESS ;
EOJ ; EOJ
PURGE2 ;
DRIVER ;EP called from TSKMN+2
PURGE ; PURGE 'APCIS' XREF FOR VISITS JUST DONE
START ;EP - called from option
ABORT ; ABNORMAL TERMINATION
TAPE ; COPY TRANSACTIONS TO TAPE
PROCESS3 ;
PROCESS2 ;
CHKLOG ; CHECK LOG FILE

External References

Name Field # of Occurrence
^%DTC DRIVER+3
NOW^%DTC DRIVER+2
^APCPDR2 PROCESS3+10
^APCPDRI START+3
ERRBULL^APCPDRI3 TAPE+3, ABORT+2
^APCPEOJ EOJ+1
RUNTIME^APCPEOJ DRIVER+18
^APCPLOG DRIVER+15
EN^APCPTAPE TAPE+3, TAPE+11
KILL^AUPNPAT PROCESS3+2
$$UID^AUPNVSIT PROCESS3+7
^DIE DRIVER+9, RESET+2
^DIR DRIVER+22, TAPE+8, ABORT+4
$$FMADD^XLFDT PROCESS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Okay, request queued!!",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"Bye",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"-->There are more than fifteen generations of VISITs stored in the LOG file.",!,"-->Time to do a purge."
  • Line Location: CHKLOG+2
Function Call: WRITE
  • Prompt: !!,"Abnormal termination!! QFLG=",APCP("QFLG")
  • Line Location: ABORT+3
Routine Call
  • DIE
  • Line Location:
    • DRIVER+9
    • RESET+2
Routine Call
  • DIR
  • Line Location:
    • DRIVER+22
    • TAPE+8
    • ABORT+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" DRIVER+7
^APCPERRC("B" ABORT+1
^APCPLOG - [#9001005] PROCESS3+3, PROCESS3+11*, PROCESS3+12*, PROCESS3+13*, CHKLOG+1
^APCPSITE(1 TAPE+1, TAPE+3, TAPE+5
^AUPNVSIT - [#9000010] PROCESS3+6, PROCESS3+7*, PROCESS3+8
^AUPNVSIT("APCIS" PROCESS+4, PROCESS2+1, RESET+1!
^AUTTSITE(1 DRIVER+5, DRIVER+6, DRIVER+7, DRIVER+8
^XTMP("APCPDR" PROCESS+1*, PROCESS3+4*, PROCESS3+12, PURGE+3, PURGE+4!, PURGE2+1, RESET+2

Label References

Name Line Occurrences
ABORT START+6, DRIVER+11, DRIVER+14, DRIVER+16, DRIVER+20
CHKLOG DRIVER+21
EOJ START+4, START+5, DRIVER+23, ABORT+2, ABORT+5
PROCESS DRIVER+13
PROCESS2 PROCESS+4
PROCESS3 PROCESS2+1
PURGE DRIVER+17
PURGE2 PURGE+3
RESET PURGE2+1
TAPE DRIVER+19

Naked Globals

Name Field # of Occurrence
^(0 PROCESS3+13*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DRIVER+2!
%H DRIVER+2!
%I DRIVER+2!
>> APCP("APCPTAPE" TAPE+11*
>> APCP("BT" DRIVER+1*
>> APCP("CONTROL DATE" , PROCESS+3*, PROCESS+4*, PROCESS2+1, PROCESS3+4
>> APCP("DEF DEV ICE" , TAPE+1*, TAPE+2, TAPE+3, TAPE+5
>> APCP("FILENAME" DRIVER+4*, DRIVER+5*, DRIVER+7*, DRIVER+8*, DRIVER+9
>> APCP("I" CHKLOG+1*
>> APCP("MAIN TX DATE" , DRIVER+2*
>> APCP("POSTING DATE" , PROCESS+3*
>> APCP("QFLG" START+5, START+6, DRIVER+11, DRIVER+14, DRIVER+16, DRIVER+20, PROCESS+4, PROCESS2+1, TAPE+2*, TAPE+3
, TAPE+6, TAPE+12*, ABORT+1, ABORT+3
>> APCP("QFLG1" ABORT+1*
>> APCP("RUN BEG IN" , PROCESS+3
>> APCP("RUN END " , PROCESS+4
>> APCP("RUN LOG " , DRIVER+9, PROCESS3+3, PROCESS3+11, PROCESS3+12, PROCESS3+13, CHKLOG+1, ABORT+1
>> APCP("RUN STA RT" , DRIVER+2*, DRIVER+9
>> APCP("V DFN" PROCESS2+1*, PROCESS3+3, PROCESS3+4, PROCESS3+6, PROCESS3+7, PROCESS3+8, PROCESS3+12, PROCESS3+13, PURGE2+1*, RESET+1
, RESET+2
>> APCP("X" CHKLOG+1*, CHKLOG+2
>> APCPCNT DRIVER+12*, PROCESS3+5, RESET+3
>> APCPCNT1 DRIVER+12*
>> APCPCNT2 DRIVER+12*
>> APCPCNTR PROCESS+3*, PURGE+2*
APCPE PROCESS3+1!
>> APCPJD DRIVER+3*, DRIVER+5, DRIVER+7, DRIVER+8
>> APCPO("QUEUE" START+4
>> APCPO("RUN" START+2*
>> APCPO("SCHEDULED" START+1*
APCPT PROCESS3+1!
APCPV PROCESS3+1!
APCPV("DEP CO UNT" , PROCESS3+12
APCPV("STAT T X GEN" , PROCESS3+4*, PROCESS3+12
APCPV("TX GEN ERATED" , PROCESS3+4*, PROCESS3+12
APCPV("TYPE" PROCESS3+12
APCPV("V DATE " , PROCESS3+9*, PURGE+2*, PURGE+3*, PURGE2+1, RESET+1
APCPV("V REC" , PROCESS3+8*, PROCESS3+9
DA DRIVER+9*!, DRIVER+22!, RESET+2*!, TAPE+8!, ABORT+1*, ABORT+4!
DIC PROCESS3+14!
DIE DRIVER+9*!, PROCESS3+14!, RESET+2*!, ABORT+1*
DIR DRIVER+22!, TAPE+8!, ABORT+4!
DIR("A" DRIVER+22*, TAPE+8*, ABORT+4*
DIR("B" TAPE+8*
DIR(0 DRIVER+22*, TAPE+8*, ABORT+4*
>> DIRUT TAPE+9
DR DRIVER+9*!, PROCESS3+14!, RESET+2*!, ABORT+1*
DT DRIVER+3, PROCESS+1
U DRIVER+5, DRIVER+6, DRIVER+7, DRIVER+8, PROCESS+1, PROCESS3+7, PROCESS3+12, PROCESS3+13, TAPE+1, TAPE+3
, TAPE+5
>> X DRIVER+3
>> X1 DRIVER+3*
>> X2 DRIVER+3*
>> Y TAPE+10, TAPE+11
>> ZTQUEUED START+1, DRIVER+12, DRIVER+21, DRIVER+22, PROCESS+2, PURGE+1, TAPE+2, TAPE+3, TAPE+7, ABORT+2
Info |  Source |  Call 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