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

Package: Patient Care Component

Routine: APCDEREG


Information

APCDEREG ; IHS/CMI/LAB - HS IN DATA ENTRY ;

Source Information

Source file <APCDEREG.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 3 ^DIC  FILE^DICN  ^DIR  
Asthma Tracking System 1 $$LASTSEV^BATU  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  
IHS VA Utilities 1 ^XBFMK  
Immunization Tracking 1 AUTOADD^BIPATE  
MailMan 1 ^XMB  
Women's Health 1 $$CDCID^BWUTL5  

Entry Points

Name Comments DBIA/ICR reference
ASTHMA(PATIENT) ;
GETTYPE ;
CNTCMS() ;
WH(PATIENT) ;
CMS(PATIENT,REGISTER) ;EP
CMSREG ;GET WHICH CMS REGISTER
IMM(PATIENT) ;

External References

Name Field # of Occurrence
$$DOB^AUPNPAT ASTHMA+8
$$HRN^AUPNPAT ASTHMA+8
$$LASTSEV^BATU ASTHMA+8
AUTOADD^BIPATE IMM+2
$$CDCID^BWUTL5 WH+10
^DIC CMSREG+4
FILE^DICN CMS+5, ASTHMA+3, WH+12
^DIR GETTYPE+9
^XBFMK CMSREG+3, CMSREG+5, CMSREG+7
^XMB ASTHMA+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Sorry I don't know the patient.",!
  • Line Location: APCDEREG+4
Function Call: WRITE
  • Prompt: !,"The following is a list of registers this patient can be added to."
  • Line Location: GETTYPE+2
Function Call: WRITE
  • Prompt: !,"If you choose a CASE MANAGEMENT REGISTER you will be prompted to"
  • Line Location: GETTYPE+3
Function Call: WRITE
  • Prompt: !,"enter which of the ",$$CNTCMS," CMS registers to add the patient to.",!
  • Line Location: GETTYPE+4
Function Call: WRITE
  • Prompt: !,"CMS Register not selected."
  • Line Location: GETTYPE+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: CMSREG+1
Function Call: WRITE
  • Prompt: !!?14,$P(^DPT(PATIENT,0),U)," is already on the ",$P(^ACM(41.1,REGISTER,0),U)," register."
  • Line Location: CMS+1
Function Call: WRITE
  • Prompt: !!?10,"Adding ",$P(^DPT(PATIENT,0),U),!?13," to the ",$P(^ACM(41.1,REGISTER,0),U)," CMS Register."
  • Line Location: CMS+2
Function Call: WRITE
  • Prompt: !!,$P(^DPT(PATIENT,0),U)," has been added to the ",$P(^ACM(41.1,REGISTER,0),U)," Register."
  • Line Location: CMS+6
Function Call: WRITE
  • Prompt: !!,$P(^DPT(PATIENT,0),U)," is already in the Asthma Register.",!
  • Line Location: ASTHMA+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASTHMA+2
Function Call: WRITE
  • Prompt: !!,"Error encountered when attempting to add this patient to the asthma register."
  • Line Location: ASTHMA+4
Function Call: WRITE
  • Prompt: !!,$P(^DPT(PATIENT,0),U)," has been added to the Asthma Register."
  • Line Location: ASTHMA+5
Function Call: WRITE
  • Prompt: !!,"Females Only..."
  • Line Location: WH+1
Function Call: WRITE
  • Prompt: !!,$P(^DPT(PATIENT,0),U)," is already in the WH Register.",!
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: !!,$P(^DPT(PATIENT,0),U)," has been added to the Women's Health Register."
  • Line Location: WH+18
Function Call: WRITE
  • Prompt: !!,$P(^DPT(PATIENT,0),U)," is already in the Immunization Register.",!
  • Line Location: IMM+1
Function Call: WRITE
  • Prompt: !!,ERR
  • Line Location: IMM+3
Function Call: WRITE
  • Prompt: !!,$P(^DPT(PATIENT,0),U)," has been added to the immunization Register."
  • Line Location: IMM+4
Routine Call
  • DIC
  • Line Location:
    • CMSREG+4
