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 |  All
Print Page as PDF
Routine: AUPNSICD

Package: IHS Patient

Routine: AUPNSICD


Information

AUPNSICD ; IHS/CMI/LAB - Screen Purpose of Visit/ICD9 codes 24-MAY-1993 ; 05 Nov 2014 10:46 AM

Source Information

Source file <AUPNSICD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
DRG Grouper 2 ($$ICDDX,$$ICDOP)^ICDEX  $$CPT^ICPTCOD  
IHS Patient 1 (HELP,HELPE,HELPFH,HELPOP,HELPPL,HELPRFB)^AUPNSICH  
IHS Standard Terminology 1 $$CONC^BSTSAPI  
Kernel 1 $$VERSION^XPDUTL  
Patient Care Component Reports 1 $$DSCHDATE^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 46

Package Total Caller Graph
Patient Care Component 24 APCDAOP  APCDAPOV  APCDBPOV  APCDCPOV  APCDEGP2  APCDEPOV  APCDETPD  APCDFHD  
APCDFHS  APCDFUNC  APCDKIV  APCDKLV  APCDKPV  APCDLPOV  APCDPLFH  APCDR07  
APCDRICD  APCDSMA  APCDSW  APCDVCH  APCDVCH2  APCDVDSB  APCDVDSG  APCDXPOV  
GUI Objects 11 BGOCPTP2  BGOCPTP3  BGOFHLK  BGOFHX  BGOICDLK  BGOPROB  BGOPROB1  BGOSNLK  
BGOSNOP2  BGOSNOPR  BGOTRG  
IHS Patient 4 AUPNSICH  AUPNVUTL  ^AUPNPROB  AUPNCIX  
IHS Electronic Health Record 2 BEHOENPC  BEHORXED  
Emergency Room 1 AMERUTIL  
IHS Emergency Dept Dashboard 1 BEDDPOV  
IHS Prenatal Care Module 1 BJPNUTIL  
Mental Health Social Services 1 AMHGT  
Patient Care Component Reports 1 APCL8A1  

Entry Points

Name Comments DBIA/ICR reference
CHKFH1 ;
FHCHK ;PEP - called from input tx on FAMILY HISTORY .01 field
HELP ;EP
HELPFH ;EP
CHKOP2 ;CODING SYSTEM 2 - ICD9
CONC(IN) ;PEP - called to return ICD codes for a snomed concept ID
CHKPL(Y) ; SCREEN OUT E CODES AND INACTIVE CODES
CHKOP31 ;coding system 31 - ICD10
CHKDX1 ;CODING SYSTEM 1 - ICD9
CHKE ;EP - ECODE SCREEN
CHKEX1 ;CODING SYSTEM 1 - ICD9
CPT ;EP - screen on CPT from V CPT .01 and V Procedure
CHKPL30 ;coding system 30 - ICD10
HELPE ;EP
OPSEX ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
CHKDX30 ;coding system 30 - ICD10
HELPPL ;EP
IMP(D) ;PEP - which coding system should be used:
CHKCPT(Y) ;check CPT for valid date, inactive flag
CHKOP(Y) ;EP
CHKPL1 ;CODING SYSTEM 1 - ICD9
UNCODE(D) ;
ICDOPCHK ;EP called from input tx on V PROCEDURE .01 SCREEN OUT E CODES AND INACTIVE CODES
IMPOP(D) ;PEP - which coding system should be used:
RFB ;EP - ECODE SCREEN
PLACE ;EP - ECODE SCREEN
RFBH ;EP
CHKE1(Y) ;EP SCREEN OUT E CODES AND INACTIVE CODES
CHKRFB(Y) ; SCREEN Z18-Z18.9
CHKFH(Y) ;EP - SCREEN OUT E CODES AND INACTIVE CODES
CHKEX30 ;coding system 30 - ICD10
CHKRFB1 ;CODING SYSTEM 1 - ICD9
HELPOP ;EP
EOP ;
CHK(Y) ;EP - SCREEN OUT E CODES AND INACTIVE CODES
CHKFH30 ;
CHKRFB30 ;coding system 30 - ICD10
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
CSEX31 ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX

