Routine: ENTIRRH

Information

ENTIRRH ;WOIFO/LKG - Print hand receipt ;3/19/08 15:48

Package	Total	Call Graph
Kernel	8	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT $$NAMEFMT^XLFNAME OP^XQCHK ($$CMP,$$ESBLOCK)^XUSESIG1 DE^XUSHSHP
VA FileMan	3	(,FIND)^DIC ($$GET1,GETS)^DIQ ^DIR
Engineering	1	(ITST2,USER)^ENTIRRH1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Engineering	3	ENIT PRINT HAND RCPT (COM) ENIT PRINT HAND RCPT (IT) ENTIRRH1

Entry Points

Name	Comments	DBIA/ICR reference
ASK	;Main entry point
ITSTART	;Entry point for IT
USTART	;User entry point
IN	;
EX
HDR1	;Logic to print report heading
ITST2	;IT personnel entry point for printing signed hand receipts
USER	;User entry point for printing signed hand receipts
IN2	;
PRT
EX2
SIGNED(ENDA)	;Returns how many signed/certified, active assignments exist for this person
ISSUEDBY(ENRDA)	;Name of person assigning responsibility
DATEDUE(ENDA,ENADD)	;Returns Date Due for Return
LOAN(ENEQ)	;Loan Data for Equipment

External References

