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

Package: Patient Registration GUI

Routine: AGGRPRT1


Information

AGGRPRT1 ; VNGT/HS/KDC - ;

Source Information

Source file <AGGRPRT1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Patient Registration 3 (CTR,NOW)^AG  ^AGPATCNT  ^AGREPRT2  
VA Fileman 2 DD^%DT  $$GET1^DIQ  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Registration GUI 1 AGGRPRT  

Entry Points

Name Comments DBIA/ICR reference
END1
UCI1
PAT ;individual patient
HDR ;S AGPGPG=AGPGPG+1,Y=AGBDT D DD^%DT W $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"DAILY REGISTRATION ACTIVITY REPORT",!,AGUCI,!,AGTIME,!!,?80-(11+$L(Y))\2,"Report for ",Y,!!
LPAT ;loop patients
EDIT
SCAN ;scan dates
END
FILE
PRINT ;
NEW
DAY ;print a days information

External References

Name Field # of Occurrence
DD^%DT HDR+2
^%ZISC END1
CTR^AG AGGRPRT1+8, AGGRPRT1+9
NOW^AG AGGRPRT1+8
^AGPATCNT AGGRPRT1+6
^AGREPRT2 AGGRPRT1+8
$$GET1^DIQ FILE+2, FILE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Total patients Added :",?30,AG("NEW")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"Total patients Edited :",?30,AG("EDIT")
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"Total patients Removed :",?30,AG("KILL")
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"Total patients Registered :",?30,AG("TOTPAT")
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,?4,"NEW PATIENTS REGISTERED: ",^TMP($J,AGBDT,"N"),!!,?7,"PATIENT FILES EDITED: ",^TMP($J,AGBDT,"E"),!!
  • Line Location: DAY+6
Function Call: WRITE
  • Prompt: ?6,"PATIENT FILES DELETED: ",^TMP($J,AGBDT,"K"),!!
  • Line Location: DAY+6
Function Call: WRITE
  • Prompt: ?2,"TOTAL PATIENTS REGISTERED: ",AG("TOTPAT"),!!
  • Line Location: DAY+7
Function Call: WRITE
  • Prompt: ?5,$P(^DPT(DFN,0),U),?43,$J($P(^AUPNPAT(DFN,41,AGGDUZ2,0),U,2),6)
  • Line Location: FILE+0
Function Call: WRITE
  • Prompt: ?52,^(DR)
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: ?52,$$GET1^DIQ(9000001,DFN_",",1107.3)
  • Line Location: FILE+2
Function Call: WRITE
  • Prompt: ?66,$J(^(DR),10)
  • Line Location: FILE+3
Function Call: WRITE
  • Prompt: ?66,$J($P($$GET1^DIQ(2,DFN_",",.03),"@"),10)
  • Line Location: FILE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FILE+5
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"DAILY REGISTRATION ACTIVITY REPORT",!,AGUCI,!,AGTIME,!!,?80-(11+$L(Y))\2,"Report for ",Y,!!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"DAILY REGISTRATION ACTIVITY REPORT",!,AGUCI,!,AGTIME,!!,?80-(36+$L(Y))\2,"Report from ",AGB," to ",AGE,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"DAILY REGISTRATION ACTIVITY REPORT",!,AGUCI,!,AGTIME,!!,?80-(36+$L(Y))\2,"Report from ",AGB," to ",AGE,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?80-$L(AG("HD"))\2,AG("HD"),!!,?13,"Name",?44,"IHS #",?56,"SSN",?70,"DOB",!,"-----------------------------------",?43,"------",?52,"-----------",?66,"------------",!
  • Line Location: UCI1+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" AGGRPRT1+9
