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: AG

Package: IHS Patient Registration

Routine: AG


Information

AG ; IHS/ASDS/EFG - INITIAL ROUTINE AND UTILITY SUB-ROUTINES ;

Source Information

Source file <AG.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS Patient Registration 6 (,CHKRHI)^AG  ^AGBADATA  ^AGDATCK  $$CHKDEATH^AGEDERR  ^AGVAR  $$S^AGVDF  
Kernel 4 ^%ZIS  $$FMTE^XLFDT  $$CJ^XLFSTR  $$LAST^XPDUTL  
VA Fileman 4 DD^%DT  NOW^%DTC  ^DIC  ^DIR  
IHS VA Utilities 1 SET^XBSITE  

Caller Graph

Caller Graph Total: 106

Package Total Caller Graph
IHS Patient Registration 90 AG  AG0  AG1  AG2B  AG4  AG5  AG6  AG7  
AG8B  AGACAL  AGACT  AGADDINF  AGADDR  AGADDR1  AGAGEB  AGAGERP  
AGAGERP2  AGAGERP3  AGALPHA  AGALPHA1  AGBADATA  AGBIC1B  AGBIC2  AGBIC2B  
AGBIC2P  AGBICEDZ  AGBLDS  AGCARD  AGCHART  AGCHLB  AGCHTMP  AGCMATCH  
AGCO  AGDELPAT  AGDOB  AGED  AGED11A  AGED12  AGED5  AGED9  
AGEDIT  AGEMARP  AGFACE  AGHOME  AGKPAT  AGLKIN  AGLSSN  AGLSSN2  
AGMAN  AGMANERS  AGMBIR1  AGMBIR2  AGMCDP  AGMCDPC  AGMCDPCM  AGMCDPN  
AGMCRP  AGMCRP2  AGMCRP3  AGMCRP4  AGMCRP5  AGMCRP6  AGMSPFRM  AGMSPINT  
AGNAMOPT  AGNDX1  AGNDX2  AGNDX3  AGNDX4  AGNDXP  AGOV64  AGPHROPT  
AGPREI  AGPREI2  AGREPRT  AGREPRT1  AGREPRT2  AGRPTPRV  AGRPTVET  AGSEENLY  
AGSSKILL  AGSSPLIT  AGTEMPP  AGTRBL  AGTX  AGTXERP  AGTXTOT  AGUND18  
AGVALID  AGVAR  
Patient Registration GUI 5 AGGCMTCH  AGGRFCE  AGGRPRT  AGGRPRT1  AGGRPRT2  
IHS Emergency Dept Dashboard 3 BEDDEHRS  BEDDMREC  BEDDUTIL  
Patient Registration MPI 2 AGMPHLU  AGMPHLU1  
Emergency Room 1 AMERAGED  
IHS Changes To Scheduling 1 ASDREG  
IHS View Patient Record 1 BVPAG  
Local Area Programs 1 AZHZCLN  
Third Party Billing 1 ABMDTEL  
iCare 1 BQIRFCE  

Entry Points

Name Comments DBIA/ICR reference
CPI ;EP
HDR ;EP - Print menu header.
CTR ;EP - Center X.
YN ;EP
READ ;EP - Standard READ sub-routine for Registration.
LINES ;EP "Standard" lines of characters.
PHDR ;EP - Print parent menu header.
SHDR ;EP - Screen header.
KILL ;PEP - USED BY TPB TO CLEAN UP VARIABLES
LINE ;EP - Standard writeline sub-routine.
PTLK ;EP - Standard pt lookup using DIC.
CURPATCH() ;EP - GET CURRENT PATCH LEVEL FOR HEADER
VIDEO ;EP
PTLKNKIL ;
DFNTR ;EP - External Packages
SITE ;EP - From options.
CHKRHI ;EP - CHECK PATIENT FOR RESTRICTED HEALTH INFORMATION
L4 ;
T ;EP - DISPLAY TIME IN HH:MM (AM/PM) FORMAT
RTRN ;EP
CHKNPP ;EP - CHECK PATIENT FOR NOTICE OF PRIVACY PRACTICES ENTRY
NOW ;EP - Set AGTIME to time now.

External References

Name Field # of Occurrence
DD^%DT AG+14, NOW+3
NOW^%DTC NOW+1, T+1
^%ZIS AG+18, SHDR+3
^AG PHDR+6
CHKRHI^AG PTLKNKIL+5
^AGBADATA DFNTR+3
^AGDATCK DFNTR+2
$$CHKDEATH^AGEDERR PTLKNKIL+10
^AGVAR HDR+2
$$S^AGVDF AG+19, PTLKNKIL+7, SHDR+5
^DIC PTLKNKIL+3
^DIR RTRN+4
SET^XBSITE SITE+1
$$FMTE^XLFDT AG+32, AG+33
$$CJ^XLFSTR SITE+3, SITE+4, SITE+5, SHDR+10, SHDR+11, SHDR+12
$$LAST^XPDUTL AG+32, AG+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!?22
  • Line Location: AG+19
