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

Package: IHS Patient Registration

Routine: AG0


Information

AG0 ; IHS/ASDS/EFG - Add a patient opening page ; MAR 19, 2010

Source Information

Source file <AG0.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
IHS Patient Registration 12 (PTLK,READ,YN)^AG  ^AG2  C1^AGACT  (,CALCELIG)^AGBIC2  ^AGBIC2P  ^AGED1  (ETHNIC,NIH,RACE,THI)^AGED10B  (ACK,NPP,RHI)^AGED11A  
(DFN,Z1)^AGKPAT  CHART1^AGMAN  $$AGE^AGUTILS  ^AGVAR  
VA Fileman 3 NOW^%DTC  ^DIC  ^DIR  
IHS Patient 1 (RESET,SET)^AUPNLKZ  
Immunization Tracking 1 AUTOADD^BIPATE  
Kernel 1 EN^XQOR  
Patient Registration MPI 1 (CREATMSG,NOTIF)^AGMPIHLO  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
IHS Patient Registration 4 AG2  AGBIC2  AGBIC2P  AGED13  
Emergency Room 2 AMER  AMERVSIT  
Contract Health Management Information System 1 ACHSDA  
Scheduling 1 SD IHS REGMENU  

Entry Points

Name Comments DBIA/ICR reference
END ;
R1 ;
R2 ;
K ;EP
ETHNIC ;ENTER ETHNICITY
DOG ;PEP - From Other Systems.
L11 ;EP
RACE ; ENTER RACE, NUMBER IN HOUSEHOLD, TOTAL HOUSEHOLD INCOME
NPPLOOP ;
L0 ;
L1 ;EP
VAR ;
L0D ;
L0C ;
L0A ;

External References

Name Field # of Occurrence
NOW^%DTC L1+22
PTLK^AG R2+5
READ^AG L0C+1, L0C+2
YN^AG L0C+3
^AG2 L1+27
C1^AGACT L0C+3
^AGBIC2 L1+28
CALCELIG^AGBIC2 L0+14
^AGBIC2P L1+29
^AGED1 L0+25
ETHNIC^AGED10B ETHNIC+1
NIH^AGED10B RACE+3
RACE^AGED10B RACE+1
THI^AGED10B RACE+4
ACK^AGED11A NPPLOOP+2
NPP^AGED11A NPPLOOP+1
RHI^AGED11A NPPLOOP+3
DFN^AGKPAT K+3
Z1^AGKPAT K+2
CHART1^AGMAN L0A+10
CREATMSG^AGMPIHLO RACE+18
NOTIF^AGMPIHLO RACE+20
$$AGE^AGUTILS RACE+26
^AGVAR DOG+1
RESET^AUPNLKZ R2+7, L1+13
SET^AUPNLKZ R2+4, L1+11
AUTOADD^BIPATE RACE+26
^DIC L1+12
^DIR L0+11, L0+21, L0A+6
EN^XQOR RACE+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You must first SCAN FOR SIMILAR NAMES or CHART NUMBERS NOW..."
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !!,"This patient is already registered at this facility!"
  • Line Location: L0+7
Function Call: WRITE
  • Prompt: !,"This patient's eligibility is ",$P(AG("NARR1"),":",2)
  • Line Location: L0+15
Function Call: WRITE
  • Prompt: !!,"This patient is already registered at this facility but is inactive!"
  • Line Location: L0C+1
Function Call: WRITE
  • Prompt: !,"Refer to Medical Records for Reactivation"
  • Line Location: L0C+1
Function Call: WRITE
  • Prompt: !!,"""",$P(^DPT(DFN,0),U),""" is filed as """,$S($P(^AUPNPAT(DFN,41,DUZ(2),0),U,5)="D":"DELETED",1:"INACTIVE"),""".",!!,"Do you wish to RE-ACTIVATE this patient's file? (Y/N) NO// "
  • Line Location: L0C+2
Function Call: WRITE
  • Prompt: !,"Enter the NEW PATIENT'S FULL NAME....."
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !," (EXAMPLE: MORGAN,JAMES PAUL,JR (no space after commas))"
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !!,"Entering NEW Patient for ",$P(^DIC(4,DUZ(2),0),U),!!
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: !,"Patient's record already in use! Try again later!"
  • Line Location: L1+20
