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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCHS1

Package: Patient Care Component

Routine: APCHS1


Information

APCHS1 ; IHS/CMI/LAB - PART 1 OF APCHS -- SUMMARY PRODUCTION COMPONENTS ;

Source Information

Source file <APCHS1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Patient 2 ($$AGE,$$DOB,$$DOD)^AUPNPAT  $$ICDD^AUPNVUTL  
VA Fileman 2 $$GET1^DIQ  ^DIWP  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$FMDIFF,$$FMTE)^XLFDT  
Patient Care Component 1 DSPCMSRG^APCHS  
Patient Care Component Reports 1 $$PREFLANG^APCLAPI7  
Uncategorized 1 ACTAGR^BCPAPI  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Patient Care Component 3 APCHS1A  APCHS1B  APCHS1C  
Clinical Scheduling for Windows 1 BSDX41A  

Entry Points

Name Comments DBIA/ICR reference
DEMOG ; ******************** DEMOGRAPHICS ********************
; <SETUP>
SSN(P) ;EP
DSPCMSRG ; DISPLAY MEMBERSHIP IN CMS REGISTER
V ;
VSTAT
WWDSPL(DFN) ;
BDPDISP ;EP - display providers from desg prov package
DEMDSP ; <DISPLAY>
REM ;
AGE(DFN,D,F) ;EP - Given DFN, return Age.
WWENPROC(DFN) ;
DEMOGX
VSDT

External References

Name Field # of Occurrence
DSPCMSRG^APCHS DSPCMSRG+1
$$PREFLANG^APCLAPI7 DEMDSP+36
$$AGE^AUPNPAT WWDSPL+12
$$DOB^AUPNPAT AGE+3, AGE+7
$$DOD^AUPNPAT DEMDSP+2, DEMDSP+7
$$ICDD^AUPNVUTL DEMDSP+7
ACTAGR^BCPAPI REM+14
$$GET1^DIQ WWDSPL+8, WWDSPL+10, WWENPROC+5, WWENPROC+6
^DIWP DEMDSP+14
$$ICDDX^ICDEX DEMDSP+7
$$VAL^XBDIQ1 DEMDSP+2, DEMDSP+3, DEMDSP+4, DEMDSP+5, DEMDSP+7, DEMDSP+46, DEMDSP+48, REM+2, REM+3, REM+4
, REM+13, REM+15, BDPDISP+9
$$FMDIFF^XLFDT AGE+7
$$FMTE^XLFDT DEMDSP+47, WWDSPL+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEMDSP+18
Function Call: WRITE
  • Prompt: APCHSNAM
  • Line Location: DEMDSP+22
Function Call: WRITE
  • Prompt: !,?34,APCHSBT,!
  • Line Location: DEMDSP+29
Function Call: WRITE
  • Prompt: $E(APCHSTR,1,33)
  • Condition for execution: APCHSTR]""
  • Line Location: DEMDSP+33
Function Call: WRITE
  • Prompt: ?34,"SSN: ",APCHSSN
  • Condition for execution: APCHSSN]""
  • Line Location: DEMDSP+33
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+33
Function Call: WRITE
  • Prompt: ?34,"MOTHER'S MAIDEN NAME: ",APCHSMNM
  • Condition for execution: APCHSMNM]""
  • Line Location: DEMDSP+34
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+34
Function Call: WRITE
  • Prompt: APCHSHPH,APCHSOPH
  • Line Location: DEMDSP+35
Function Call: WRITE
  • Prompt: ?34,"FATHER'S NAME: ",APCHSFNM
  • Condition for execution: APCHSFNM]""
  • Line Location: DEMDSP+35
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+35
Function Call: WRITE
  • Prompt: "OTHER PHONE: ",APCHOTPH
  • Line Location: DEMDSP+38
Function Call: WRITE
  • Prompt: ?34,"PREFERRED LANGUAGE: ",APCHPLNG
  • Line Location: DEMDSP+39
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+40
Function Call: WRITE
  • Prompt: APCHSCMR,!!
  • Line Location: DEMDSP+41
Function Call: WRITE
  • Prompt: "LAST UPDATED: ",APCHSLUD," "
  • Condition for execution: APCHSLUD]""
  • Line Location: DEMDSP+42