Routine Call
  • DIR
  • Line Location:
    • GETTYPE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BWP - [#9002086] Classic Fileman Calls
^ACM(41 - [#9002241] Classic Fileman Calls
^ACM(41.1 - [#9002241.1] Classic Fileman Calls
^BATREG - [#90181.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] CMS+1
^ACM(41.1 - [#9002241.1] CMS+1, CMS+2, CMS+6, CNTCMS+1
^APCDREGA - [#9001002.6] GETTYPE+5, GETTYPE+6, GETTYPE+8, GETTYPE+13
^BATREG - [#90181.01] ASTHMA+1
^BATSITE - [#90181.05] ASTHMA+2
^BIP - [#9002084] IMM+1
^BWP - [#9002086] WH+2
^BWSITE - [#9002086.02] WH+6
^DPT - [#2] GETTYPE+9, CMS+1, CMS+2, CMS+6, ASTHMA+1, ASTHMA+5, ASTHMA+8, WH+1, WH+2, WH+18
, IMM+1, IMM+4

Label References

Name Line Occurrences
$$CNTCMS GETTYPE+4
CMSREG GETTYPE+12
GETTYPE APCDEREG+5, GETTYPE+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDC GETTYPE+5~*, GETTYPE+6*, GETTYPE+7, GETTYPE+8, GETTYPE+14!
APCDCMGR WH+5~, WH+6*, WH+8
>> APCDCMS GETTYPE+12, CMSREG+2*, CMSREG+6*
>> APCDPRMT WH+7*, WH+14
>> APCDREGT GETTYPE+1*, GETTYPE+11*, GETTYPE+13
APCDX GETTYPE+5~*, GETTYPE+6, GETTYPE+7, GETTYPE+8, GETTYPE+14!
APCDY GETTYPE+14!
APCDY( GETTYPE+7*, GETTYPE+13
APCDYY GETTYPE+6*, GETTYPE+12, GETTYPE+14!
>> AUPNPAT APCDEREG+4, GETTYPE+9
>> C CNTCMS+1*, CNTCMS+2
D0 APCDEREG+3~
DA APCDEREG+3~, GETTYPE+9!, CMS+5!
DD CMS+3!, CMS+5!, ASTHMA+3!, WH+11!
DI APCDEREG+3~
DIADD ASTHMA+3*!
DIC APCDEREG+3~, CMSREG+4*, CMS+3!, CMS+4*, CMS+5!, ASTHMA+3*, WH+5~, WH+11*, WH+12!
DIC("A" CMSREG+4*
DIC("DR" CMS+4*, ASTHMA+3*, WH+8*, WH+9*, WH+10*
DIC(0 CMSREG+4*, CMS+4*, ASTHMA+3*, WH+11*
DIE CMS+4*, CMS+5!
DINUM ASTHMA+3*!, WH+3*
DIR GETTYPE+9!
DIR("A" GETTYPE+9*
DIR("B" GETTYPE+9*
DIR(0 GETTYPE+9*
>> DIRUT GETTYPE+10
DL APCDEREG+3~
DLAYGO ASTHMA+3*!, WH+11*
DO CMS+5!, ASTHMA+3!, WH+11!
DP APCDEREG+3~
DR CMS+5!
DT CMS+4, WH+10
DUZ(2 ASTHMA+2, ASTHMA+8, WH+10, IMM+2
>> ERR IMM+2, IMM+3
PATIENT CMS~, CMS+1, CMS+2, CMS+4, CMS+6, ASTHMA~, ASTHMA+1, ASTHMA+3, ASTHMA+5, ASTHMA+8
, WH~, WH+1, WH+2, WH+3, WH+10, WH+18, IMM~, IMM+1, IMM+2, IMM+4
REGISTER CMS~, CMS+1, CMS+2, CMS+4, CMS+6
>> SITE WH+6
U GETTYPE+6, GETTYPE+8, GETTYPE+9, CMS+1, CMS+2, CMS+6, ASTHMA+1, ASTHMA+2, ASTHMA+5, ASTHMA+8
, WH+1, WH+2, WH+6, WH+18, IMM+1, IMM+4
X APCDEREG+3~, CMS+4*, ASTHMA+3*, WH+3*, CNTCMS+1~*
XMB ASTHMA+7!, ASTHMA+9*, ASTHMA+10!
XMB(1 ASTHMA+8*
XMB(2 ASTHMA+8*
XMB(3 ASTHMA+8*
XMB(4 ASTHMA+8*
XMB(5 ASTHMA+8*
Y APCDEREG+3~, GETTYPE+11, GETTYPE+12, CMSREG+5, CMSREG+6, ASTHMA+4, WH+14, WH+17*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All