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

Package: Patient Care Component Data Transmission

Routine: APCPDRI2


Information

APCPDRI2 ; IHS/TUCSON/LAB - OHPRD-TUCSON/EDE APCPDR SPECIFIC INITIALIZATION AUGUST 14, 1992 ; [ 03/29/04 7:53 AM ]

Source Information

Source file <APCPDRI2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Patient Care Component Data Transmission 2 (CURRUN,INFORM)^APCPDRI3  ^APCPREG  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component Data Transmission 2 APCPDRI  APCPRED1  

Entry Points

Name Comments DBIA/ICR reference
GENLOG ; GENERATE NEW LOG ENTRY
QERR ;
PERR ;
CHKVISIT ; CHECK VISIT "APCIS" XREF
RERR ;
GETLOG ; GET LAST LOG ENTRY
DISPLOG ; DISPLAY LAST LOG DATA
CONFIRM ; SEE IF THEY REALLY WANT TO DO THIS
CHKCR ;
START ;
EERR ;
FERR ;
CFLP
ERROR ;
CHKOLD ;EP - CHECK FOR DATA LEFT BY OLD RUN
CHKCR1 ;
DELCR ;

External References

Name Field # of Occurrence
CURRUN^APCPDRI3 START+6
INFORM^APCPDRI3 START+1
^APCPREG START+8
^DIC GENLOG+3
^DIR CFLP+1, CHKCR1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"*****ERROR ENCOUNTERED*****",!,"The last PCC Data Export never successfully completed to end of job!!!",!,"This must be resolved before any other exports can be done.",!
  • Line Location: EERR+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"*****ERROR ENCOUNTERED*****",!,"Whoa! The Transaction global from the previous run was NEVER successfully",!,"written to an output device (unix uucppublic file, cartridge, diskette).",!
  • Line Location: PERR+3
Function Call: WRITE
  • Prompt: !,"You must execute the menu option called 'OUTP' before any further processing.",!,"You may also need to determine whether or not the transaction global for ",!,"LOG ENTRY ",APCP("LAST LOG")," was ever received by your Area Office.",!
  • Line Location: PERR+4
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"PCC Data Transmission is currently running!!"
  • Line Location: RERR+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"PCC Data Transmission is already queued to run!!"
  • Line Location: QERR+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"The last PCC Export failed and has never been reset.",!,"See your site manager for assistence",!
  • Line Location: FERR+3
Function Call: WRITE
  • Prompt: !!,"Last run was for ",APCP("LAST BEGIN")," through ",APCP("LAST END"),"."
  • Line Location: DISPLOG+3
Function Call: WRITE
  • Prompt: !,"The location for this run is ",$P(^DIC(4,DUZ(2),0),U),".",!
  • Line Location: CONFIRM+2
Function Call: WRITE
  • Prompt: !!,"There are cross references entries for visits prior to the date of ",Z,".",!
  • Line Location: CHKCR1+1
Function Call: WRITE
  • Prompt: "These could be there because the MCH package was running prior to the start of"
  • Line Location: CHKCR1+2
Function Call: WRITE
  • Prompt: !,"PCC Data Entry."
  • Line Location: CHKCR1+3
Function Call: WRITE
  • Prompt: !,"BYE.."
  • Line Location: CHKCR1+6
Function Call: WRITE
  • Prompt: !!,"I will now clean up that cross reference.... Please be patient..."
  • Line Location: DELCR+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELCR+2
Function Call: WRITE
  • Prompt: !,"OK ALL DONE",!
  • Line Location: DELCR+3
Routine Call
  • DIC
  • Line Location:
    • GENLOG+3
Routine Call
  • DIR
  • Line Location:
    • CFLP+1
    • CHKCR1+4

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] GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1
^AUPNVSIT("APCIS" CHKVISIT+2, CHKVISIT+4, CHKVISIT+8, DELCR+2!
^BAPCDATA( CHKOLD+1, GENLOG+6!
^DD("DD" DISPLOG+1, GENLOG+2, CHKCR+1
^DIC(4 - [#4] CONFIRM+2
^XTMP("APCPDR" CHKOLD+2
^XTMP("APCPREDO" CHKOLD+3

Label References

Name Line Occurrences
@( ERROR+4
CHKCR CHKVISIT+3
CHKCR1 CHKCR+2
CHKOLD START+4
CHKVISIT START+10
CONFIRM START+12
DELCR CHKCR1+7
DISPLOG GETLOG+4
EERR ERROR+3
ERROR GETLOG+6
GENLOG START+14
GETLOG START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCP("DATE" DELCR+2*
>> APCP("FIRST R UN" , CHKVISIT+3
>> APCP("LAST BE GIN" , DISPLOG+1*, DISPLOG+3
>> APCP("LAST EN D" , DISPLOG+1*, DISPLOG+3
>> APCP("LAST LO G" , GETLOG+1*, GETLOG+3, GETLOG+5, ERROR+2, PERR+4, DISPLOG+1
>> APCP("PREV ST ATUS" , ERROR+2*, ERROR+3, ERROR+4
>> APCP("QFLG" START+3, START+5, START+7, START+9, START+11, START+13, CHKOLD+1*, CHKOLD+2*, CHKOLD+3*, ERROR+1*
, EERR+1*, PERR+1*, RERR+1*, QERR+1*, FERR+1*, CHKVISIT+3, CHKVISIT+5*, CHKVISIT+9*, CFLP+2*, GENLOG+4*
, CHKCR1+5*, CHKCR1+6*
>> APCP("RUN BEG IN" , CHKVISIT+5, CHKVISIT+7, GENLOG+2, CHKCR+1, CHKCR+2, DELCR+2
>> APCP("RUN END " , CHKVISIT+9, GENLOG+2
>> APCP("RUN LOG " , GENLOG+5*
>> APCPV("V DATE " , CHKVISIT+1*, CHKVISIT+2*, CHKVISIT+4*, CHKVISIT+5, CHKVISIT+7*, CHKVISIT+8*, CHKVISIT+9, CHKCR+2
DA CFLP+1!, CHKCR1+4!
DIC GENLOG+2*, GENLOG+3!
DIC("DR" GENLOG+2*
DIC(0 GENLOG+2*
DIR CFLP+1!, CHKCR1+4!
DIR("A" CFLP+1*, CHKCR1+4*
DIR("B" CFLP+1*
DIR(0 CFLP+1*, CHKCR1+4*
>> DIRUT CHKCR1+5
DLAYGO GENLOG+2*, GENLOG+3!
DR GENLOG+3!
DUZ(2 CONFIRM+2, GENLOG+2
U GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1, CONFIRM+2
>> X GETLOG+1*, GENLOG+2*, DELCR+2*
>> Y DISPLOG+1*, CFLP+2, GENLOG+2*, GENLOG+4, GENLOG+5, CHKCR+1*, CHKCR1+6
>> Z CHKCR+1*, CHKCR1+1, CHKCR1+4
>> ZTQUEUED CHKOLD+1, CHKOLD+2, CHKOLD+3, PERR+3, DISPLOG+2, CHKVISIT+5, CHKVISIT+9, CONFIRM+1, GENLOG+1
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 |  Local Variables |  All