Function Call: WRITE
  • Prompt: "*"
  • Line Location: AG+20
Function Call: WRITE
  • Prompt: !?22,"*",?56,"*"
  • Line Location: AG+21
Function Call: WRITE
  • Prompt: !?22,"* INDIAN HEALTH SERVICE *"
  • Line Location: AG+22
Function Call: WRITE
  • Prompt: !?22,"* PATIENT REGISTRATION SYSTEM *"
  • Line Location: AG+23
Function Call: WRITE
  • Prompt: !?22,"* VERSION ",AG("VERSION")
  • Line Location: AG+27
Function Call: WRITE
  • Prompt: ".",$$CURPATCH
  • Line Location: AG+27
Function Call: WRITE
  • Prompt: ", ",AG("VERDT"),?56,"*"
  • Line Location: AG+28
Function Call: WRITE
  • Prompt: !?22,"* AG V7.1 P",+AGTMP,", ",$$FMTE^XLFDT($P(AGTMP,"^",2),"5D"),?56,"*"
  • Line Location: AG+32
Function Call: WRITE
  • Prompt: !?22,"* AGMPI V7.2 P",+AGTMP,", ",$$FMTE^XLFDT($P(AGTMP,"^",2),"5D"),?56,"*"
  • Line Location: AG+33
Function Call: WRITE
  • Prompt: !?22,"*",?56,"*",!?22
  • Line Location: AG+35
Function Call: WRITE
  • Prompt: "*"
  • Line Location: AG+36
Function Call: WRITE
  • Prompt: !!?80-$L($P(^DIC(4,DUZ(2),0),U))\2,$P(^(0),U)
  • Line Location: SITE+2
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("*** NOTE: IF YOU EDIT A PATIENT AND SEE THEIR NAME IN REVERSE VIDEO ***",IOM)
  • Line Location: SITE+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** WITH '(RHI)' BLINKING NEXT TO IT, IT MEANS THEY HAVE RESTRICTED ***",IOM)
  • Line Location: SITE+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** HEALTH INFORMATION ***",IOM)
  • Line Location: SITE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L4+1
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: READ+2
Function Call: READ
  • Timeout: 5
  • Variable: Y
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: AG("LINE")
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: !!,"Enter a ""Y"" for YES or an ""N"" for NO."
  • Line Location: YN+1
Function Call: WRITE
  • Prompt: !,$$S^AGVDF("RVN"),$$S^AGVDF("BLN"),"This patient has Restricted Health Information",$$S^AGVDF("BLF"),$$S^AGVDF("RVF")
  • Line Location: PTLKNKIL+7
Function Call: WRITE
  • Prompt: !!?5,"**** ALERT: DATE OF DEATH ON FILE FOR THIS PATIENT!!"
  • Line Location: PTLKNKIL+10
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: SHDR+5
Function Call: WRITE
  • Prompt: !!?30,$S($E(Y,1,2)="AG":"PATIENT REGISTRATION",1:"")
  • Line Location: SHDR+6
Function Call: WRITE
  • Prompt: !!?40-($L($P(^DIC(4,DUZ(2),0),U))\2),$P(^(0),U)
  • Line Location: SHDR+7
Function Call: WRITE
  • Prompt: !!,X,!
  • Line Location: SHDR+8
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("*** NOTE: IF YOU EDIT A PATIENT AND SEE THEIR NAME IN REVERSE VIDEO ***",IOM)
  • Line Location: SHDR+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** WITH '(RHI)' BLINKING NEXT TO IT, IT MEANS THEY HAVE RESTRICTED ***",IOM)
  • Line Location: SHDR+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** HEALTH INFORMATION ***",IOM)
  • Line Location: SHDR+12
Function Call: WRITE
  • Prompt: !?21,"*** CONFIDENTIAL PATIENT INFORMATION ***"
  • Line Location: CPI+1
Function Call: WRITE
  • Prompt: $J(+AG("HOUR"),2),":",AG("MINUTE")," ",AG("AMPM")
  • Line Location: T+9
Routine Call
  • DIC
  • Line Location:
    • PTLKNKIL+3
Routine Call
  • DIR
  • Line Location:
    • RTRN+4
Routine Call
  • %ZIS
  • Line Location:
    • AG+18
    • SHDR+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] VIDEO+1
