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: APCDVMDD

Package: Patient Care Component

Routine: APCDVMDD


Information

APCDVMDD ; IHS/CMI/LAB - VISIT MERGE ;

Source Information

Source file <APCDVMDD.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Patient Care Component 5 ^APCDVCHK  UPDLOG^APCDVDEL  ^APCDVDSP  ^APCDVLK  ^APCDVM2  
Kernel 2 ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 DEL^AUPNVSIT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDCAF1  

Entry Points

Name Comments DBIA/ICR reference
RDR ;EP
EOJ ; EOJ CLEAN UP
GETVISIT ;
GETPAT ; GET PATIENT
WRITE ; WRITE VISITS FOR SELECT
EN1 ;EP
ZTSK ;

External References

Name Field # of Occurrence
^%ZTLOAD ZTSK+3
^APCDVCHK RDR+15
UPDLOG^APCDVDEL RDR+10
^APCDVDSP APCDVMDD+24, APCDVMDD+26, RDR+14
^APCDVLK GETVISIT+3
^APCDVM2 RDR+5
DEL^AUPNVSIT RDR+11
^DIC GETPAT+3
^DIR APCDVMDD+20
$$FMTE^XLFDT WRITE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to merge 2 visits on 2 different dates.",!,"Be very careful in using this option. This will normally need to be used only",!,"when a lab or radiology visit that occurred after midnight needs to be merged",!
  • Line Location: APCDVMDD+3
Function Call: WRITE
  • Prompt: "to a visit that occurred before midnight.",!!
  • Line Location: APCDVMDD+4
Function Call: WRITE
  • Prompt: !!,"Select 'From' visit.",!
  • Line Location: APCDVMDD+8
Function Call: WRITE
  • Prompt: !!,"Select 'To' visit.",!
  • Line Location: APCDVMDD+12
Function Call: WRITE
  • Prompt: !!,"'From' and 'To' the same. Bye!"
  • Line Location: APCDVMDD+15
Function Call: WRITE
  • Prompt: !!,"Cannot merge from a visit that has a Claim associate with it."
  • Line Location: APCDVMDD+16
Function Call: WRITE
  • Prompt: !!!,"You will be merging the following 2 visits:"
  • Line Location: APCDVMDD+17
Function Call: WRITE
  • Prompt: !,"FROM VISIT:"
  • Line Location: APCDVMDD+18
Function Call: WRITE
  • Prompt: !,"TO VISIT:"
  • Line Location: APCDVMDD+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: APCDVMDD+20
Function Call: WRITE
  • Prompt: !!,"*** FROM VISIT ***"
  • Line Location: APCDVMDD+23
Function Call: WRITE
  • Prompt: !!,"*** TO VISIT ***"
  • Line Location: APCDVMDD+25
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"'TO' VISIT NOT DEFINED"
  • Line Location: RDR+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"'FROM' VISIT NOT DEFINED"
  • Line Location: RDR+2
Function Call: READ
  • Prompt: "Do you want to merge the two visits? (Y/N) Y//"
  • Formatting: !!
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Variable: APCDVMX
  • Line Location: RDR+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RDR+3
Function Call: WRITE
  • Prompt: !!,"*** ERROR encountered. QFLG=",APCDVMQF
  • Line Location: RDR+6
Function Call: WRITE
  • Prompt: !!,"*** MERGED VISIT ***"
  • Line Location: RDR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($P($P(APCDAX,U),"."))," TIME: ",APCDAT,"TYPE: ",$P(APCDAX,U,3)," CATEGORY: ",$P(APCDAX,U,7)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: " CLINIC: ",$S($P(APCDAX,U,8)]"":$E($P(^DIC(40.7,$P(APCDAX,U,8),0),U),1,8),1:"<NONE>"),?56,"DEC: ",$S($P(APCDAX,U,9):$P(APCDAX,U,9),1:0)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: ?64,"VCN: ",$P(APCDA11,U,3)
  • Line Location: WRITE+6
Routine Call
  • DIC
  • Line Location:
    • GETPAT+3
Routine Call
  • DIR
  • Line Location:
    • APCDVMDD+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ZTSK+1
^ABSBITMS(9002302 APCDVMDD+16
^AUPNVSIT - [#9000010] RDR+7*, RDR+8*, WRITE+2
^DIC(40.7 - [#40.7] WRITE+5

Label References

Name Line Occurrences
EOJ APCDVMDD+7, APCDVMDD+10, APCDVMDD+14, APCDVMDD+15, APCDVMDD+16, APCDVMDD+21, APCDVMDD+22, RDR+1, RDR+2, RDR+4
, RDR+6, RDR+16
GETPAT APCDVMDD+6
GETVISIT APCDVMDD+9, APCDVMDD+13
RDR RDR+3
WRITE APCDVMDD+18, APCDVMDD+19
ZTSK RDR+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ZTSK+2*
APCDA11 WRITE+1~, WRITE+2*, WRITE+6
APCDAT WRITE+1~, WRITE+3*, WRITE+4, WRITE+7!
>> APCDAX APCDVMDD+18*, APCDVMDD+19*, WRITE+2*, WRITE+3, WRITE+4, WRITE+5
APCDCAT EOJ+1!
APCDCLN EOJ+1!
APCDDATE EOJ+1!
APCDDOB EOJ+1!
APCDDOD EOJ+1!
APCDLOC EOJ+1!
APCDLOOK GETVISIT+2*, GETVISIT+4, GETVISIT+5!
APCDPAT APCDVMDD+7, GETPAT+2*, GETPAT+5*, EOJ+1!
APCDSEX EOJ+1!
APCDTYPE EOJ+1!
>> APCDVDSP APCDVMDD+24*, APCDVMDD+26*, RDR+14*
APCDVLK GETVISIT+1!
APCDVMF APCDVMDD+10, APCDVMDD+15, APCDVMDD+16, APCDVMDD+18, APCDVMDD+24, RDR+2, RDR+7, RDR+8, RDR+10, RDR+11
, EOJ+1!
>> APCDVMQF RDR+6
APCDVMT APCDVMDD+14, APCDVMDD+15, APCDVMDD+19, APCDVMDD+26, RDR+1, RDR+7, RDR+8, RDR+10, RDR+14, RDR+15
, EOJ+1!
APCDVMX RDR+3*, RDR+4, EOJ+1!
APCDVSIT RDR+15*!, EOJ+1!
APCDVV APCDVMDD+9*, APCDVMDD+13*, GETVISIT+4, EOJ+1!
AUPNDAYS EOJ+2!
AUPNDOB EOJ+2!
AUPNDOD EOJ+2!
AUPNPAT EOJ+2!
AUPNSEX EOJ+2!
AUPNVSIT RDR+11*, EOJ+2!
DA APCDVMDD+20!
DIC GETPAT+3*!
DIC(0 GETPAT+3*
DIR APCDVMDD+20!
DIR("A" APCDVMDD+20*
DIR("B" APCDVMDD+20*
DIR(0 APCDVMDD+20*
>> DIRUT APCDVMDD+21
DR APCDVMDD+24!, APCDVMDD+26!, RDR+14!
DT ZTSK+3
DTIME RDR+3
U RDR+7, RDR+8, WRITE+4, WRITE+5, WRITE+6
>> X ZTSK+1*
>> Y APCDVMDD+22, GETPAT+4, GETPAT+5
>> ZTDESC ZTSK+3*
>> ZTDTH ZTSK+3*
>> ZTIO ZTSK+3*
>> ZTRTN ZTSK+3*
ZTSAVE ZTSK+2!
ZTSAVE( ZTSK+2*
ZTSK ZTSK+4!
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