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 |  Marked Items |  All
Print Page as PDF
Routine: APCPSRE

Package: Patient Care Component Data Transmission

Routine: APCPSRE


Information

APCPSRE ; IHS/TUCSON/LAB - CMI ; [ 12/16/03 8:07 AM ]

Source Information

Source file <APCPSRE.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 5 (,C,NOW)^%DTC  ^DIC  ^DIE  ^DIK  ^DIR  
Patient Care Component Data Transmission 4 ^APCPDR2  CHKSITE^APCPDRI  ^APCPLOG  EN^APCPTAPE  
Kernel 3 HOME^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
IHS Patient 2 KILL^AUPNPAT  $$UID^AUPNVSIT  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
BD ;
CONT ;continue or not
GENLOG ; GENERATE NEW LOG ENTRY
QUEUE ;EP
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
V1 ;go through each visit on this date
GETDATES ;
CHECK ;
DATE(D) ;EP ;IHS/CMI/LAB - new date format - format date in YYYYMMDD format
QUEUE1 ;
ED ;
PURGE2 ;
START ;Begin processing backload
XIT ;exit, eoj cleanup
V ; Run by visit date
PURGE ; PURGE SET .14 FIELD
PROCESS ;EP - process new run
INTRO ;introductory text
PROC ;

External References

Name Field # of Occurrence
^%DTC START+9
C^%DTC ED+5
NOW^%DTC PROCESS+6
HOME^%ZIS CONT+5
^%ZTLOAD QUEUE1+3
^APCPDR2 PROC+9
CHKSITE^APCPDRI CONT+10
^APCPLOG V+2
EN^APCPTAPE V+4
KILL^AUPNPAT PROC+2, XIT+4
$$UID^AUPNVSIT PROC+6
^DIC GENLOG+3
^DIE PROCESS+7, PURGE2+1, QUEUE1+7
^DIK QUEUE+4, QUEUE1+5
^DIR BD+1, ED+1, CONT+1, QUEUE+2, EOP+5
^XBFMK XIT+2
EN^XBVK XIT+3
$$FMTE^XLFDT ED+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC(),80),!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,$$CTR(X,80),!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"ATTENTION: This option should ONLY be run if you have had",!,"a special request from ORYX or NPIRS to re-send a large amount of previously",!,"exported data."
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"You should use the GEN and REDO options for all regularly scheduled exports.",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"A file will be created and will be placed in the public directory where",!,"all other exports are placed. It will be called ",APCP("FILENAME"),!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"BAPCDATA GLOBAL EXISTS FROM A PREVIOUS RUN - CANNOT CONTINUE"
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !,"Please enter the visit date range for which the export should be done.",!
  • Line Location: GETDATES+1
Function Call: WRITE
  • Prompt: !,"Ending date must be greater than or equal to beginning date!"
  • Line Location: ED+3
Function Call: WRITE
  • Prompt: !!,"Goodbye",!
  • Line Location: ED+8
Function Call: WRITE
  • Prompt: !!,"A Log entry will be created and records generated for visit",!,"date range ",$$FMTE^XLFDT(APCP("RUN BEGIN"))," to ",$$FMTE^XLFDT(APCP("RUN END")),".",!
  • Line Location: ED+9
Function Call: WRITE
  • Prompt: !!,"Goodbye"
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !!,"Goodbye"
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !!,"Exiting.."
  • Line Location: CONT+11
Function Call: WRITE
  • Prompt: !!,"Goodbye, no processing will occur.",!
  • Line Location: CONT+15
Function Call: WRITE
  • Prompt: !,"Okay, you '^'ed out or timed out so I'm deleting the Log entry and quitting.",!
  • Line Location: QUEUE+4
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued!!",1:"Request cancelled")
  • Line Location: QUEUE1+4
Function Call: WRITE
  • Prompt: !,"Okay, you '^'ed out or timed out so I'm deleting the Log entry and quitting.",!
  • Line Location: QUEUE1+5