External References

Name Field # of Occurrence
$$DSCHDATE^APCLV CHK+10, CHKCPT+9, CHKOP+11, CHKE1+10, CHKPL+10, CHKRFB+10
HELP^AUPNSICH HELP+1
HELPE^AUPNSICH HELPE+1
HELPFH^AUPNSICH HELPFH+1
HELPOP^AUPNSICH HELPOP+1
HELPPL^AUPNSICH HELPPL+1
HELPRFB^AUPNSICH RFBH+1
$$CONC^BSTSAPI CONC+22
^DIR EOP+4
$$ICDDX^ICDEX CHK+15, CHKFH+7, CHKE1+15, CHKPL+16, CHKRFB+16, CONC+30
$$ICDOP^ICDEX CHKOP+16
$$CPT^ICPTCOD CHKCPT+15
$$VERSION^XPDUTL CHKCPT+16, CHKFH1+8, CHKFH30+9, CHKEX1+2, CHKEX1+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] CHK+9, CHK+10, CHK+11, CHKCPT+8, CHKCPT+9, CHKCPT+10, CHKOP+10, CHKOP+11, CHKOP+12, CHKE1+9
, CHKE1+10, CHKE1+11, CHKPL+9, CHKPL+10, CHKPL+11, CHKRFB+9, CHKRFB+10, CHKRFB+11
^ICD0 - [#80.1] ICDOPCHK+2
^ICD9 - [#80] AUPNSICD+5, CHKFH1+9, CHKFH30+10, CHKE+2, CHKEX1+4, FHCHK+4, PLACE+2, RFB+2
^ICDS - [#80.4] IMP+10, IMP+11, IMPOP+10, IMPOP+11
^ICDS("F" IMP+7, IMP+9, IMPOP+7, IMPOP+9
^ICPT - [#81] CPT+3, CHKCPT+17

Label References

Name Line Occurrences
$$CHK AUPNSICD+4
$$CHKCPT CPT+2
$$CHKE1 CHKE+1
$$CHKFH FHCHK+3
$$CHKOP ICDOPCHK+1
$$CHKPL PLACE+1
$$CHKRFB RFB+1
$$IMP CHK+14, CHKFH+6, CHKE1+14, CHKPL+15, CHKRFB+14, CONC+27, UNCODE+3
$$IMPOP CHKOP+15
$$UNCODE CONC+25, CONC+31, CONC+32
@( CHK+18, CHKOP+18, CHKFH+9, CHKE1+17, CHKPL+18, CHKRFB+18
CSEX CHKEX1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CHK+1~, CHK+15*, CHK+16, CHKDX1+1, CHKDX1+2, CSEX+2, CHKDX30+1, CHKDX30+2, CHKDX30+3, CHKDX30+4
, CHKDX30+5, CSEX30+2, CHKCPT+5~, CHKCPT+15*, CHKCPT+16, CHKOP+8~, CHKOP+16*, CHKOP+17, CHKOP2+1, OPSEX+2
, CHKOP31+1, CSEX31+2, CHKFH+2~, CHKFH+7*, CHKFH+8, CHKFH1+2, CHKFH1+3, CHKFH1+4, CHKFH1+5, CHKFH1+6
, CHKFH1+8, CHKFH30+2, CHKFH30+3, CHKFH30+4, CHKFH30+5, CHKFH30+6, CHKFH30+7, CHKFH30+9, CHKE1+1~, CHKE1+15*
, CHKE1+16, CHKEX1+1, CHKEX1+2, CHKEX30+3, CHKEX30+4, CHKEX30+5, CHKEX30+6, CHKEX30+8, CHKPL+1~, CHKPL+16*
, CHKPL+17, CHKPL1+1, CHKPL1+2, CHKPL30+3, CHKPL30+5, CHKRFB+1~, CHKRFB+16*, CHKRFB+17, CHKRFB30+3, CHKRFB30+5
A CHK+1~, CHKCPT+5~, CHKCPT+17*, CHKOP+8~, CHKFH+2~, CHKFH1+1*, CHKFH1+2*, CHKFH1+3*, CHKFH1+4*, CHKFH1+5*
, CHKFH1+6*, CHKFH1+7, CHKFH1+9*, CHKFH1+11, CHKFH30+1*, CHKFH30+2*, CHKFH30+3*, CHKFH30+4*, CHKFH30+5*, CHKFH30+6*
, CHKFH30+7*, CHKFH30+8, CHKFH30+10*, CHKFH30+12, CHKE1+1~, CHKEX1+4*, CHKEX1+6, CHKPL+1~, CHKRFB+1~
>> ACHSDIEN CHK+3, CHKCPT+3, CHKOP+3, CHKE1+3, CHKPL+3, CHKRFB+3
>> APCDDATE CHK+12, CHKCPT+12, CHKOP+13, CHKFH+4, CHKE1+12, CHKPL+12, CHKRFB+12
>> APCDOVR CHKCPT+1
>> APCDVSIT CHK+9, CHK+10, CHK+11, CHKCPT+8, CHKCPT+9, CHKCPT+10, CHKOP+10, CHKOP+11, CHKOP+12, CHKE1+9
, CHKE1+10, CHKE1+11, CHKPL+9, CHKPL+10, CHKPL+11, CHKRFB+9, CHKRFB+10, CHKRFB+11
AUPND CONC+19~, CONC+21*, CONC+25, CONC+27, CONC+30, CONC+31, CONC+32
AUPNI CONC+19~, CONC+24*, CONC+25, CONC+28, CONC+29*, CONC+31*, CONC+32*, CONC+34
AUPNIMP CONC+19~, CONC+27*
AUPNIN1 CONC+19~, CONC+20*, CONC+22
AUPNP CONC+19~, CONC+30*, CONC+31, CONC+32
>> AUPNQ EOP+1*, EOP+5*
>> AUPNSEX CSEX+1, CSEX+2, CSEX30+1, CSEX30+2, OPSEX+1, OPSEX+2, CSEX31+1, CSEX31+2
AUPNV CONC+19~, CONC+22*, CONC+24, CONC+25*, CONC+34*, CONC+35
AUPNY CONC+19~, CONC+28*, CONC+29*, CONC+30
AUPNZ CONC+19~, CONC+28*, CONC+29, CONC+31, CONC+32
D IMP~, IMP+5*, IMP+14, IMP+15, IMP+16, IMPOP~, IMPOP+5*, IMPOP+14, IMPOP+15, IMPOP+16
, CHK+1~, CHK+8*, CHK+10*, CHK+11*, CHK+12*, CHK+13*, CHK+14, CHK+15, CHKCPT+5~, CHKCPT+7*
, CHKCPT+9*, CHKCPT+10*, CHKCPT+12*, CHKCPT+13*, CHKCPT+15, CHKCPT+18, CHKOP+8~, CHKOP+9*, CHKOP+11*, CHKOP+12*
, CHKOP+13*, CHKOP+14*, CHKOP+15, CHKOP+16, CHKFH+2~, CHKFH+3*, CHKFH+4*, CHKFH+5*, CHKFH+6, CHKFH+7
, CHKFH1+10, CHKFH1+11, CHKFH30+11, CHKFH30+12, CHKE1+1~, CHKE1+8*, CHKE1+10*, CHKE1+11*, CHKE1+12*, CHKE1+13*
, CHKE1+14, CHKE1+15, CHKEX1+5, CHKEX1+6, CHKPL+1~, CHKPL+8*, CHKPL+10*, CHKPL+11*, CHKPL+12*, CHKPL+13*
, CHKPL+15, CHKPL+16, CHKRFB+1~, CHKRFB+8*, CHKRFB+10*, CHKRFB+11*, CHKRFB+12*, CHKRFB+13*, CHKRFB+14, CHKRFB+16
, UNCODE~, UNCODE+1*, UNCODE+3
DFOUT EOP+3~
>> DIFGLINE CHK+2, CHKCPT+2, CHKOP+2, CHKFH+1, CHKE1+2, CHKPL+2, CHKRFB+2
DIR EOP+2~, EOP+4!
DIR(0 EOP+4*
DIRUT EOP+3~
DLOUT EOP+3~
DT IMP+5, IMPOP+5, CHK+13, CHKCPT+13, CHKOP+14, CHKFH+5, CHKE1+13, CHKPL+13, CHKRFB+13, CONC+21
, UNCODE+1
DTOUT EOP+3~
DUOUT EOP+3~, EOP+5
DUZ("AG" CHK+4, CHKCPT+4, CHKOP+4, CHKE1+4, CHKPL+4, CHKRFB+4
I CHK+1~, CHK+14*, CHK+16, CHK+17*, CHK+18, CHKCPT+5~, CHKCPT+17*, CHKCPT+18, CHKOP+8~, CHKOP+15*
, CHKOP+17, CHKOP+18*, CHKFH+2~, CHKFH+6*, CHKFH+8, CHKFH+9*, CHKFH1+9*, CHKFH1+10, CHKFH30+10*, CHKFH30+11
, CHKE1+1~, CHKE1+14*, CHKE1+16, CHKE1+17*, CHKEX1+4*, CHKEX1+5, CHKPL+1~, CHKPL+15*, CHKPL+17, CHKPL+18*
, CHKRFB+1~, CHKRFB+14*, CHKRFB+15, CHKRFB+17, CHKRFB+18*, UNCODE+2~, UNCODE+3*, UNCODE+4
IN CONC~, CONC+20, CONC+21
IOF EOP+6
J CHKEX30+1~, CHKEX30+2*, CHKEX30+3*, CHKEX30+4*, CHKEX30+5*, CHKEX30+6*, CHKEX30+7, CHKPL30+1~, CHKPL30+2*, CHKPL30+3*
, CHKPL30+4, CHKRFB30+1~, CHKRFB30+2*, CHKRFB30+3*, CHKRFB30+4
U IMP+10, IMP+11, IMPOP+10, IMPOP+11, CHK+10, CHK+11, CHK+16, CHKDX1+1, CHKDX1+2, CSEX+2
, CHKDX30+1, CHKDX30+2, CHKDX30+3, CHKDX30+4, CHKDX30+5, CSEX30+2, CHKCPT+9, CHKCPT+10, CHKCPT+16, CHKCPT+17
, CHKOP+11, CHKOP+12, CHKOP+17, CHKOP2+1, OPSEX+2, CHKOP31+1, CSEX31+2, CHKFH+8, CHKFH1+2, CHKFH1+3
, CHKFH1+4, CHKFH1+5, CHKFH1+6, CHKFH1+8, CHKFH1+9, CHKFH30+2, CHKFH30+3, CHKFH30+4, CHKFH30+5, CHKFH30+6
, CHKFH30+7, CHKFH30+9, CHKFH30+10, CHKE1+10, CHKE1+11, CHKE1+16, CHKEX1+1, CHKEX1+2, CHKEX1+4, CHKEX30+3
, CHKEX30+4, CHKEX30+5, CHKEX30+6, CHKEX30+8, CHKPL+10, CHKPL+11, CHKPL+17, CHKPL1+1, CHKPL1+2, CHKPL30+3
, CHKPL30+5, CHKRFB+10, CHKRFB+11, CHKRFB+17, CHKRFB30+3, CHKRFB30+5, CONC+20, CONC+21, CONC+24, CONC+25
, CONC+31, CONC+32, CONC+34
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
Y AUPNSICD+4, AUPNSICD+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+15, CPT+2, CPT+3, CHKCPT~, CHKCPT+15
, CHKCPT+17, ICDOPCHK+1, ICDOPCHK+2, CHKOP~, CHKOP+16, CHKFH~, CHKFH+7, CHKFH1+9, CHKFH30+10, CHKE+1
, CHKE+2, CHKE1~, CHKE1+15, CHKEX1+4, FHCHK+3, FHCHK+4, PLACE+1, PLACE+2, CHKPL~, CHKPL+16
, RFB+1, RFB+2, CHKRFB~, CHKRFB+16
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All