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

Package: IHS Patient Registration

Routine: AGCARD


Information

AGCARD ; IHS/ASDS/EFG - EMBOSSED CARD ;

Source Information

Source file <AGCARD.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Patient Registration 6 (PTLK,READ)^AG  ^AGBADATA  ^AGDATCK  ^AGDICLK  ^AGVAR  $$S^AGVDF  
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA Fileman 3 DD^%DT  $$GET1^DIQ  EN^DIQ1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Emergency Dept Dashboard 1 BEDDUTIL  
IHS Patient Registration 1 AGNAMOPT  

Entry Points

Name Comments DBIA/ICR reference
FORMPRT ;Use this code if the site selects to set their own card format.
END
PRERR
FRACT
PRNTITEM
COPIES
DEV
TRBCD
START ;EP - TaskMan.
DFN ;EP - With a Pre-defined DFN.
PRINT
CARDP ;Print an ID Card.

External References

Name Field # of Occurrence
DD^%DT START+4
^%ZIS DEV
^%ZISC DEV+2, DEV+4, END
^%ZTLOAD DEV+4
KILL^%ZTLOAD END+1
PTLK^AG AGCARD+3
READ^AG COPIES+1
^AGBADATA PRERR+3
^AGDATCK DFN+6
^AGDICLK TRBCD+7
^AGVAR START+1
$$S^AGVDF PRERR
$$GET1^DIQ START+8, START+11
EN^DIQ1 PRNTITEM+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"EMBOSSED CARD CANNOT BE PRINTED DUE TO TEMPORARY CHART NUMBER"
  • Line Location: DFN+3
Function Call: WRITE
  • Prompt: !!!,"How many copies of the EMBOSSED CARD do you want? (1-5) 1// "
  • Line Location: COPIES+0
Function Call: WRITE
  • Prompt: !!,*7,"Enter a number from 1 through 5.",!!
  • Line Location: COPIES+2
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: PRERR+0
Function Call: WRITE
  • Prompt: "EMBOSSED CARD CANNOT BE PRINTED DUE TO MISSING or "
  • Line Location: PRERR+1
Function Call: WRITE
  • Prompt: "INVALID MANDATORY DATA:",!!
  • Line Location: PRERR+2
Function Call: WRITE
  • Prompt: !,"EMBOSSED CARD CANNOT BE PRINTED DUE TO TEMPORARY CHART NUMBER"
  • Line Location: TRBCD+2
Function Call: WRITE
  • Prompt: ">",@IOF
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,AGFAC,!!,"(",AGCHART,") ",AGSSN,!!,AGNAME,!,AGDOB," "
  • Line Location: CARDP+1
Function Call: WRITE
  • Prompt: AGSEX," ",AG("TRBCODE")," ",AGBLDCD,!," ",AGCOMCD
  • Line Location: CARDP+2
Function Call: WRITE
  • Prompt: ?AGE("CPOS")
  • Line Location: PRNTITEM+8
Function Call: WRITE
  • Prompt: X
  • Line Location: PRNTITEM+11
