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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCDCHKP

Package: Patient Care Component

Routine: APCDCHKP


Information

APCDCHKP ; IHS/CMI/LAB - I-LINK REPORT ;

Source Information

Source file <APCDCHKP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 ^%DT  ^DIR  
DRG Grouper 1 $$ICDOP^ICDEX  
Patient Care Component 1 HEAD^APCDCHKP  
Patient Care Component Reports 1 $$VD^APCLV  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Patient Care Component 3 APCDCHKI  APCDCHKP  APCDCHP1  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;EP;HEADER
HIT2
OLD ;
HEAD1 ;
NO ;
EOJ ;
PRNP ;
HITSUB ; Sub heading for Linked visit report
OLDSUB ;
MULTSUB ;
PRNH ;
PRNI ;
GETHOSP ;
PROCSUB ;
HIT ; Write report of In-hospital visits that were linked
NOSUB ;
PROC ; print deleted procedures
MULT ;

External References

Name Field # of Occurrence
^%DT APCDCHKP+5
HEAD^APCDCHKP PROC+3
$$VD^APCLV PRNP+6
^DIR HEAD+2
$$ICDOP^ICDEX PRNP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO In-Hospital Visits were linked to Hospitalizations during this run."
  • Line Location: HIT+2
Function Call: WRITE
  • Prompt: !!,"HOSPITAL:"
  • Line Location: HIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NO+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OLD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MULT+2
Function Call: WRITE
  • Prompt: !,"NO PROBLEMS",!
  • Line Location: MULT+3
Function Call: WRITE
  • Prompt: !,"IN-HOSP: DATE: [",APCDRD,"] NAME: [",$P(^DPT($P(APCDIV,U,5),0),U),"] TYPE: [",$P(APCDIV,U,3),"]"
  • Line Location: PRNP+3
Function Call: WRITE
  • Prompt: !," LOCATION: [",$S($D(^DIC(4,$P(APCDIV,U,6),0)):$P(^(0),U),1:"UNKNOWN"),"] DEPENDENT ENTRY CNT: [",$P(APCDIV,U,9),"]"
  • Line Location: PRNP+4
Function Call: WRITE
  • Prompt: !?10,"Procedure: ",$P($$ICDOP^ICDEX($P(APCDPDFN,U),$$VD^APCLV($P(APCDPDFN,U,3)),,"I"),U,2),?30,"Provider Narr: ",$P(^AUTNPOV($P(APCDPDFN,U,4),0),U)
  • Line Location: PRNP+6
Function Call: WRITE
  • Prompt: " DATE: [",APCDRD,"] NAME: [",$P(^DPT($P(APCDHV,U,5),0),U),"] TYPE: [",$P(APCDHV,U,3),"]"
  • Line Location: PRNH+7
Function Call: WRITE
  • Prompt: !," LOCATION: [",$S($D(^DIC(4,$P(APCDHV,U,6),0)):$P(^(0),U),1:"UNKNOWN"),"] DISCH DATE: [",APCDDCD,"]"
  • Line Location: PRNH+8
Function Call: WRITE
  • Prompt: !,"IN-HOSP: DATE: [",APCDRD,"] NAME: [",$P(^DPT($P(APCDIV,U,5),0),U),"] TYPE: [",$P(APCDIV,U,3),"]"
  • Line Location: PRNI+3
Function Call: WRITE
  • Prompt: !," LOCATION: [",$S($D(^DIC(4,$P(APCDIV,U,6),0)):$P(^(0),U),1:"UNKNOWN"),"] DEPENDENT ENTRY CNT: [",$P(APCDIV,U,9),"]"
  • Line Location: PRNI+4
Function Call: WRITE
  • Prompt: !,"The following In-Hospital Visits could be linked to two or more ",!,"Hospitalizations. They must be linked manually."
  • Line Location: MULTSUB+1
Function Call: WRITE
  • Prompt: !,"HOSPITALIZATION:"
  • Line Location: GETHOSP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,APCDDT,?70,"Page: ",APCDPG
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?29,"PCC Data Entry Module"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !?9,"*************************************************************"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?9,"* REPORT OF IN-HOSPITAL VISITS LINKED TO HOSPITALIZATIONS *"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !?9,"*************************************************************"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !!,X
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,"In-Hospital Visits that remain NOT linked to a Hospitalization"
  • Line Location: NOSUB+1