Function Call: WRITE
  • Prompt: !!,"Error generating log entry"
  • Line Location: GENLOG+4
Function Call: WRITE
  • Prompt: "Log entry is ",APCP("RUN LOG")
  • Line Location: GENLOG+7
Routine Call
  • %ZIS
  • Line Location:
    • CONT+5
Routine Call
  • DIE
  • Line Location:
    • PROCESS+7
    • PURGE2+1
    • QUEUE1+7
Routine Call
  • DIC
  • Line Location:
    • GENLOG+3
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • CONT+1
    • QUEUE+2
    • EOP+5

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" START+13
^APCPLOG - [#9001005] PROC+3, PROC+10*, PROC+11*, PROC+12*
^AUPNVSIT - [#9000010] V1+1, PROC+6*, PROC+7
^AUPNVSIT("B" V+1, V1+1
^AUTTLOC - [#9999999.06] CONT+7
^AUTTSITE(1 START+11, START+12, START+13, START+14
^BAPCDATA( START+17, GENLOG+6!
^DD("DD" GENLOG+2
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1
^XTMP("APCPDR" START+18
^XTMP("APCPREDO" START+19
^XTMP("APCPSRE" START+20, PURGE+3, PURGE+4!, PURGE2+1

Label References

Name Line Occurrences
$$CTR START+2, START+3
$$LOC START+2
CHECK ED+7
ED ED+3
EOP XIT+1
GENLOG CONT+12
PROC V1+1
PURGE V+3
PURGE2 PURGE+3
QUEUE CONT+14
QUEUE1 QUEUE+3
V1 V+1
XIT START+17, START+18, START+19, START+20, BD+2, ED+2, ED+8, CONT+2, CONT+3, CONT+11
, CONT+15, CONT+16, V+5, GENLOG+4

Naked Globals

Name Field # of Occurrence
^(0 V1+1, PROC+12*, USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PROCESS+6!
%H PROCESS+6!
%I PROCESS+6!
APCDOVRR CONT+8*, XIT+5!
>> APCP("APC" CONT+9*
>> APCP("CHA" CONT+9*
>> APCP("COUNT" CONT+9*
>> APCP("DEL NEV ER SENT" , CONT+9*
>> APCP("DEMO PA T" , CONT+9*
>> APCP("ERROR C OUNT" , CONT+9*
>> APCP("FILENAME" START+10*, START+11*, START+13*, START+14*, START+16, PROCESS+7
>> APCP("IN NO P P" , CONT+9*
>> APCP("INPT" CONT+9*
>> APCP("MAIN TX DATE" , PROCESS+6*
>> APCP("QFLG" CONT+7*, CONT+11
>> APCP("QUEUE" CONT+16, QUEUE1+6*
>> APCP("RUN BEG IN" , BD+3*, ED+3, ED+5, ED+9, GENLOG+2
>> APCP("RUN END " , ED+4*, ED+9, V+1, GENLOG+2
>> APCP("RUN LOC ATION" , CONT+7*
>> APCP("RUN LOG " , CONT+13, PROCESS+7, PROC+3, PROC+10, PROC+11, PROC+12, QUEUE1+5, QUEUE1+7, GENLOG+5*
, GENLOG+7
>> APCP("RUN STA RT" , PROCESS+6*, PROCESS+7
>> APCP("STAT" CONT+9*
>> APCP("V DFN" V1+1*, PROC+3, PROC+6, PROC+7, PROC+11, PROC+12
>> APCP("V REC" V1+1*
>> APCPBS CONT+5*
>> APCPCNT PROCESS+1*, PROC+5, PURGE2+2
>> APCPCNT1 PROCESS+1*
>> APCPCNT2 PROCESS+1*
>> APCPCNTR PROCESS+5*, PURGE+2*
APCPE CONT+6!, PROC+1!
>> APCPERR ED+6*, ED+8, CONT+4*, CONT+15, QUEUE+4*, QUEUE+5*, QUEUE1+5*
>> APCPJD START+9*, START+11, START+13, START+14
>> APCPLOG QUEUE+4
>> APCPO("RUN" CONT+4*, QUEUE+4, QUEUE+5, QUEUE1+5
APCPS CONT+6!
>> APCPSD ED+5*, PROCESS+3*, V+1*, V1+1
APCPT CONT+6!, PROC+1!
>> APCPTERR PROCESS+5*
>> APCPTOTR PROCESS+5*
>> APCPUSED PROCESS+5*
APCPV CONT+6!, PROC+1!
APCPV("DEP CO UNT" , PROC+11
APCPV("STAT T X GEN" , PROC+4*, PROC+11
APCPV("TX GEN ERATED" , PROC+4*, PROC+11
APCPV("TYPE" PROC+11
APCPV("V DATE " , PROC+8*
APCPV("V DFN" , PURGE+2*, PURGE+3*, PURGE2+1
APCPV("V REC" , PROC+7*, PROC+8
D DATE~, DATE+1, DATE+2
DA ED+1!, CONT+1!, PROCESS+7*!, PURGE2+1*!, QUEUE+4*!, QUEUE1+5*!, QUEUE1+7*!
DFOUT EOP+4!
DIC PROC+13!, GENLOG+2*, GENLOG+3!
DIC("DR" GENLOG+2*
DIC(0 GENLOG+2*
DIE PROCESS+7*!, PROC+13!, PURGE2+1*!, QUEUE1+7*!
DIK QUEUE+4*!, QUEUE1+5*!
DIR BD+1!, ED+1!, CONT+1!, QUEUE+2!, EOP+3~
DIR("?" BD+1*
DIR("A" BD+1*, ED+1*, CONT+1*, QUEUE+2*, EOP+5*
DIR("B" CONT+1*, QUEUE+2*
DIR(0 BD+1*, ED+1*, CONT+1*, QUEUE+2*, EOP+5*
DIRUT BD+1*, BD+2, ED+1*, ED+2, CONT+2, QUEUE+2*, QUEUE+4, QUEUE+5, EOP+4!
DLAYGO GENLOG+2*, GENLOG+3!
DLOUT EOP+4!
DR PROCESS+7*!, PROC+13!, PURGE2+1*!, QUEUE1+7*!, GENLOG+3!
DT START+9
DTOUT EOP+4!
DUOUT BD+1, ED+1, QUEUE+2, EOP+4!
DUZ USR+1
DUZ(2 CONT+7, GENLOG+2, LOC+1
IO("S" EOP+2
>> IOBS CONT+5
IOF START+1
IOM CTR+1
IOST EOP+1
>> IOT EOP+2
J START+6*, START+7!
T START+6*, START+7!
U START+11, START+12, START+13, START+14, CONT+7, PROC+6, PROC+11, PROC+12, USR+1, LOC+1
X START+3*, START+6*, START+7!, START+9, ED+5, GENLOG+2*, CTR~, CTR+1
>> X1 START+9*, ED+5*
>> X2 START+9*, ED+5*
Y BD+3, ED+3, ED+4, CONT+3, QUEUE+3, GENLOG+2*, GENLOG+4, GENLOG+5, CTR~, CTR+1
>> ZTDESC QUEUE1+2*
>> ZTDTH QUEUE1+2*
>> ZTIO QUEUE1+2*
>> ZTQUEUED START+18, START+19, START+20, CONT+5, PROCESS+1, PROCESS+2, PURGE+1, GENLOG+1, EOP+2
>> ZTRTN QUEUE1+1*
>> ZTSAVE("APCP*" QUEUE1+2*
ZTSK QUEUE+1!, QUEUE1+4, QUEUE1+5, QUEUE1+8!

Marked Items

Name Field # of Occurrence
$T(@T+J START+6
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 |  Marked Items |  All