Function Call: WRITE
  • Prompt: !,"Patient's record already in use! Try again later!"
  • Line Location: L1+21
Function Call: WRITE
  • Prompt: !!!,"This concludes the NEW PATIENT ENTRY PROCESS for this patient."
  • Line Location: RACE+8
Function Call: WRITE
  • Prompt: !!,*7,"The '",$P(^DPT(DFN,0),U),"' file is deleted."
  • Line Location: K+1
Routine Call
  • DIC
  • Line Location:
    • L1+12
Routine Call
  • DIR
  • Line Location:
    • L0+11
    • L0+21
    • L0A+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" RACE+17
^AGPATCH( L1+24*
^AUPNPAT - [#9000001] L0+4, L0+5, L0+13, L0C+2, L1+20, L1+25*, RACE+6
^DIC(4 - [#4] L0A+4, L1+3
^DPT - [#2] L0+19, L0A+4, L0C+2, L1+4, L11+1, K+1
^XTMP("AGHL7" RACE+29*
^XTMP("AGHL7AG" RACE+30*

Label References

Name Line Occurrences
END L0+23, L0A+9, L0C+3, L1+15, K+4
K END+1
L0 R1+1, L0+26
L0A L0+4, L0A+13
L0C L0+5, L0C+3
L0D L0+24
L1 L0+2, L1+16
R2 L0A+8
VAR L0+6, L0+22, L0A+12, L0C+1, L0C+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % L1+23
AG VAR+2!, L0+1!, END+2!
AG("EDIT" L0C+3*, L0D+1!, L1+26!, END+1
AG("NARR1" L0+15
AG("NEWREG" L0A+7*
AG("NPPADD" L11+2*
AGDOG AG0+3!, DOG+2*, VAR+1, L0+6, L0C+1
AGDTS L1+23*, L1+24, END+2!
>> AGERR RACE+26
>> AGOPT(14 L0+13, L1+27, L1+28, L1+29
>> AGOPT(22 RACE+2
>> AGPAT L11+1*
>> AGPATDFN R2+6*, L0+3*, L1+18*, RACE+26
>> AGPTPG L0A+11*
AGT END+2!
DFN VAR+2!, R1+1, R2+6, L0+2, L0+3, L0+4, L0+5, L0+13, L0+19, L0A+4
, L0C+2, L0D+1!, L1+4, L1+17*, L1+18, L1+20, L1+24, L1+25, L11+1, RACE+6
, RACE+18, RACE+20, RACE+21, RACE+29, RACE+30, K+1
>> DFOUT L0C+3
DIADD L1+9*, L1+14!
DIC R2+2!, L1+7*, L1+14!, RACE+16~, RACE+21*
DIC("A" L1+6*
DIC("W" R2+3*
DIC(0 L1+8*
DIR L0+8!, L0+12!, L0+16!, L0A+1!
DIR("A" L0+19*, L0A+4*
DIR("B" L0+18*, L0A+3*
DIR("T" L0+10*, L0+20*, L0A+5*
DIR(0 L0+9*, L0+17*, L0A+2*
DLAYGO L1+10*, L1+14!
>> DLOUT L0C+3
DOG AG0+3!, DOG+2
DTIME L0+10, L0+20, L0A+5
>> DTOUT L0+23, L0A+9, L0C+3, L1+15
>> DUOUT L0C+3, L1+15
DUZ L1+25
DUZ(2 L0+4, L0+5, L0A+4, L0C+2, L1+3, L1+24, RACE+26, RACE+29, RACE+30
INDA RACE+16~, RACE+21*
IOF VAR+1
SUCCESS RACE+16~, RACE+18, RACE+20
U L0+5, L0+13, L0+19, L0A+4, L0C+2, L1+3, L1+4, L1+25, L11+1, K+1
X L1+15, RACE+16~, RACE+17*, RACE+21*
>> Y L0+22, L0+23, L0+24, L0+25, L0A+8, L0A+9, L0A+10, L0A+12, L0C+3, L1+16
, L1+17
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 |  Local Variables |  All