Function Call: WRITE
  • Prompt: ?34,"ELIGIBILITY: ",APCHSEL
  • Condition for execution: APCHSEL]""
  • Line Location: DEMDSP+42
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+42
Function Call: WRITE
  • Prompt: !,"NOTICE OF PRIVACY PRACTICES REC'D BY PATIENT? ",$$VAL^XBDIQ1(9000038,APCHSPAT,.02)
  • Line Location: DEMDSP+46
Function Call: WRITE
  • Prompt: !," DATE RECEIVED BY PATIENT: ",$$FMTE^XLFDT($P(APCHSNPP,U,3))
  • Line Location: DEMDSP+47
Function Call: WRITE
  • Prompt: !," WAS ACKNOWLEDGEMENT SIGNED? ",$$VAL^XBDIQ1(9000038,APCHSPAT,.04)
  • Line Location: DEMDSP+48
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+51
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+53
Function Call: WRITE
  • Prompt: ?24,$E(1000000+APCHSHRN,2,7)," ",APCHSFAC,!
  • Line Location: DEMDSP+54
Function Call: WRITE
  • Prompt: "DESIGNATED PRIMARY CARE PROVIDER: ",APCHSPP,!
  • Line Location: DEMDSP+57
Function Call: WRITE
  • Prompt: ?(38-$L(A)),A,": "_$$VAL^XBDIQ1(9002086,APCHSPAT,.25),!
  • Line Location: REM+2
Function Call: WRITE
  • Prompt: ?(38-$L(A)),A,": ",$E($$VAL^XBDIQ1(9000001,APCHSPAT,1701),1,22),!
  • Line Location: REM+3
Function Call: WRITE
  • Prompt: ?(38-$L(A)),A,": ",$$VAL^XBDIQ1(9000001,APCHSPAT,1704),!
  • Line Location: REM+4
Function Call: WRITE
  • Prompt: "REMARKS:",?9,APCHSRE1,!
  • Line Location: REM+5
Function Call: WRITE
  • Prompt: ?9,APCHSRE2,!
  • Condition for execution: APCHSRE2]""
  • Line Location: REM+5
Function Call: WRITE
  • Prompt: "REMARKS:",!
  • Line Location: REM+6
Function Call: WRITE
  • Prompt: ?1,"[more]",!
  • Line Location: REM+10
Function Call: WRITE
  • Prompt: ?45,$S(APCHAG:"Opioid Agreement",1:"No Opioid Agreement"),!
  • Line Location: REM+14
Function Call: WRITE
  • Prompt: !,"Preferred Method of Receiving Reminders: ",$$VAL^XBDIQ1(9000001,APCHSPAT,4002),!
  • Line Location: REM+15
Function Call: WRITE
  • Prompt: ?30,"DESIGNATED PROVIDERS",!
  • Line Location: BDPDISP+1
Function Call: WRITE
  • Prompt: ?(38-$L(A)),A,": "_$$VAL^XBDIQ1(90360.1,APCHSX,.03),!
  • Line Location: BDPDISP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] GET1^DIQ
