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

Package: IHS Patient

Routine: AUPNSICA


Information

AUPNSICA ; IHS/CMI/LAB - Screen Purpose of Visit/ICD9 codes 24-MAY-1993 ;

Source Information

Source file <AUPNSICA.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 2 EN^DDIOL  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$VERSION^XPDUTL  
Taxonomy 1 LST^ATXAPI  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDXPOV  

Entry Points

Name Comments DBIA/ICR reference
EOP ;
ASKLISTO() ;
IMPOP(D) ;PEP - which coding system should be used:
ASKLIST() ;
CHKDX30 ;coding system 30 - ICD10
CHKDX1 ;CODING SYSTEM 1 - ICD9
CHK(Y) ;EP - SCREEN OUT E CODES AND INACTIVE CODES
IMP(D) ;PEP - which coding system should be used:
HELPADX ;EP
CSEX ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
CSEX30 ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX

External References

Name Field # of Occurrence
LST^ATXAPI HELPADX+4, HELPADX+26
EN^DDIOL HELPADX+13, HELPADX+15, HELPADX+18, HELPADX+40
^DIR ASKLIST+2, ASKLISTO+2, EOP+4
$$ICDDX^ICDEX CHK+17, HELPADX+32
$$VAL^XBDIQ1 HELPADX+12
$$VERSION^XPDUTL CHKDX1+3, CHKDX1+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] CHK+10, CHK+11, CHK+13, CHK+14, HELPADX+5, HELPADX+6, HELPADX+8, HELPADX+9
^ICD9 - [#80] AUPNSICA+5, CHKDX1+5
^ICDS - [#80.4] IMP+10, IMP+11, IMPOP+10, IMPOP+11
^ICDS("F" IMP+9, IMPOP+9
^ICDS(0 IMP+7, IMPOP+7, HELPADX+3
^TMP($J HELPADX+25!, HELPADX+29, HELPADX+32, HELPADX+42!

Label References

Name Line Occurrences
$$ASKLIST HELPADX+23
$$CHK AUPNSICA+4
$$IMP CHK+16, HELPADX+11
@( CHK+20
CSEX CHKDX1+4
EOP HELPADX+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CHK+1~, CHK+17*, CHK+18, CHKDX1+2, CHKDX1+3, CSEX+3, CHKDX30+2, CHKDX30+3, CHKDX30+4, CHKDX30+5
, CHKDX30+6, CSEX30+2, HELPADX+1~, HELPADX+12*, HELPADX+13, HELPADX+32*, HELPADX+34, HELPADX+35, HELPADX+36, HELPADX+37
, HELPADX+38, HELPADX+39, ASKLIST+1~, ASKLISTO+1~
A CHK+1~, CHKDX1+5*, CHKDX1+7
>> ACHSDIEN CHK+3
>> APCDDATE CHK+12, HELPADX+7
>> APCDVSIT CHK+10, CHK+11, HELPADX+5, HELPADX+6
AUPNC HELPADX+24~, HELPADX+25*, HELPADX+26
AUPNF HELPADX+28~, HELPADX+29*, HELPADX+30, HELPADX+41*
AUPNQ HELPADX+28~, HELPADX+29*, HELPADX+30, EOP+1*, EOP+5*
>> AUPNSEX CSEX+1, CSEX+3, CSEX30+1, CSEX30+2
AUPNX HELPADX+28~, HELPADX+29*, HELPADX+32, HELPADX+33, HELPADX+39
AUPNY HELPADX+28~
>> BDGV CHK+13, CHK+14, HELPADX+8, HELPADX+9
D IMP~, IMP+5*, IMP+14, IMP+15, IMP+16, IMPOP~, IMPOP+5*, IMPOP+14, IMPOP+15, IMPOP+16
, CHK+1~, CHK+9*, CHK+11*, CHK+12*, CHK+13, CHK+14*, CHK+15*, CHK+16, CHK+17, CHKDX1+6
, CHKDX1+7, HELPADX+1~, HELPADX+2*, HELPADX+6*, HELPADX+7*, HELPADX+8, HELPADX+9*, HELPADX+10*, HELPADX+11, HELPADX+32
, ASKLIST+1~, ASKLISTO+1~
DA ASKLIST+1~, ASKLIST+2!, ASKLISTO+1~, ASKLISTO+2!
DFOUT EOP+3~
DIC ASKLIST+1~, ASKLISTO+1~
DIE ASKLIST+1~, ASKLISTO+1~
>> DIFGLINE CHK+2
DIR ASKLIST+1~, ASKLIST+2!, ASKLISTO+1~, ASKLISTO+2!, EOP+2~, EOP+4!
DIR("A" ASKLIST+2*, ASKLISTO+2*
DIR("B" ASKLIST+2*, ASKLISTO+2*
DIR(0 ASKLIST+2*, ASKLISTO+2*, EOP+4*
DIRUT ASKLIST+1~, ASKLIST+3, ASKLISTO+1~, ASKLISTO+3, EOP+3~
DLOUT EOP+3~
DT IMP+5, IMPOP+5, CHK+15, HELPADX+10
DTOUT EOP+3~
DUOUT ASKLIST+1~, ASKLISTO+1~, EOP+3~, EOP+5
DUZ("AG" CHK+4
I CHK+1~, CHK+16*, CHK+18, CHK+19*, CHK+20, CHKDX1+5*, CHKDX1+6, HELPADX+1~, HELPADX+11*, HELPADX+12
, HELPADX+14, HELPADX+17, HELPADX+26, HELPADX+33, HELPADX+34, HELPADX+35, HELPADX+36, HELPADX+37, ASKLIST+1~, ASKLISTO+1~
IOF EOP+6
IOSL HELPADX+30
U IMP+10, IMP+11, IMPOP+10, IMPOP+11, CHK+11, CHK+14, CHK+18, CHKDX1+2, CHKDX1+3, CHKDX1+5
, CSEX+3, CHKDX30+2, CHKDX30+3, CHKDX30+4, CHKDX30+5, CHKDX30+6, CSEX30+2, HELPADX+6, HELPADX+9, HELPADX+32
, HELPADX+34, HELPADX+35, HELPADX+36, HELPADX+37, HELPADX+38, HELPADX+39
X IMP+6~, IMP+9*, IMP+10, IMP+11, IMP+13*, IMP+14, IMP+15, IMP+16, IMPOP+6~, IMPOP+9*
, IMPOP+10, IMPOP+11, IMPOP+13*, IMPOP+14, IMPOP+15, IMPOP+16, HELPADX+21, HELPADX+28~, HELPADX+39*, HELPADX+40
, ASKLIST+1~, ASKLISTO+1~
Y AUPNSICA+4, AUPNSICA+5, IMP+6~, IMP+8*, IMP+15*, IMP+16*, IMP+17*, IMP+18, IMPOP+6~, IMPOP+8*
, IMPOP+15*, IMPOP+16*, IMPOP+17*, IMPOP+18, CHK~, CHK+17, CHKDX1+5, ASKLIST+1~, ASKLIST+4, ASKLISTO+1~
, ASKLISTO+4
Z IMP+6~, IMPOP+6~
Z( IMP+11*, IMP+13, IMP+15, IMP+16, IMP+17, IMPOP+11*, IMPOP+13, IMPOP+15, IMPOP+16, IMPOP+17
Z(0 IMP+17, IMPOP+17

Marked Items

Name Field # of Occurrence
$T(LST^ATXAPI HELPADX+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All