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

Package: Patient Care Component

Routine: APCDPOP


Information

APCDPOP ; IHS/CMI/LAB - post selection on V PROCEDURE ;

Source Information

Source file <APCDPOP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 DD^%DT  YN^DICN  
DRG Grouper 1 $$ICDOP^ICDEX  
Kernel 1 $$VERSION^XPDUTL  
Patient Care Component Reports 1 $$VD^APCLV  

Entry Points

Name Comments DBIA/ICR reference
AGE ;IF THERE IS AGE CRITERIA DATA AVAILABLE CHECK TO SEE THAT IT FITS THE CRITERIA
XIT ;
ACCEPT ;

External References

Name Field # of Occurrence
DD^%DT ACCEPT+4
$$VD^APCLV AGE+6
YN^DICN ACCEPT+6
$$ICDOP^ICDEX AGE+6
$$VERSION^XPDUTL AGE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"WARNING: The Patient's age is outside the IHS edit age range for this ICD Code!",!
  • Line Location: ACCEPT+3
Function Call: WRITE
  • Prompt: "Patient's DOB: ",$G(APCDRDOB),?35,"Patient's Age in Days: ",AUPNDAYS,!,"ICD Proc Edit Lower Age: ",$P(^ICD0(APCDY,9999999),U),?35,"ICD Proc Edit Upper Age: ",$P(^ICD0(APCDY,9999999),U,2)
  • Line Location: ACCEPT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD0 - [#80.1] AGE+10, ACCEPT+5

Label References

Name Line Occurrences
ACCEPT AGE+11, AGE+12
XIT AGE+3, AGE+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AGE+5~, AGE+6*, ACCEPT+6*
A AGE+5~, AGE+7*, AGE+9*, AGE+10*, AGE+11
APCDRDOB ACCEPT+4*, ACCEPT+5, XIT+2!
APCDSY AGE+4*, XIT+1, XIT+2!
>> APCDTACC AGE+1, ACCEPT+1*, ACCEPT+2*, ACCEPT+7*
>> APCDTPCC AGE+2
>> APCDVSIT AGE+6
APCDY AGE+4*, AGE+6, AGE+10, ACCEPT+5, XIT+2!
>> AUPNDAYS AGE+3, AGE+11, AGE+12, ACCEPT+5
>> AUPNDOB ACCEPT+4
>> AUPNTALK ACCEPT+1
B AGE+5~, AGE+7*, AGE+9*, AGE+10*, AGE+12
DT AGE+6
U AGE+10, ACCEPT+5
>> Y AGE+4, ACCEPT+4*, ACCEPT+6*, XIT+1*
>> ZTQUEUED ACCEPT+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All