^BWPCD - [#9002086.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" REM+12
^APCHSITE - [#9001023] V+9, V+10
^AUPNNPP - [#9000038] DEMDSP+45
^AUPNPAT - [#9000001] DEMOG+13, V+2, V+15, V+16, V+17, V+28, DEMDSP+7, DEMDSP+54, REM+3, REM+4
, REM+15
^AUTTTRI - [#9999999.03] V+5
^BCPP( REM+11
^BDPRECN - [#90360.1] BDPDISP+5
^BDPRECN("C" DEMDSP+56, BDPDISP+2
^BDPTCAT - [#90360.3] BDPDISP+7, BDPDISP+8
^BWP - [#9002086] REM+2
^BWPCD("C" WWENPROC+4
^DD("DD" DEMOG+7, DEMOG+16
^DD(9000001 DEMOG+49, DEMOG+50, V+7
^DIC(16 - [#16] DEMOG+50
^DIC(23 - [#23] VSTAT+3
^DIC(4 - [#4] DEMDSP+54
^DIC(5 - [#5] V+20
^DIC(6 - [#6] DEMOG+50
^DPT - [#2] DEMOG+2, DEMOG+10, DEMOG+24, DEMOG+25, V+1, V+20, V+23, VSTAT+1, VSTAT+2, VSTAT+5
, AGE+2, SSN+2, SSN+3
^LR - [#63] DEMOG+29, DEMOG+30
^UTILITY($J DEMDSP+8!, DEMDSP+15, DEMDSP+17, DEMDSP+20!
^VA(200 - [#200] DEMOG+49

Label References

Name Line Occurrences
$$AGE DEMDSP+23
$$SSN DEMOG+8
$$WWENPROC WWDSPL+4
BDPDISP DEMDSP+56
DEMDSP V+29
DSPCMSRG REM+16
REM DEMDSP+56
VSDT VSTAT+4
VSTAT V+1

Naked Globals

Name Field # of Occurrence
^( V+20, VSTAT+1, VSTAT+5, DEMDSP+54
^("VET" V+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AGE+6~, AGE+7*, AGE+8, AGE+12
>> %1 AGE+8*, AGE+9, AGE+12
>> A REM+2*, REM+3*, REM+4*, BDPDISP+5*, BDPDISP+6, BDPDISP+7, BDPDISP+8, BDPDISP+9*
AGE WWDSPL+1~, WWDSPL+12*, WWDSPL+13
>> APCHAG REM+14
>> APCHOTPH V+28*, DEMDSP+38, DEMDSP+40
>> APCHPLNG DEMDSP+36*, DEMDSP+39, DEMDSP+40
APCHSADR V+19*, V+20*, V+21*, V+22, DEMOGX!
>> APCHSBRK DEMDSP+1
APCHSBT DEMOG+36*, DEMOG+40*, DEMOG+41*, DEMDSP+29, DEMDSP+30, DEMOGX!
>> APCHSCKP DEMDSP+16, DEMDSP+55, REM+8, BDPDISP+3
APCHSCMR V+8*, V+22*, DEMDSP+41, DEMOGX!
APCHSDOB DEMOG+6*, DEMOG+7*, DEMDSP+23, DEMOGX!
APCHSDSC DEMDSP+6!, DEMDSP+7*, DEMDSP+20!
APCHSDSC( DEMDSP+10, DEMDSP+11
APCHSDSC(1 DEMDSP+7*
APCHSEL V+6*, V+7*, DEMDSP+42, DEMOGX!
APCHSEX DEMOG+4*, DEMDSP+24, DEMOGX!, WWDSPL+2
APCHSFAC DEMDSP+54*, DEMOGX!
APCHSFLD V+10*, V+12*, V+16, V+17, DEMOGX+1!
>> APCHSFNM DEMOG+12*, DEMDSP+35
APCHSFP DEMDSP+54*, DEMOGX!
APCHSHPH V+24*, V+25*, V+26*, V+27, DEMDSP+35, DEMOGX!
APCHSHRN DEMDSP+54*, DEMOGX!
APCHSI V+7*, DEMOGX!
APCHSJ DEMOGX!
APCHSLUD DEMOG+15*, DEMOG+16*, DEMDSP+42, DEMOGX!
APCHSMNM DEMOG+11*, DEMDSP+33, DEMDSP+34, DEMOGX!
APCHSN DEMOG+2*, DEMOG+3, DEMOG+4, DEMOG+5, DEMOG+10*, DEMOG+11, DEMOG+12, DEMOG+13*, DEMOG+14, DEMOG+40
, DEMOG+46, V+2*, V+3, V+6, V+8, V+20*, V+23*, V+24, VSTAT+2*, VSTAT+3
, VSTAT+4, VSTAT+5*, DEMOGX!
APCHSNAM DEMOG+3*, DEMDSP+22, DEMOGX!
APCHSNL V+9*, V+11*, V+16, V+17, REM+10, DEMOGX+1!
APCHSNPP DEMDSP+45*, DEMDSP+47, DEMDSP+49, DEMDSP+50, DEMDSP+52!
APCHSOPH V+24*, V+25, V+27*, DEMDSP+35, DEMOGX!
APCHSP V+7*, V+20*, DEMOGX!
>> APCHSPAT DEMOG+2, DEMOG+8, DEMOG+10, DEMOG+13, DEMOG+24, DEMOG+25, V+1, V+2, V+15, V+16
, V+17, V+20, V+23, V+28, VSTAT+1, VSTAT+2, VSTAT+5, DEMDSP+2, DEMDSP+3, DEMDSP+4
, DEMDSP+5, DEMDSP+7, DEMDSP+23, DEMDSP+36, DEMDSP+45, DEMDSP+46, DEMDSP+48, DEMDSP+54, DEMDSP+56, REM+2
, REM+3, REM+4, REM+11, REM+13, REM+14, REM+15, BDPDISP+2
APCHSPP DEMOG+46*, DEMOG+47*, DEMOG+48*, DEMOG+49*, DEMOG+50*, DEMDSP+57, DEMOGX!
>> APCHSQIT DEMDSP+10, DEMDSP+16, DEMDSP+21, DEMDSP+55, REM+7, REM+8, BDPDISP+3
APCHSRE1 V+13!, REM+6, DEMOGX!, DEMOGX+1!
APCHSRE1( V+16*, REM+7, REM+9
APCHSRE1(99999 V+17*
APCHSRE2 DEMOGX!
APCHSSN DEMOG+8*, DEMDSP+33, DEMOGX!
APCHSTR V+3*, V+4*, V+5*, DEMDSP+33, DEMOGX!
APCHSVST V+1*, VSTAT*, VSTAT+1*, VSTAT+3*, VSTAT+4*, VSTAT+5*, DEMDSP+43, DEMOGX!
APCHSX DEMDSP+9*, DEMDSP+10*, DEMDSP+11, DEMDSP+20!, REM+7*, REM+9, DEMOGX+1!, BDPDISP+2*, BDPDISP+5, BDPDISP+9
APCHSZ DEMDSP+15*, DEMDSP+17, DEMDSP+20!
>> APCHTCNT V+14*, V+15*, REM+10
APCHX DEMOG+43!
APCHX("ABO" DEMOG+31*, DEMOG+32, DEMOG+35
APCHX("ABO/Rh" DEMOG+35*, DEMOG+36, DEMOG+39
APCHX("LR" DEMOG+30*, DEMOG+31, DEMOG+33
APCHX("LRDFN" DEMOG+25*, DEMOG+27, DEMOG+28, DEMOG+29, DEMOG+30
APCHX("Rh" DEMOG+33*, DEMOG+34, DEMOG+35
>> C V+14*, V+16*, V+17*
D AGE~, AGE+4*, AGE+7
DFN AGE~, AGE+1, AGE+2, AGE+3, AGE+7, WWDSPL~, WWDSPL+4, WWDSPL+8, WWDSPL+10, WWDSPL+12
, WWENPROC~, WWENPROC+3, WWENPROC+4
DIWL DEMDSP+10*, DEMDSP+15, DEMDSP+17, DEMDSP+20!
DIWR DEMDSP+10*, DEMDSP+20!
DT DEMDSP+23, DEMDSP+36, AGE+4
DUZ(2 V+9, V+10
E V+20*, DEMOGX!
F AGE~, AGE+5*, AGE+9
IEN WWENPROC+1~, WWENPROC+4*, WWENPROC+5, WWENPROC+6
P SSN~, SSN+1, SSN+2, SSN+3
PDT WWENPROC+1~, WWENPROC+2*, WWENPROC+3, WWENPROC+4*, WWENPROC+6*, WWENPROC+7
SDATE WWDSPL+1~, WWDSPL+3*, WWDSPL+6*, WWDSPL+10*, WWDSPL+15
STAT WWDSPL+1~, WWDSPL+3*, WWDSPL+6*, WWDSPL+8*, WWDSPL+9, WWDSPL+13*, WWDSPL+14, WWDSPL+15
U DEMOG+3, DEMOG+4, DEMOG+5, DEMOG+11, DEMOG+12, DEMOG+14, DEMOG+31, DEMOG+33, DEMOG+40, DEMOG+46
, DEMOG+49, DEMOG+50, V+1, V+3, V+5, V+6, V+7, V+8, V+9, V+10
, V+20, V+24, V+28, VSTAT+1, VSTAT+3, VSTAT+4, VSTAT+5, DEMDSP+7, DEMDSP+47, DEMDSP+49
, DEMDSP+50, DEMDSP+54, REM+2, REM+3, REM+4, REM+15, BDPDISP+5, BDPDISP+8, SSN+3
WW WWDSPL+1~, WWDSPL+4*, WWDSPL+5, WWDSPL+6
X V+7*, V+15*, V+16*, V+17*, DEMDSP+11*, DEMDSP+12, DEMDSP+13, REM+12*, DEMOGX!
Y DEMOG+5*, DEMOG+6, DEMOG+7, DEMOG+14*, DEMOG+15, DEMOG+16, VSTAT+4*, VSTAT+5*, VSDT*, DEMOGX!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All