Routine Call
  • %ZIS
  • Line Location:
    • DEV

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" DEV+3
^AGFAC - [#9009061] FORMPRT+1, PRNTITEM+2, PRNTITEM+7
^AUPNPAT - [#9000001] DFN+2, START+13, TRBCD+5
^AUTTCOM - [#9999999.05] TRBCD+7
^AUTTLOC - [#9999999.06] START+12
^AUTTTRI - [#9999999.03] TRBCD+5
^DIC(4 - [#4] START+12
^DPT - [#2] DEV+3, START+2, START+3
^UTILITY("DIQ1" FORMPRT+2!, PRNTITEM!, PRNTITEM+11

Label References

Name Line Occurrences
CARDP PRINT
COPIES DFN+5, DFN+7, COPIES+2
DEV DEV+2, DEV+4
END DFN+4, PRERR+4, TRBCD+3
FORMPRT PRINT
FRACT TRBCD+6
PRERR DFN+10
PRINT START+1
PRNTITEM FORMPRT+1
START DEV+1

Naked Globals

Name Field # of Occurrence
^( PRNTITEM+11
^(0 TRBCD+7, PRNTITEM+2
^(1 PRNTITEM+7
^(2 PRNTITEM+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DFN+8*, DEV+4!, PRINT*, END+1!, FRACT*, FRACT+1, FRACT+2, FRACT+3
AG("CHRPOS" FORMPRT+1*, PRNTITEM+2, PRNTITEM+7
AG("DRENT" TRBCD+7*
AG("LKDATA" TRBCD+7, END+1!
AG("LKERR" END+1!
AG("LKPRINT" END+1!
AG("TRBCODE" TRBCD+5*, END+1!, CARDP+2
AG0 PRNTITEM+2*, PRNTITEM+4, PRNTITEM+12!
AG2 PRNTITEM+2*, PRNTITEM+4, PRNTITEM+12!
AGBLDCD TRBCD+6*, END+1!, CARDP+2, FRACT+1*, FRACT+2*, FRACT+3*, FRACT+4*
AGCHART START+13*, TRBCD, END+1!, CARDP+1
AGCOMCD TRBCD+7*, END+1!, CARDP+2
AGCOPY COPIES+3*, DEV+4!, PRINT, END+1!
AGDOB START+3*, START+4, START+5*, END+1!, CARDP+1
AGE PRNTITEM+1!, PRNTITEM+12!
AGE("CPOS" END+1!, PRNTITEM+2*, PRNTITEM+8
AGE("IEN1" PRNTITEM+4*, PRNTITEM+5
AGE("IEN2" PRNTITEM+4*, PRNTITEM+6
AGE("MES1" PRNTITEM+2*, PRNTITEM+5
AGE("MES2" PRNTITEM+4*, PRNTITEM+6
AGFAC START+12*, END+1!, CARDP+1
AGITPOTR PRNTITEM+2*, PRNTITEM+7*, PRNTITEM+11, PRNTITEM+12!
AGLINE END+1!, FORMPRT+1*, PRNTITEM+2, PRNTITEM+7
AGLINITM END+1!
AGMES END+1!
AGNAME START+2*, END+1!, CARDP+1
>> AGOPT START+1
>> AGOPT(14 DFN+9
>> AGOPT(19 DFN+5, START+1, PRINT
AGOPTRNS END+1!
AGSEX START+8*, END+1!, CARDP+2
AGSSN START+11*, END+1!, CARDP+1
AGTRQNT TRBCD+5*, TRBCD+6, END+1!, FRACT
AGV PRNTITEM+1!, PRNTITEM+12!
AGV("DTOT" DFN+6*, DFN+7, DFN+8*, DFN+9*, DFN+10
AGV("ER" DFN+8, DFN+9
AGV("SFFN" END+1!, PRNTITEM+2*, PRNTITEM+6, PRNTITEM+8
AGV("SFN" END+1!, PRNTITEM+2*, PRNTITEM+6, PRNTITEM+8, PRNTITEM+9, PRNTITEM+10
DA TRBCD+7*, END+1!, PRNTITEM+1!, PRNTITEM+2*, PRNTITEM+3, PRNTITEM+5*, PRNTITEM+10*, PRNTITEM+11, PRNTITEM+12!
DA( PRNTITEM+6*, PRNTITEM+10
>> DFN DFN+1, DFN+2, DEV+3, START+2, START+3, START+8, START+11, START+13, TRBCD+5, TRBCD+7
, PRNTITEM+2, PRNTITEM+5, PRNTITEM+6
>> DFOUT DFN+1
DIC TRBCD+7*, END+1!, PRNTITEM+2*, PRNTITEM+3, PRNTITEM+9*, PRNTITEM+10*, PRNTITEM+11
>> DLOUT COPIES+1
DR TRBCD+7*, END+1!, PRNTITEM+1!, PRNTITEM+2*, PRNTITEM+3, PRNTITEM+8*, PRNTITEM+11, PRNTITEM+12!
DR( PRNTITEM+6*
>> DTOUT DFN+1
>> DUOUT DFN+1
DUZ(2 DFN+2, START+12, START+13, FORMPRT+1, PRNTITEM+2, PRNTITEM+5, PRNTITEM+6, PRNTITEM+7
G DEV+3*, DEV+4!
IO PRINT
IO("Q" DEV+1!
IO("S" DEV+2
IOF PRINT
ION DEV
>> IOP DEV*
IOST DEV+2
>> POP DEV
U DFN+2, DEV+3, START+2, START+3, START+12, START+13, TRBCD+5, TRBCD+7, PRNTITEM+2, PRNTITEM+4
X START+13*, END+1!, PRNTITEM+11*
>> Y COPIES+1*, COPIES+2, COPIES+3, DEV+3, START+4*, START+5
ZTDESC DEV+3*, DEV+4!
>> ZTQUEUED TRBCD+1, END+1
ZTRTN DEV+3*, DEV+4!
ZTSAVE DEV+4!
ZTSAVE( DEV+3*
ZTSK DEV+4!
ZTUCI DEV+3*, DEV+4!
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