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

Package: IHS Patient Registration

Routine: AGTEMPP


Information

AGTEMPP ; IHS/ASDS/EFG - PRINT LIST OF TEMPORARY CHART # PATIENTS ;

Source Information

Source file <AGTEMPP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Patient Registration 3 (CTR,LINE,NOW,RTRN)^AG  ^AGDICLK  $$S^AGVDF  
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA Fileman 2 $$GET1^DIQ  EN^DIQ1  

Entry Points

Name Comments DBIA/ICR reference
END1
E
HDR
DEV
START ;EP - From TaskMan.
END

External References

Name Field # of Occurrence
^%ZIS DEV
^%ZISC DEV+1, DEV+3, END1
^%ZTLOAD DEV+3
KILL^%ZTLOAD END1
CTR^AG START+1, START+2, START+3
LINE^AG HDR
NOW^AG START+3
RTRN^AG E+6, END
^AGDICLK E+5
$$S^AGVDF END, HDR
$$GET1^DIQ E+3
EN^DIQ1 E+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 30
  • Variable: Y
  • Line Location: AGTEMPP+2
Function Call: WRITE
  • Prompt: "At this time, there are no patients with temporary chart numbers.",!!,"Press the RETURN key to continue. "
  • Line Location: AGTEMPP+2
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: ?52,$$GET1^DIQ(9000001,DFN_",",1107.3)
  • Line Location: E+3
Function Call: WRITE
  • Prompt: ?66,^(DR)
  • Condition for execution: $D(^(DR))
  • Line Location: E+3
Function Call: WRITE
  • Prompt: !
  • Line Location: E+4
Function Call: WRITE
  • Prompt: ?20,$J(AG("LKPRINT"),6)
  • Line Location: E+5
Function Call: WRITE
  • Prompt: ?30,$P(^DIC(4,AG("LKPRINT"),0),U)
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: E+5
Function Call: WRITE
  • Prompt: !
  • Line Location: E+5
Function Call: WRITE
  • Prompt: !!,"Total patients with temporary chart numbers: ",T
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?22,"PATIENTS WITH TEMPORARY CHART NUMBERS",!,AGUCI,!,AGTIME,!!!!?3,"Name",?21,"IHS #",?30,"FACILITY",?56,"SSN",?70,"DOB",!
  • Line Location: HDR+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2, START+2
^AUPNPAT("D" AGTEMPP+2, E
^AUTTLOC - [#9999999.06] DEV+2
^DIC(4 - [#4] START+1, E+5
^DPT - [#2] E+1
^UTILITY("DIQ1" E!
^VA(200 - [#200] START+1

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
E E, E+7
END E
END1 E+6
HDR START+3, E+6
START DEV+1

Naked Globals

Name Field # of Occurrence
^( E+3
^(0 E+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DEV+3!, END1!
AG("DENT" END1!
AG("DRENT" E+5*
AG("HAT" AGTEMPP+3*, END!
AG("II" E+5*
AG("LINE" HDR*
AG("LKDATA" END1!
AG("LKERR" E+5, END1!
AG("LKPRINT" E+5, END1!
AG("LOC" START+1*, END1!, HDR
AG("USR" START+1*, END1!, HDR
AGBM START+1*, E+6, END1!
AGIO AGTEMPP+3*, DEV+3!, START+1, END1!
AGL END1!
AGPCC END1!
AGPGPG START+1*, END1!, HDR*
AGTEMP START+1*, E*, END1!
AGTIME START+3*, END1!, HDR
AGUCI START+2*, END1!, HDR
C END1!
DA E+3*, E+5*, END1!
DFN E*, E+1, E+3, E+5, END1!
>> DFOUT E+6
DIC E+3*, E+5*, END1!
DLOUT END1!
DR E+3*, E+5*, END1!
>> DTOUT E+6
>> DUOUT E+6
DUZ START+1
DUZ(2 DEV+2, START+1
G DEV+2*, END1!
IO AGTEMPP+3, START+1, START+3
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*
IOSL START+1
IOST DEV+1
N END1!
>> POP DEV
T START+1*, E+6*, END, END1!
U DEV+2, START+1, E+1, E+5
X START+1*, START+2*, START+3*, END1!
Y AGTEMPP+2*, DEV+2, START+2, END1!
ZTDESC DEV+2*, DEV+3!
>> ZTQUEUED END1
ZTRTN DEV+2*, DEV+3!
>> ZTSAVE( DEV+2*
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!
Info |  Source |  Call 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