Function Call: WRITE
  • Prompt: !,"The following List of IN-HOSPITAL Visits are over one year old and are",!,"not linked to a Hospitalization. These visits will not be displayed on",!,"future reports."
  • Line Location: OLDSUB+1
Function Call: WRITE
  • Prompt: !,"The following In-Hospital Visits were linked to the Hospitalization listed"
  • Line Location: HITSUB+1
Function Call: WRITE
  • Prompt: !,"Because they were duplicates, the following V Procedure Records were deleted",!,"from the IN-HOSPITAL record displayed."
  • Line Location: PROCSUB+1
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVCHS - [#9000010.03] PRNH+3
^AUPNVCHS("AD" PRNH+3
^AUPNVINP - [#9000010.02] PRNH+4
^AUPNVINP("AD" PRNH+4
^AUPNVSIT - [#9000010] PRNP+1, PRNH+1, PRNI+1
^AUTNPOV - [#9999999.27] PRNP+6
^DD("DD" APCDCHKP+5, PRNP+2, PRNH+5, PRNH+6, PRNI+2
^DIC(4 - [#4] PRNP+4, PRNH+8, PRNI+4
^DPT - [#2] PRNP+3, PRNH+7, PRNI+3
^XTMP("ILINK" HIT+2, HIT+3, NO+2, NO+3, OLD+2, OLD+3, MULT+2, MULT+3, PROC+2, PROC+3
, HIT2, GETHOSP+1

Label References

Name Line Occurrences
@( HEAD1+8
GETHOSP MULT+2
HEAD HIT+2, HIT+3, NO+3, OLD+3, MULT+2, HIT2
HEAD1 HEAD+1
HIT2 HIT+3
MULT OLD+2
NO HIT+2
OLD NO+2
PRNH HIT+3, GETHOSP+1
PRNI NO+3, OLD+3, MULT+2, HIT2
PRNP PROC+3

Naked Globals

Name Field # of Occurrence
^(0 PRNP+4, PRNH+8, PRNI+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT APCDCHKP+5*
APCDDCD EOJ+2!, PRNH+3*, PRNH+4*, PRNH+5*, PRNH+8
>> APCDDT APCDCHKP+5*, HEAD1+2
APCDH HIT+3*, EOJ+2!, PRNH+1, PRNH+3, PRNH+4, HIT2, GETHOSP+1*
APCDHV EOJ+2!, PRNH+1*, PRNH+6, PRNH+7, PRNH+8
APCDI NO+3*, OLD+3*, MULT+2*, PROC+3*, EOJ+2!, PRNI+1, HIT2*, GETHOSP+1
>> APCDINPD PRNH+2*, PRNH+3*, PRNH+4*
APCDIV EOJ+2!, PRNP+1*, PRNP+2, PRNP+3, PRNP+4, PRNI+1*, PRNI+2, PRNI+3, PRNI+4
>> APCDPDFN PROC+3*, PRNP+1, PRNP+6
APCDPG APCDCHKP+5*, EOJ+3!, HEAD+1, HEAD1+1*, HEAD1+2
>> APCDQUIT HEAD+2*
APCDRD EOJ+2!, PRNP+2*, PRNP+3, PRNH+6*, PRNH+7, PRNI+2*, PRNI+3
APCDT HIT+1*, NO+1*, OLD+1*, MULT+1*, PROC+1*, EOJ+3!, HEAD1+8
>> APCDTYPE PRNH+1*, PRNH+3, PRNH+4
APCDV EOJ+2!
DIR HEAD+2!
DIR(0 HEAD+2*
>> DTOUT HEAD+2
IO APCDCHKP+4, HEAD+2
IO(0 HEAD+2
IOF EOJ+1, HEAD1+1
IOSL HIT+3, NO+3, OLD+3, MULT+2, PROC+3, HIT2
IOST HEAD+2
U PRNP+1, PRNP+3, PRNP+4, PRNP+6, PRNH+1, PRNH+3, PRNH+4, PRNH+7, PRNH+8, PRNI+1
, PRNI+3, PRNI+4
X APCDCHKP+5*, EOJ+3!, HEAD1+7*, HEAD1+9
Y APCDCHKP+5, EOJ+3!, PRNP+2*, PRNH+5*, PRNH+6*, PRNI+2*, HEAD+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All