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

Package: IHS Patient Registration

Routine: AGCHLB


Information

AGCHLB ; IHS/ASDS/EFG - SELECT PATIENTS & PRINT CHART LABELS ;

Source Information

Source file <AGCHLB.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Patient Registration 3 (PTLK,READ,YN)^AG  ^AGDICLK  $$S^AGVDF  
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA Fileman 1 WAIT^DICD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS View Patient Record 1 BVPRP  

Entry Points

Name Comments DBIA/ICR reference
OPT
A
C ;Print Test Label.
B
OLD
D
S1
DEV
A1
START ;EP - From TaskMan.
SEE
END
NEW

External References

Name Field # of Occurrence
^%ZIS C+1, DEV
^%ZISC C+2, DEV+1, DEV+3, END
^%ZTLOAD DEV+3
KILL^%ZTLOAD END
PTLK^AG OLD, A
READ^AG OPT, SEE+1, B, D
YN^AG OPT+1, B+2
^AGDICLK S1+1
$$S^AGVDF SEE
WAIT^DICD A1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you wish to re-print the previous list? (Y/N; ""S"" = see the list) "
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Start with which patient? (RETURN = beginning) "
  • Line Location: OLD+0
Function Call: WRITE
  • Prompt: !!,"This patient is not on the list - try again."
  • Line Location: OLD+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),"Previous list of chart labels.....",!
  • Line Location: SEE+0
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),U)
  • Condition for execution: $D(^DPT(DFN))
  • Line Location: SEE+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue; ""^"" to stop."
  • Line Location: SEE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SEE+1
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),U)," is on the list."
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!!,"Number of names on the list: ",AGTOT,!!,"DO YOU WANT TO PRINT A TEST LABEL? (Y/N) Y// "
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !!,"A sample label will be printed so that you",!,"may allign your labels on the printer."
  • Line Location: B+1
Function Call: WRITE
  • Prompt: "IHSIHSIHSIHSIHSIHSIHSIHSIHSIHSIHS",!
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!,"How many copies of each label? (1 - 5) 1// "
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !!,"You may make from 1 to 5 copies of each label.",!!
  • Line Location: D+0
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: AGNAME,!,AGDOB,?27,$J(AGCHART,6),!!!!!
  • Line Location: S1+3
Routine Call
  • %ZIS
  • Line Location:
    • C+1
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2
^AGCHLB( OPT, NEW!*, OLD, SEE+1, A*, A1*, B, S1
^AUPNPAT - [#9000001] S1+1
^AUTTLOC - [#9999999.06] DEV+2
^DPT - [#2] SEE+1, A

Label References

Name Line Occurrences
A OPT, NEW
A1 OLD, OLD+1
AGCHLB OLD, SEE+1
B A1, B+1, B+2, C+3, D
C B+2
D B+2, D
DEV DEV+1, DEV+3
END A1, B+2, S1
NEW OPT+1
OLD OPT+1
OPT OPT+1, OLD, SEE+1
S1 S1+4
SEE OPT+1
START DEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG AGCHLB+2!, SEE+1*, A*, A1*, C+1*, DEV+3!, S1+3*, END!
AG("LKDATA" END!
AG("LKPRINT" S1+1, END!
AGCHART S1+1*, S1+2*, S1+3, END!
AGCOPY D+1*, DEV+3!, S1+3
AGDFN OLD+1*, B, DEV+2*, DEV+3!, START+1, END!
AGDOB S1+1*, S1+3, END!
AGNAME S1+1*, S1+3, END!
>> AGTOT AGCHLB+2*, OLD*, A*, A1, B*
DA S1+1*, END!
DFN AGCHLB+2!, OLD, OLD+1, SEE*, SEE+1*, A, A1*, START+1*, S1*, S1+1
, END!
>> DFOUT OPT+1, OLD, B+2, D
DIC S1+1*, END!
>> DLOUT OPT+1, B+2, D
>> DQOUT B+1, D
DR S1+1*, END!
>> DTOUT OPT+1, OLD, B+2, D
>> DUOUT OPT+1, OLD, SEE+1, B+2, D
DUZ OPT, NEW, OLD, SEE+1, A, A1, B, S1
DUZ(2 DEV+2, S1+1
G DEV+2*, DEV+3!
IO C+1, START+1
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
IOP AGCHLB+2!, DEV*
IOST DEV+1
>> POP C+1, DEV
U SEE+1, A, DEV+2, S1+1
X END!
Y OPT+1, B*, B+2, D*, D+1, DEV+2, END!
Z END!
ZTDESC DEV+2*, DEV+3!
ZTIO DEV+3!
>> ZTQUEUED END
ZTRTN DEV+2*, DEV+3!
ZTSAVE DEV+3!
ZTSAVE( DEV+2*
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All