Name	Field # of Occurrence
^%ZIS	ITSTART+5, USTART+4, ITST2+6, USER+4
HOME^%ZIS	ITSTART+6, USTART+5, ITST2+7, USER+5
^%ZISC	EX, EX2
^%ZTLOAD	ITSTART+6, USTART+5, ITST2+7, USER+5
^DIC	ITSTART+3, ITST2+3
FIND^DIC	IN+7, PRT+5, SIGNED+3
$$GET1^DIQ	IN+3, IN+4, ITST2+5, PRT+2, PRT+3, PRT+26, ISSUEDBY+1, DATEDUE+2
GETS^DIQ	IN+13, PRT+13
^DIR	ASK+9, ITSTART+1, USTART+1, USTART+2, IN+29, HDR1+1, ITST2+5, USER+1, USER+3, PRT+41
ITST2^ENTIRRH1	ASK+10
USER^ENTIRRH1	ASK+10
$$DT^XLFDT	IN+3
$$FMADD^XLFDT	DATEDUE+3
$$FMTE^XLFDT	IN+3, PRT+2, PRT+20, DATEDUE+3
$$NOW^XLFDT	IN+3, PRT+2
$$NAMEFMT^XLFNAME	ISSUEDBY+3
OP^XQCHK	ASK+1
$$CMP^XUSESIG1	IN+9, PRT+8
$$ESBLOCK^XUSESIG1	IN+28
DE^XUSHSHP	PRT+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"UNKNOWN" Line Location: ASK+13
Function Call: WRITE	Prompt: !,"There are no hand receipt templates on file." Line Location: ITSTART+1
Function Call: WRITE	Prompt: !,"There are no hand receipt templates on file." Line Location: USTART+1
Function Call: WRITE	Prompt: !,"You have no active IT assignments." Line Location: USTART+2
Function Call: WRITE	Prompt: !,"The are no unsigned IT assignments." Line Location: IN+8
Function Call: WRITE	Prompt: !!!,"Hand receipt text is corrupted - Please contact EPS AEMS/MERS support" Line Location: IN+9
Function Call: WRITE	Prompt: !,ENNBR,?11,$E(ENMFGN,1,20),?35,ENMODEL,?65,ENSERNBR Line Location: IN+16
Function Call: WRITE	Prompt: !! Line Location: IN+20
Function Call: WRITE	Prompt: !,$G(^ENG(6916.2,ENVR,1,ENI,0)) Line Location: IN+23
Function Call: WRITE	Prompt: !!! Line Location: IN+26
Function Call: WRITE	Prompt: !,"Signature:______________________________ Date:________________" Line Location: IN+27
Function Call: WRITE	Prompt: !,?12,$P($$ESBLOCK^XUSESIG1(ENDA),U) Line Location: IN+28
Function Call: WRITE	Prompt: $S($G(ENPRT)="SIGNED":"IT HAND RECEIPT/LOAN FORM FOR GOVERNMENT FURNISHED EQUIPMENT (GFE) Page ",1:"INFORMATION TECHNOLOGY HAND RECEIPT FOR GOVERNMENT FURNISHED EQUIPMENT Page "),ENPG Line Location: HDR1+3
Function Call: WRITE	Prompt: !,"STATION: ",ENSTN,?14,"ASSIGNED TO: ",$E(ENNAME,1,30),?58,"Printed ",ENNOW,! Line Location: HDR1+5
Function Call: WRITE	Prompt: !,"ENTRY #",?11,"MFG EQUIP NAME",?35,"MODEL",?65,"SERIAL#",!,"---------",?11,"--------------------",?35,"--------------------------",?65,"----------" Line Location: HDR1+6
Function Call: WRITE	Prompt: !,"There are no active, Signed/Certified IT assignments for "_$$GET1^DIQ(200,ENDA_",",.01)_"." Line Location: ITST2+5
Function Call: WRITE	Prompt: !,"You have no active IT assignments." Line Location: USER+1
Function Call: WRITE	Prompt: !,"You do not have any active, Signed/Certified IT assignments." Line Location: USER+3
Function Call: WRITE	Prompt: !!!,"Hand receipt v",$P($G(^ENG(6916.2,ENVR,0)),U)," text is corrupted.",!?5," - Please contact EPS AEMS/MERS support" Line Location: PRT+8
Function Call: WRITE	Prompt: !,ENNBR,?11,$E(ENMFGN,1,20),?35,ENMODEL,?65,ENSERNBR Line Location: PRT+16
Function Call: WRITE	Prompt: !?4,"Signed: ",ENSIGNDT,?35,"Signature: /ES/",$G(ENSIG) Line Location: PRT+25
Function Call: WRITE	Prompt: !,?4,"Signed: "_$$GET1^DIQ(6916.3,ENRDA_",",4),?35,"Certified by: ",$$GET1^DIQ(6916.3,ENRDA_",",6) Line Location: PRT+26
Function Call: WRITE	Prompt: !,?2,"Issued By: ",$$ISSUEDBY(ENRDA),?49,"Contact #: ",$P(ENVAL,U,2) Line Location: PRT+28
Function Call: WRITE	Prompt: !,?2,"Equipment Return Date: ",$$DATEDUE($P(ENDAC,","),$P(ENVAL,U)) Line Location: PRT+29
Function Call: WRITE	Prompt: !?19," Hand Receipt Text Altered " Line Location: PRT+30
Function Call: WRITE	Prompt: !?19," Assigned Equipment Altered " Line Location: PRT+31
Function Call: WRITE	Prompt: !?19," Assigned Person Altered " Line Location: PRT+32
Function Call: WRITE	Prompt: !?19," Date Signed Altered " Line Location: PRT+33
Function Call: WRITE	Prompt: !! Line Location: PRT+36
Function Call: WRITE	Prompt: !,$G(^ENG(6916.2,ENVR,1,ENI,0)) Line Location: PRT+39
Routine Call	%ZIS Line Location: ITSTART+5 USTART+4 ITST2+6 USER+4
Routine Call	%ZIS Line Location: ITSTART+6 USTART+5 ITST2+7 USER+5
Routine Call	DIC Line Location: ITSTART+3 ITST2+3
Routine Call	DIC Line Location: IN+7 PRT+5 SIGNED+3
Routine Call	DIR Line Location: ASK+9 ITSTART+1 USTART+1 USTART+2 IN+29 HDR1+1 ITST2+5 USER+1 USER+3 PRT+41

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(6910 - [#6910]	GET1^DIQ
^ENG(6914 - [#6914]	GET1^DIQ, GETS^DIQ
^ENG(6916.3 - [#6916.3]	FIND^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(6910 - [#6910]	IN+4, PRT+3
^ENG(6914 - [#6914]	LOAN+5
^ENG(6914.1 - [#6914.1]	LOAN+6
^ENG(6916.2 - [#6916.2]	ITSTART+1, USTART+1, IN+9, IN+21, IN+23, IN2+2, PRT+8, PRT+21, PRT+37, PRT+39
^ENG(6916.3 - [#6916.3]	USTART+2, USER+1, PRT+18, PRT+23, PRT+24
^TMP($J	IN+6!, IN+8, IN+11, IN+12, EX+1!, PRT+4!, PRT+6!, PRT+10, PRT+12, EX2+1! , SIGNED+2!, SIGNED+4, SIGNED+5!

Label References

Name	Line Occurrences
$$DATEDUE	PRT+29
$$ISSUEDBY	PRT+28
$$LOAN	PRT+27
$$SIGNED	ITST2+5, USER+3
EX	IN+5, IN+8, IN+9, IN+17, IN+19, IN+24, IN+25
EX2	IN2+3
HDR1	IN+5, IN+15, IN+19, IN+22, IN+25, PRT+7, PRT+15, PRT+25, PRT+26, PRT+30 , PRT+31, PRT+32, PRT+33, PRT+35, PRT+38
IN	ITSTART+7, USTART+6
IN2	ITST2+8, USER+6
ITST2	ASK+12
ITSTART	ASK+11
PRT	IN2+2
USER	ASK+12
USTART	ASK+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ITSTART+5, USTART+4, ITST2+6, USER+4
DIC	ITSTART+2~, ITST2+2~
DIC("A"	ITSTART+2*
DIC("S"	ITSTART+2, ITST2+2
DIC(0	ITSTART+2, ITST2+2
DIR	ASK+2!, ASK+9!, ITSTART+1!, USTART+1!, USTART+2!, IN+2~, IN+29!, HDR1+1!, ITST2+5!, USER+1! , USER+3!, IN2+1~, PRT+41!
DIR("?"	ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, ASK+8
DIR("A"	ASK+2*
DIR("B"	ASK+2*
DIR(0	ASK+2, ITSTART+1, USTART+1, USTART+2, IN+29, HDR1+1, ITST2+5, USER+1, USER+3, PRT+41
DIROUT	ASK+9!, IN+2~, IN2+1~
DIRUT	ASK+9!, IN+2~, IN+5, IN+11, IN+15, IN+17, IN+19, IN+21, IN+22, IN+24 , IN+25, HDR1+1, IN2+1~, IN2+2, PRT+7, PRT+10, PRT+15, PRT+25, PRT+26, PRT+30 , PRT+31, PRT+32, PRT+33, PRT+34, PRT+35, PRT+37, PRT+38, PRT+40
DT	IN+3*, DATEDUE+3
DTOUT	ASK+9!, ITSTART+2~, ITSTART+3, IN+2~, ITST2+2~, ITST2+3, IN2+1~
DUOUT	ASK+9!, ITSTART+2~, ITSTART+3, IN+2~, ITST2+2~, ITST2+3, IN2+1~
DUZ	USTART+2, USTART+3, USER+1, USER+2
ENADD	DATEDUE~, DATEDUE+2*, DATEDUE+3
ENARR	ISSUEDBY+1~, ISSUEDBY+3
ENARR("FIELD"	ISSUEDBY+2*
ENARR("FILE"	ISSUEDBY+2*
ENARR("IENS"	ISSUEDBY+2*
ENCMR	LOAN+3~, LOAN+5*, LOAN+6
ENCNT	SIGNED+1~, SIGNED+4*, SIGNED+6
END	IN+2~, PRT+1~, PRT+11~
END(6914	IN+14, PRT+14
ENDA	ITSTART+1~, ITSTART+4, USTART+1~, USTART+3, IN+3, IN+7, IN+28, EX+1!, ITST2+1~, ITST2+4* , ITST2+5, USER+2~, USER+3, PRT+2, PRT+5, EX2+1!, SIGNED~, SIGNED+3, ISSUEDBY+1~, ISSUEDBY+2 , DATEDUE~, DATEDUE+2
ENDAC	IN+2~, IN+13, IN+14, PRT+1~, PRT+13, PRT+14, PRT+27, PRT+29
ENDT	DATEDUE+1~, DATEDUE+3*, DATEDUE+4
ENEQ	LOAN~, LOAN+5
ENEQPT	IN+2~, IN+3, IN+18, HDR1+6, PRT+1~, PRT+34
ENERR	IN+2~, IN+6!, PRT+1~, PRT+4!, PRT+11~, PRT+17!, SIGNED+1~
ENERR1	PRT+11~, PRT+21*, PRT+30
ENERR2	PRT+11~, PRT+22*, PRT+31
ENERR3	PRT+11~, PRT+23*, PRT+32
ENERR4	PRT+11~, PRT+24*, PRT+33
ENI	IN+2~, IN+10, IN+11, IN+12, IN+21, IN+23, PRT+1~, PRT+9, PRT+10, PRT+12 , PRT+37, PRT+39
ENINVDT	DATEDUE+1~, DATEDUE+2*, DATEDUE+3
ENLNCNT	IN+2~, IN+15, IN+16, IN+19, IN+20, IN+22, IN+23, IN+25, IN+26, HDR1+5* , HDR1+6, PRT+1~, PRT+15, PRT+16, PRT+25, PRT+26, PRT+28, PRT+29, PRT+30, PRT+31 , PRT+32, PRT+33, PRT+35, PRT+36, PRT+38, PRT+39
ENMFGN	IN+2~, IN+14, IN+16, PRT+1~, PRT+14, PRT+16
ENMODEL	IN+2~, IN+14, IN+16, PRT+1~, PRT+14, PRT+16
ENNAME	IN+2~, IN+3, HDR1+5, PRT+1~, PRT+2, ISSUEDBY+1~, ISSUEDBY+3*, ISSUEDBY+4
ENNBR	IN+2~, IN+14, IN+16, PRT+1~, PRT+14, PRT+16
ENNOW	IN+2~, IN+3, HDR1+5, PRT+1~, PRT+2
ENOPT	ASK+1~*, ASK+10, ASK+11, ASK+12
ENPG	IN+2~, IN+3, HDR1+1, HDR1+2, HDR1+3, PRT+1~*
ENPRT	HDR1+3, HDR1+4, HDR1+5, IN2+1~*
ENRDA	PRT+1~, PRT+17*, PRT+18, PRT+20, PRT+23, PRT+24, PRT+26, PRT+28, ISSUEDBY~, ISSUEDBY+1
ENRET	LOAN+3~, LOAN+4, LOAN+7, LOAN+8*, LOAN+9
ENSERNBR	IN+2~, IN+14, IN+16, PRT+1~, PRT+14, PRT+16
ENSIG	PRT+1~, PRT+17!, PRT+20*, PRT+25
ENSIGNDT	PRT+1~, PRT+17!, PRT+20*, PRT+25, PRT+26
ENSTN	IN+2~, IN+4, HDR1+5, PRT+1~, PRT+3
ENVAL	PRT+1~, PRT+27*, PRT+28, PRT+29
ENVR	ITSTART+1~, USTART+1~, IN+9, IN+21, IN+23, EX+1!, IN2+1~, IN2+2*, PRT+8, PRT+21 , PRT+37, PRT+39
ENX	IN+2~, IN+12, IN+13, IN+14, PRT+1~, PRT+12, PRT+13, PRT+14, PRT+17, PRT+22
ENY1	LOAN+3~, LOAN+6*, LOAN+7, LOAN+8
IO	IN+1, PRT
IO("Q"	ITSTART+6!, USTART+5!, ITST2+7!, USER+5!
IOF	HDR1+2
IOSL	IN+15, IN+19, IN+22, IN+25, PRT+15, PRT+25, PRT+26, PRT+30, PRT+31, PRT+32 , PRT+33, PRT+35, PRT+38
IOST	IN+29, HDR1+1, HDR1+2, PRT+41
POP	ITSTART+5!, USTART+4!, ITST2+6!, USER+4!
U	ASK+1, IN+8, IN+9, IN+13, IN+14, IN+28, PRT+6, PRT+8, PRT+13, PRT+14 , PRT+17, PRT+20, PRT+21, PRT+22, PRT+23, PRT+24, PRT+28, PRT+29, SIGNED+4, LOAN+5 , LOAN+7, LOAN+8
X	IN+2~, PRT+1~, PRT+18*, PRT+19, PRT+20, PRT+21, PRT+22, PRT+23, PRT+24
X1	PRT+11~, PRT+20*
X2	PRT+11~, PRT+20*
>> XQOPT	ASK+1
Y	ASK+10, ASK+11, ASK+12, ITSTART+3, ITSTART+4, IN+2~, ITST2+3, ITST2+4, PRT+1~
>> ZTDESC	ITSTART+6, USTART+5, ITST2+7, USER+5
>> ZTQUEUED	EX, EX2
>> ZTREQ	EX, EX2
>> ZTRTN	ITSTART+6, USTART+5, ITST2+7, USER+5
>> ZTSAVE("ENDA"	ITSTART+6, USTART+5, ITST2+7, USER+5
>> ZTSAVE("ENVR"	ITSTART+6, USTART+5
ZTSK	ITSTART+6!, USTART+5!, ITST2+7!, USER+5!

Customize PDF page

Package: Engineering

Routine: ENTIRRH

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: