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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGRHI1

Package: IHS Patient Registration

Routine: AGRHI1


Information

AGRHI1 ; IHS/ASDS/EFG - RESTRICTED HEALTH REPORT ;

Source Information

Source file <AGRHI1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 $$NOW^XLFDT  $$RJ^XLFSTR  
VA Fileman 2 DD^%DT  ^DIR  
IHS Patient Registration 1 ^AGDBQUE  

Entry Points

Name Comments DBIA/ICR reference
ENDDT ;PROMPT FOR ENDING DATE OF ENTRY
EN ;EP
HDR ;PRINT THE PAGE HEADER
PROCESS ;PROCESS LOOP FOR REPORT RECORDS
EXIT ;
PRINT ;DO HEADER AND DETAIL PRINTING HERE
BEGDT ;PROMPT FOR BEGINNING DATE OF ENTRY
HD ;

External References

Name Field # of Occurrence
DD^%DT BEGDT+7, ENDDT+6
^AGDBQUE EN+8
^DIR BEGDT+5, ENDDT+4, HD+3
$$NOW^XLFDT HDR+5
$$RJ^XLFSTR PRINT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?19,"*** RESTRICTED HEALTH INFORMATION REPORT ***"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?70,"Page ",AG("PAGE")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(80-$L(AG("DSPDAT"))/2),AG("DSPDAT")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"BEGINNING ENTRY DATE: ",AG("BEGDT")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"ENDING ENTRY DATE: ",AG("ENDDT")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!,"PERSON",?18,"DATE OF"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"ENTERING",?19,"ENTRY",?30,"MR#",?38,"STATUS",?46,"REQUEST INFO"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"--------",?18,"-----",?30,"---",?38,"------",?46,"------------",!
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,USERNAM,?18,EDATE,?30,$$RJ^XLFSTR(MR,6),?40,STATUS
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: ?46,AG("K"),!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,CNT," Records found from ",AG("BEGDT")," TO ",AG("ENDDT")
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+2
Routine Call
  • DIR
  • Line Location:
    • BEGDT+5
    • ENDDT+4
    • HD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PROCESS+11
^AUPNRHI - [#9000039] PROCESS+9, PROCESS+14
^AUPNRHI("G" PROCESS+3, PROCESS+6, PROCESS+8
^VA(200 - [#200] PRINT+6
^XTMP("AGRHI" PROCESS+15*, PRINT+3, PRINT+4, PRINT+5, EXIT+1!

Label References

Name Line Occurrences
BEGDT EN+2
HD PRINT+11
HDR PRINT+1, HD+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("BEGDT" BEGDT+7*, HDR+9, PRINT+16
>> AG("DSPDAT" HDR+6*, HDR+7*, HDR+8
>> AG("ENDDT" ENDDT+6*, HDR+10, PRINT+16
>> AG("F1" EN+1!, PRINT+3, PRINT+4, PRINT+11, HD+4*
>> AG("K" PRINT+15*
>> AG("PAGE" BEGDT+1*, HDR+2*, HDR+4
>> AG("RHIDT" HDR+5*, HDR+6
>> AG("Y" PRINT+14*, PRINT+15
>> AGQ("NS" EN+7*
>> AGQ("RC" EN+4*
>> AGQ("RP" EN+5*
>> AGQ("RX" EN+6*
BDT BEGDT+7*, PROCESS+4, PROCESS+16!
>> CNT PRINT+2*, PRINT+13*, PRINT+16
DFN PROCESS+10*, PROCESS+11, PROCESS+16!
DIR BEGDT+2!, ENDDT+1!, HD+3!
DIR("A" BEGDT+4*, ENDDT+3*
DIR(0 BEGDT+3*, ENDDT+2*, HD+3*
>> DIROUT HD+4
>> DTOUT EN+3, BEGDT+6, ENDDT+5, HD+4
>> DUOUT EN+3, BEGDT+6, ENDDT+5, HD+4
DUZ(2 PROCESS+11
>> EDATE PRINT+7*, PRINT+12
EDT ENDDT+6*, PROCESS+4, PROCESS+16!
ENTDAT PROCESS+2*, PROCESS+3*, PROCESS+4, PROCESS+6, PROCESS+8, PROCESS+15, PROCESS+16!, PRINT+2*, PRINT+3*, PRINT+4
, PRINT+5, PRINT+7
IO("Q" HD+1
IO("S" HD+1
IOF HDR+1
IOSL PRINT+11, HD+2
IOST HD+1
MR PROCESS+11*, PROCESS+15, PROCESS+16!, PRINT+8*, PRINT+12
RECORD PROCESS+9*, PROCESS+10, PROCESS+12, PROCESS+16!
RHI PROCESS+12*, PROCESS+15, PROCESS+16!, PRINT+10*, PRINT+14, PRINT+15*
RHIREC PROCESS+7*, PROCESS+8*, PROCESS+9, PROCESS+14, PROCESS+16!, PRINT+2*, PRINT+5*, PRINT+8, PRINT+9, PRINT+10
RHISTAT PROCESS+5*, PROCESS+6*, PROCESS+8, PROCESS+13, PROCESS+15, PROCESS+16!
>> STATUS PRINT+9*, PRINT+12
STREC PROCESS+13*, PROCESS+14, PROCESS+16!
U PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+14, PROCESS+15, PRINT+6, PRINT+8, PRINT+9, PRINT+10
USER PROCESS+14*, PROCESS+15, PROCESS+16!, PRINT+2*, PRINT+4*, PRINT+5, PRINT+6
>> USERNAM PRINT+6*, PRINT+12
X BEGDT+2!, BEGDT+7*, ENDDT+1!, ENDDT+6*
Y BEGDT+2!, BEGDT+7, ENDDT+1!, ENDDT+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All