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

Package: Patient Care Component

Routine: APCDCHKI


Information

APCDCHKI ; IHS/CMI/LAB - I-LINKER ;

Source Information

Source file <APCDCHKI.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Patient 1 MOD^AUPNVSIT  
Patient Care Component 1 ^APCDCHKP  
Uncategorized 1 ($$A08,A08)^BTSEVENT  
VA Fileman 1 ^DIE  

Entry Points

Name Comments DBIA/ICR reference
DELPRC ;
PROCESS ; Process each "In hospital" record
; Set variables
EOJ ; Clean up and XIT
DRIVER
CHECK ;
INIT ;
CHKYR ;
TSKMN ;
CHKPROC ;
CHKHOSP ; Check corresponding V Hospitalization for discharge date
PROC2 ;

External References

Name Field # of Occurrence
^%ZIS APCDCHKI+7
^%ZISC EOJ+1
^%ZTLOAD TSKMN+2
^APCDCHKP DRIVER+1
MOD^AUPNVSIT PROCESS+19
$$A08^BTSEVENT PROCESS+22
A08^BTSEVENT PROCESS+22
^DIE PROCESS+16, DELPRC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will find all In-Hospital visits that are not linked to a",!,"hospitalization and link them if possible."
  • Line Location: APCDCHKI+4
Function Call: WRITE
  • Prompt: !!,"This process could take some time so you may want to queue the report to ",!,"print after-hours.",!
  • Line Location: APCDCHKI+5
Function Call: WRITE
  • Prompt: !,"A report will be printed -- please enter the device for printing."
  • Line Location: APCDCHKI+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: APCDCHKI+7
Routine Call
  • DIE
  • Line Location:
    • PROCESS+16
    • DELPRC+4
Routine Call
  • %ZIS
  • Line Location:
    • APCDCHKI+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls
^AUPNVPRC - [#9000010.08] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVCHS - [#9000010.03] CHKHOSP+3
^AUPNVCHS("AD" CHKHOSP+1
^AUPNVINP - [#9000010.02] CHKHOSP+4
^AUPNVINP("AD" CHKHOSP+1
^AUPNVPRC - [#9000010.08] CHKPROC+1, CHKPROC+2, DELPRC+1, DELPRC+3
^AUPNVPRC("AD" CHKPROC+1, CHKPROC+2
^AUPNVSIT - [#9000010] PROCESS+2, PROCESS+3, PROCESS+6, PROC2+1, CHECK+1
^AUPNVSIT("AAH" PROCESS+11, PROC2+1
^AUPNVSIT("AI" DRIVER, PROCESS+2!, PROCESS+4!, PROCESS+5!, PROCESS+6!, PROCESS+7!, CHKYR+1!
^XTMP("ILINK" INIT+2!, PROCESS+12*, PROCESS+17*, PROCESS+24*, CHKYR+1*, DELPRC+3*, DELPRC+5!, EOJ+2!

Label References

Name Line Occurrences
CHECK PROC2+1
CHKPROC PROCESS+18
CHKYR PROCESS+13
DELPRC CHKPROC+2
EOJ APCDCHKI+7, DRIVER+2, TSKMN+2
PROC2 PROCESS+11
PROCESS DRIVER
TSKMN APCDCHKI+7

Naked Globals

Name Field # of Occurrence
^(0 PROC2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CHKYR+1*
>> %ZIS APCDCHKI+7*
APCDDCD PROCESS+17, CHKHOSP+3*, CHKHOSP+4*, CHKHOSP+5, EOJ+3!
APCDDT EOJ+3!
APCDFND PROCESS+8*, PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+24, CHKHOSP+5*, CHKYR+1, EOJ+3!
APCDHDAT CHECK+2*, EOJ+3!
APCDHDFN PROCESS+8*, PROCESS+10*, PROCESS+12*, PROCESS+15*, PROCESS+17, PROCESS+19, PROC2+1*, CHECK+1, CHKHOSP+1, CHKHOSP+5
, CHKPROC+1, EOJ+3!
APCDHLER PROCESS+22*!
APCDHLOC CHECK+2*, EOJ+3!
APCDHOSP PROCESS+8!, EOJ+3!
APCDHOSP( PROCESS+12, CHKHOSP+5*
APCDHOSP("" PROCESS+15
APCDHPRC EOJ+4!
APCDHPRC( CHKPROC+1*, CHKPROC+2, DELPRC+1
APCDHTYP CHECK+2*, EOJ+3!
APCDHV EOJ+3!
APCDHVR CHECK+1*, CHECK+2, EOJ+3!
APCDICDP CHKPROC+2*, DELPRC+1, EOJ+4!
APCDIDAT PROCESS+8*, EOJ+3!
APCDIDFN INIT+3*, DRIVER*, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+12, PROCESS+15
, PROCESS+17, PROCESS+21, PROCESS+22, PROCESS+24, CHKYR+1, CHKPROC+2, EOJ+3!
APCDILOC PROCESS+8*, EOJ+3!
APCDINPD CHKHOSP+1*, CHKHOSP+2, CHKHOSP+3, CHKHOSP+4, EOJ+3!
APCDITYP PROCESS+8*, CHKHOSP+1, CHKHOSP+3, CHKHOSP+4, EOJ+3!
APCDIVR PROCESS+3*, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+8, EOJ+3!
APCDL PROCESS+12*, EOJ+4!
APCDOLD PROCESS+8*, PROCESS+24, CHKYR+1*, EOJ+3!
APCDPG EOJ+3!
APCDSVD PROCESS+10*, PROCESS+11*, PROC2+1, EOJ+3!
APCDT EOJ+3!
APCDTYPE EOJ+3!
APCDVD PROCESS+8*, PROCESS+10, CHKHOSP+5, CHKYR+1, EOJ+3!
APCDVDH PROCESS+10*, PROCESS+11, EOJ+3!
APCDVPRC CHKPROC+1*, CHKPROC+2*, DELPRC+1, DELPRC+3, DELPRC+4, DELPRC+5, EOJ+4!
>> AUPNVSIT PROCESS+19*
DA PROCESS+15*, PROCESS+16!, DELPRC+4*!
DFN PROCESS+8*, PROCESS+11, PROC2+1, EOJ+3!
DIE PROCESS+15*, PROCESS+16!, DELPRC+4*!
DR PROCESS+15*, PROCESS+16!, DELPRC+4*!
DT CHKYR+1
IO("Q" APCDCHKI+7, EOJ+3!
>> IOCPU TSKMN+2
ION TSKMN+2
>> POP APCDCHKI+7
U INIT+3*, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROC2+1, CHECK+2, CHKHOSP+3, CHKHOSP+4
, CHKPROC+1, CHKPROC+2, DELPRC+1
>> Y DELPRC+5
>> ZTCPU TSKMN+2*
>> ZTDESC TSKMN+2*
>> ZTDTH TSKMN+2*
>> ZTIO TSKMN+2*
>> ZTQUEUED INIT+1
>> ZTREQ INIT+1*
>> ZTRTN TSKMN+2*
ZTSAVE TSKMN+1!

Marked Items

Name Field # of Occurrence
$T(A08^BTSEVENT PROCESS+22
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