^AGPATCH( SCAN+3, LPAT+1, LPAT+2, PAT+2
^AUPNPAT - [#9000001] PAT+3, FILE
^DIC(4 - [#4] AGGRPRT1+9
^DPT - [#2] FILE
^TMP($J SCAN+2!, PAT+2*, PAT+4*, PAT+5*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+14, DAY+2*
, DAY+3*, DAY+4*, DAY+6, NEW, NEW+2, EDIT+1, EDIT+3, END1+1!
^UTILITY("DIQ1" END1+1!
^VA(200 - [#200] AGGRPRT1+9

Label References

Name Line Occurrences
DAY PRINT+14
EDIT DAY+10
END AGGRPRT1+14
FILE NEW+2, EDIT+3
HDR PRINT+6, DAY+5, NEW+1, EDIT+2
LPAT SCAN+3
NEW DAY+10
PAT LPAT+2
PRINT AGGRPRT1+13
SCAN AGGRPRT1+11
UCI1 NEW+1, EDIT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A END1+1!
AG END1+1!
AG("B" AGGRPRT1+5
AG("DFN" LPAT+2*, PAT+2, PAT+3, PAT+4, PAT+5
AG("E" SCAN+3
AG("EDIT" SCAN+1*, PRINT+1*, PRINT+3*, PRINT+8
AG("FAC" AGGRPRT1+5*
AG("GL" PAT+2*, PAT+4
AG("HAT" END!
AG("HD" PRINT+6*, NEW+1*, EDIT+2*, UCI1
AG("KILL" SCAN+1*, PRINT+1*, PRINT+5*, PRINT+9
AG("LOC" AGGRPRT1+9*, END1+1!, HDR+2
AG("NEW" SCAN+1*, PRINT+1*, PRINT+4*, PRINT+7
AG("TOP" UCI1, UCI1+1!
AG("TOTPAT" PRINT+10, DAY+7
AG("TYPE" AGGRPRT1+8, PRINT+13
AG("USR" AGGRPRT1+9*, END1+1!, HDR+2
>> AGB HDR+2
AGBDT AGGRPRT1+5*, AGGRPRT1+10, SCAN+3*, PAT+2, PAT+4, PAT+5, PRINT+2*, PRINT+3, PRINT+4, PRINT+5
, PRINT+14*, DAY+2, DAY+3, DAY+4, DAY+6, NEW, NEW+2, EDIT+1, EDIT+3, END1+1!
, HDR+2
>> AGBDTS AGGRPRT1+10*, SCAN+3*, LPAT+1, LPAT+2, PAT+2
AGBM AGGRPRT1+9*, END1+1!
>> AGE HDR+2
>> AGGDUZ2 AGGRPRT1+5, AGGRPRT1+9, LPAT+1, LPAT+2, PAT+2, PAT+3, FILE
AGIO AGGRPRT1+9, END1+1!
AGPGPG SCAN+1*, END1+1!, HDR+2*
AGTIME AGGRPRT1+8*, END1+1!, HDR+2
AGUCI AGGRPRT1+9*, END1+1!, HDR+2
DA END1+1!
>> DFN NEW+2*, EDIT+3*, FILE, FILE+2, FILE+4
DFOUT AGGRPRT1+7!, AGGRPRT1+12, SCAN+3, LPAT+2, PAT+1, PRINT+2, PRINT+12, PRINT+14, DAY+1, DAY+9
, NEW+2, NEW+3, EDIT, EDIT+3, EDIT+4
DIC END1+1!
DR END1+1!
DTOUT AGGRPRT1+7!, AGGRPRT1+12, SCAN+3, LPAT+2, PAT+1, PRINT+2, PRINT+12, PRINT+14, DAY+1, DAY+9
, NEW+2, NEW+3, EDIT, EDIT+3, EDIT+4
DUOUT AGGRPRT1+7!, AGGRPRT1+12, SCAN+3, LPAT+2, PAT+1, PRINT+2, PRINT+12, PRINT+14, DAY+1, DAY+9
, NEW+2, NEW+3, EDIT, EDIT+3, EDIT+4
DUZ AGGRPRT1+9
IO AGGRPRT1+8, AGGRPRT1+9, PRINT+7
IOSL AGGRPRT1+9
U AGGRPRT1+9, PAT+2, FILE
X AGGRPRT1+8*, AGGRPRT1+9*, END1+1!
Y AGGRPRT1+9, END1+1!, HDR+2*
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