^AUPNNPP("B" CHKNPP+2
^AUPNRHI - [#9000039] CHKRHI+4
^AUPNRHI("B" CHKRHI+3
^DIC(19 - [#19] HDR+3, PHDR+4, PHDR+5
^DIC(4 - [#4] SITE+2, SHDR+7
^DIC(9.4 - [#9.4] AG+9, AG+10, AG+11, AG+13, CURPATCH+2, CURPATCH+3, CURPATCH+4, CURPATCH+5
^UTILITY("DIQ1" KILL+1!
^XUTL("XQ" PHDR+2, PHDR+3, PHDR+4, PHDR+5

Label References

Name Line Occurrences
CTR SHDR+4
KILL PHDR+1
L4 SITE+1
READ READ+2
SHDR HDR+5

Naked Globals

Name Field # of Occurrence
^(0 SITE+2, SHDR+7
^(5 VIDEO+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CURPATCH+1~, NOW+2, T+2
%DT KILL+2!
A KILL+2!
AG L4+2!, KILL+2!, DFNTR+4!
AG("*" LINES+5*, LINES+6*
AG("-" LINES+1*, LINES+2*
AG("=" LINES+3*, LINES+4*
AG("AMPM" T+5*, T+7*, T+9
AG("DENT" KILL+3!
AG("HOUR" T+3*, T+6, T+8*, T+9
AG("LI" LINE+2*
AG("LINE" LINE+2
AG("MINUTE" T+4*, T+9
AG("RPT" SHDR+9
AG("TIME" T+2*, T+3, T+4
AG("TRBCODE" KILL+4!
AG("VERDT" AG+6*, AG+15*, L4+2!
AG("VERSION" AG+7*, AG+10*, AG+11, L4+2!, CURPATCH+3
AGAIN KILL+5!
AGCHRT KILL+2!
AGI KILL+2!
>> AGIEN AG+9*, AG+13
AGL KILL+3!
AGLINE KILL+2!
AGNEW KILL+4!
AGNEWINS HDR+1!
AGOPT KILL+2!, HDR+2, PHDR+1, DFNTR+4!
AGPAT KILL+2!
>> AGPATDFN PTLKNKIL+5*
AGPCC KILL+4!
AGQI DFNTR+4!
AGQT DFNTR+4!
AGSCRN KILL+4!
AGSELECT KILL+6!
AGSITE KILL+2!
AGTEMP KILL+4!
>> AGTIME NOW+4*
AGTMP AG+31~, AG+32*, AG+33*
AGTP DFNTR+4!
AGUPDT KILL+2!
C KILL+3!
DFN KILL+3!, PTLK+1!, PTLKNKIL+5*, PTLKNKIL+10, CHKNPP+2, CHKRHI+1, CHKRHI+3
DFOUT READ+2!, READ+3*, KILL+3!
DIC KILL+3!, PTLK+2!, PTLKNKIL+1*
DIC(0 PTLKNKIL+2*
DIE KILL+3!
DIR RTRN+5!, HDR+1!
DIR(0 RTRN+3*
DIRUT READ+1!
DLOUT READ+2!, READ+4*, KILL+3!
DQOUT READ+2!, READ+6*, KILL+3!
DTIME READ+2
DTOUT READ+2!*, KILL+3!
DUOUT READ+2!, READ+5*, KILL+3!
DUZ(2 SITE+1, SITE+2, SHDR+7
G KILL+3!
I AG+20*, AG+36*, L4+2!, CURPATCH+1~, CURPATCH+2*, CURPATCH+3, CURPATCH+4, CURPATCH+5, KILL+3!
IOF AG+16, SHDR+1
IOM SITE+3, SITE+4, SITE+5, SHDR+10, SHDR+11, SHDR+12
ION AG+17
>> IOP AG+17*, SHDR+2*
IOST RTRN+2
IOST(0 VIDEO+1
J CURPATCH+1~
L KILL+3!
NPPFLAG CHKNPP+1!, CHKNPP+4*
>> PENTRY CURPATCH+3*, CURPATCH+4, CURPATCH+5
>> PVER CURPATCH+4*, CURPATCH+5*, CURPATCH+6
REC CHKNPP+1!, CHKNPP+2*, CHKNPP+3, CHKRHI+2*, CHKRHI+3*, CHKRHI+4
RHIFLAG PTLK+1!, PTLKNKIL+6, PTLKNKIL+7, CHKRHI+2*, CHKRHI+4*
U AG+13, SITE+2, CURPATCH+5, READ+6, HDR+3, PHDR+4, PHDR+5, SHDR+7, CHKRHI+4
X CTR+1*, KILL+4!, HDR+3*, PHDR+4*, SHDR+4, SHDR+8
XY KILL+4!, VIDEO+1*
XYER KILL+4!, VIDEO+1*, VIDEO+2*
Y AG+8*, AG+9*, AG+10, AG+11*, AG+12, AG+13*, AG+15, READ+2*, READ+3*, READ+4
, READ+5*, READ+6*, RTRN+1*, NOW+2*, NOW+4, KILL+4!, PTLKNKIL+5, HDR+4*, PHDR+5*, PHDR+6
, SHDR+6
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