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

Package: Patient Care Component

Routine: APCDLINK


Information

APCDLINK ; IHS/CMI/LAB - LINK IN HOSPITAL VISITS ;

Source Information

Source file <APCDLINK.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  EN^DIQ  ^DIR  
Patient Care Component 1 ^APCDVDSP  
Uncategorized 1 ($$A08,A08)^BTSEVENT  

Entry Points

Name Comments DBIA/ICR reference
DISP ;
GETIN
HDR ; Write Header
CONFIRM ;
PROCESS ;
EOJ ;
GETPAT ; GET PATIENT
TEXT ;
WRITE ; WRITE VISITS FOR SELECT
LINK ;
GETHOSP
SRDR
SELECT ; SELECT EXISTING VISIT

External References

Name Field # of Occurrence
^APCDVDSP DISP+5
$$A08^BTSEVENT LINK+5
A08^BTSEVENT LINK+5
^DIC GETPAT+2
YN^DICN DISP+3
^DIE LINK+1
EN^DIQ DISP+2
^DIR GETIN, GETHOSP, CONFIRM+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?80-$L(APCDX)\2,APCDX
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"No PATIENT selected!"
  • Line Location: PROCESS+3
Function Call: WRITE
  • Prompt: !!,"No IN-HOSPITAL Visit selected!"
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !!,"No HOSPITALIZATION Visit selected!"
  • Line Location: PROCESS+9
Function Call: WRITE
  • Prompt: !!,"Leaving this option BYE!",!
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: !!,"The LINK failed!! Try again later."
  • Line Location: PROCESS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !,"No In-Hospital Visit on that date for this patient!"
  • Line Location: GETIN+4
Function Call: WRITE
  • Prompt: !!,"PATIENT: ",$P(^DPT(APCDPAT,0),U)," has one or more IN-HOSPITAL Visits on this date.",!
  • Line Location: SELECT+1
Function Call: READ
  • Timeout: DTIME
  • Variable: APCDLI
  • Line Location: SRDR+0
Function Call: WRITE
  • Prompt: !!,"Select one: "
  • Line Location: SRDR+0
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: SRDR+2
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: SRDR+3
Function Call: WRITE
  • Prompt: !,"No Hospitalization Visit on that date for this patient!"
  • Line Location: GETHOSP+4
Function Call: WRITE
  • Prompt: !,"In-Hospital Visit Linked!!"
  • Line Location: LINK+7
Function Call: WRITE
  • Prompt: !,APCDLI," TIME: ",APCDLT," LOC: ",APCDLOC," TYPE: ",$P(APCDLX,U,3)," CATEGORY: ",$P(APCDLX,U,7)," CLINIC: ",$S($P(APCDLX,U,8)]"":$P(^DIC(40.7,$P(APCDLX,U,8),0),U),1:"<NONE>")
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"Do you want to see the Entire Visit (V FILE entries)?"
  • Line Location: DISP+3
Routine Call
  • DIE
  • Line Location:
    • LINK+1
Routine Call
  • DIC
  • Line Location:
    • GETPAT+2
Routine Call
  • DIR
  • Line Location:
    • GETIN
    • GETHOSP
    • CONFIRM+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] GETIN+3, SELECT+2, GETHOSP+3
