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 |  Local Variables |  All
Print Page as PDF
Routine: APCDEGP2

Package: Patient Care Component

Routine: APCDEGP2


Information

APCDEGP2 ; IHS/CMI/LAB - CONT. OF GROUP FORM DATA ENTRY ; 02 Mar 2010 9:13 AM

Source Information

Source file <APCDEGP2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Patient 2 $$AGE^AUPNPAT  ^AUPNSICD  
VA Fileman 2 DD^%DT  YN^DICN  
DRG Grouper 1 $$ICDDX^ICDEX  
Kernel 1 $$VERSION^XPDUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDEGP1  

Entry Points

Name Comments DBIA/ICR reference
AGEEDIT ;
VISIT ;
CHKPOVS ;
ACCEPT ;
CHKPOV1 ;
EDITCHKS ;EP;check and edit visit/pov info

External References

Name Field # of Occurrence
DD^%DT ACCEPT+2
$$AGE^AUPNPAT AGEEDIT+10, AGEEDIT+11
^AUPNSICD CHKPOV1+3
YN^DICN ACCEPT+11
$$ICDDX^ICDEX AGEEDIT+5, ACCEPT+1, ACCEPT+5
$$VERSION^XPDUTL AGEEDIT+7, ACCEPT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Checking Visit and POV data for this Patient...",!
  • Line Location: EDITCHKS+1
Function Call: WRITE
  • Prompt: !,APCDBEEP,APCDBEEP,?5,"A VISIT Cannot be Created for this Patient!",!?5,"You Must Correct any Problems and Re-Enter this VISIT through ENTER MODE!",!
  • Line Location: VISIT+3
Function Call: WRITE
  • Prompt: !,APCDBEEP,APCDBEEP,?5,"One of the PURPOSE of VISITS is INVALID for this Patient!!",!?5,"You must Correct any Problems and Re-Enter this VISIT through ENTER MODE!"
  • Line Location: CHKPOVS+2
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"WARNING: The Patient's age is outside the IHS edit age range",!,"for this ICD Code: ",@APCDRVON,$P($$ICDDX^ICDEX(APCDEGY),U,2),@APCDRVOF,!
  • Line Location: ACCEPT+1
Function Call: WRITE
  • Prompt: "Patient's DOB: ",$G(APCDRDOB),?35,"Patient's Age in Days: ",AUPNDAYS,!
  • Line Location: ACCEPT+4
Function Call: WRITE
  • Prompt: "ICD Edit Lower Age: ",A,?35,"ICD Edit Upper Age: ",B
  • Line Location: ACCEPT+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9000010 VISIT+2
^ICD9 - [#80] AGEEDIT+9, ACCEPT+9
^TMP("APCDEGP" CHKPOVS+1, CHKPOV1+2

Label References

Name Line Occurrences
ACCEPT AGEEDIT+10, AGEEDIT+11
CHKPOV1 CHKPOVS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AGEEDIT+5*, AGEEDIT+8, ACCEPT+5*, ACCEPT+8, ACCEPT+11*
>> A AGEEDIT+6*, AGEEDIT+8*, AGEEDIT+9*, AGEEDIT+10, ACCEPT+6*, ACCEPT+8*, ACCEPT+9*, ACCEPT+10
>> APCDBEEP VISIT+3, CHKPOVS+2
>> APCDDATE VISIT+1, AGEEDIT+10, AGEEDIT+11
APCDEFLG EDITCHKS+2!, VISIT+3*, CHKPOVS+2, CHKPOV1+4*, ACCEPT+11*
>> APCDEGX CHKPOVS+1*, CHKPOV1+2
>> APCDEGY CHKPOV1+2*, AGEEDIT+5, AGEEDIT+9, ACCEPT+1, ACCEPT+5, ACCEPT+9
>> APCDPAT AGEEDIT+10, AGEEDIT+11
>> APCDRDOB ACCEPT+2*, ACCEPT+4
>> APCDRVOF ACCEPT+1
>> APCDRVON ACCEPT+1
APCDTACC CHKPOV1+1!, ACCEPT+12*
>> AUPNDAYS AGEEDIT+1, ACCEPT+4
>> AUPNDOB ACCEPT+2
AUPNTALK EDITCHKS+2!
>> B AGEEDIT+6*, AGEEDIT+8*, AGEEDIT+9*, AGEEDIT+11, ACCEPT+6*, ACCEPT+8*, ACCEPT+9*, ACCEPT+10
U VISIT+2, CHKPOV1+2, AGEEDIT+8, AGEEDIT+9, ACCEPT+1, ACCEPT+8, ACCEPT+9
>> X VISIT+1*, VISIT+3
>> Y CHKPOV1+2*, ACCEPT+2*, ACCEPT+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All