^AUPNVSIT("AC" GETIN+3, GETHOSP+3
^AUTTLOC - [#9999999.06] WRITE+3
^DIC(40.7 - [#40.7] WRITE+5
^DPT - [#2] SELECT+1

Label References

Name Line Occurrences
CONFIRM PROCESS+11
DISP GETIN+5, GETIN+8, GETHOSP+5, GETHOSP+9
EOJ PROCESS+3, PROCESS+6, PROCESS+9, PROCESS+12, PROCESS+15
GETHOSP PROCESS+8
GETIN PROCESS+5
GETPAT PROCESS+2
LINK PROCESS+13
SELECT GETIN+6, SRDR+2, SRDR+3, GETHOSP+7
WRITE SELECT+2

Naked Globals

Name Field # of Occurrence
^(0 GETIN+3, GETHOSP+3, WRITE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DISP+3*, EOJ+1!
%DT EOJ+1!
%Y DISP+3*, DISP+4, EOJ+1!
A DISP+2!
APCDANS PROCESS+10*, PROCESS+12, CONFIRM+2*, CONFIRM+3*, EOJ+1!
APCDDFN GETIN+7, GETIN+8, SRDR*, SRDR+4*, GETHOSP+6*, GETHOSP+8, GETHOSP+9, EOJ+1!
APCDFAIL PROCESS+13*, PROCESS+14, LINK+2*, EOJ+1!
APCDH PROCESS+7*, PROCESS+9, GETHOSP+5*, GETHOSP+9*, LINK+1, EOJ+1!
APCDHLER LINK+5*!
APCDI PROCESS+4*, PROCESS+6, GETIN+5*, GETIN+8*, LINK+1, LINK+4, LINK+5, EOJ+1!
APCDJ HDR+2*, HDR+3!
APCDLDC GETIN+2*, GETIN+3, GETHOSP+2*, GETHOSP+3, EOJ+1!
APCDLDT EOJ+1!
APCDLI GETIN+2*, GETIN+3*, GETIN+5, SELECT+2*, SRDR*, SRDR+1, SRDR+2, SRDR+3, SRDR+4, GETHOSP+2*
, GETHOSP+3*, GETHOSP+5, WRITE+5, EOJ+1!
APCDLKT GETIN+1!, GETIN+4, GETHOSP+1!, GETHOSP+4, EOJ+1!
APCDLKT( GETIN+3*, SELECT+2, SRDR+3, SRDR+4, GETHOSP+3*
APCDLKT(1 GETIN+5, GETHOSP+5
APCDLOC WRITE+2*, WRITE+3*, WRITE+4*, WRITE+5, WRITE+6!, EOJ+1!
APCDLT WRITE+1*, WRITE+5, WRITE+6!, EOJ+1!
APCDLV GETIN+2*, GETIN+3*, SELECT+3*, GETHOSP+2*, GETHOSP+3*, EOJ+1!
APCDLX SELECT+2*, WRITE+1, WRITE+3, WRITE+5, EOJ+1!
APCDPAT PROCESS+1*, PROCESS+3, GETPAT+4*, GETIN+3, SELECT+1, GETHOSP+3, EOJ+1!
>> APCDVDSP DISP+5*
APCDX HDR+2*, HDR+3!
C EOJ+1!
D EOJ+1!
D0 DISP+2!, EOJ+1!
DA GETIN+5*, GETIN+8*, GETHOSP+5*, GETHOSP+9*, LINK+1*, DISP+4!, DISP+5!, EOJ+1!
DIC GETPAT+2*!, DISP+2*!, EOJ+1!
DIC(0 GETPAT+2*
DICR EOJ+1!
DIE LINK+1*, EOJ+1!
DIH EOJ+1!
DIQ DISP+2!
DIR GETIN!, GETHOSP!, CONFIRM+1!
DIR("A" GETIN*, GETHOSP*, CONFIRM+1*
DIR("B" CONFIRM+1*
DIR(0 GETIN*, GETHOSP*, CONFIRM+1*
>> DIRUT GETIN*, GETHOSP*, CONFIRM+1*, CONFIRM+2
DIU EOJ+1!
DIV EOJ+1!
DIW EOJ+1!
DK DISP+2!
DL DISP+2!
DR LINK+1*, DISP+2!, EOJ+1!
DTIME SRDR
>> DTOUT GETHOSP
>> DUOUT GETIN, GETHOSP, CONFIRM+1
IOF HDR+1
S DISP+2!
U GETIN+3, SELECT+1, GETHOSP+3, WRITE+3, WRITE+5
X GETHOSP*, DISP+2!, EOJ+1!
Y GETPAT+3, GETPAT+4, GETIN+2!, GETHOSP+2!, LINK+2, CONFIRM+3, DISP+2!, EOJ+1!

Marked Items

Name Field # of Occurrence
$T(A08^BTSEVENT LINK+5
$T(TEXT+APCDJ HDR+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 |  Marked Items |  All