Routine: DGPTTS3

Information

DGPTTS3 ;ALB/MJK - Physical Mvt ; 2/10/11 6:19pm

Source Information

Source file <DGPTTS3.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	(,C)^%DTC ^DIC ^DIE (,IX1)^DIK
Registration	2	^DGINPW (FDT,PM)^DGPTUTL

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	1	IB20PT83
Registration	1	DGPTTS

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- entry used to update PTF rec ; input: PTF := PTF# ; DFN := pt# ; DGPMCA := adm mvt # ; DGDT := d/c date
MVT	; -- find last 501 mvt d/t since the last 535 mvt d/t ; and before the new 535 mvt d/t
FLCHK	; -- check if more than 25 535s, then re-set x-mit flags
FLQ
PTF
CREATE	; -- create MPCR mvt
NEXT	; -- find next x-ref date
L
DAYS0	;
DAYS	; -- calc leave and pass days from DGBEG to DGEND ; -- if last 501 date is after last 535 date then ; calc from last 535 mvt d/t to last 501 mvt d/t
ENQ
CREATEQ
TABLEQ
KILL	; -- clean out ward mvts
T	; -- test tag
TABLE	; -- setup 535 node data ; DGDATA := 1:ward cdr ^ 2:ward specialty ^ 3:leave days ^ 4:pass days ^ ^ 6:ward ^ ^ ^ ^ 10:mvt date/time
DAYS1
NEXTQ

External References

Name	Field # of Occurrence
^%DTC	DAYS1+1
C^%DTC	EN+10
^DGINPW	EN+17
FDT^DGPTUTL	EN+7
PM^DGPTUTL	PTF
^DIC	T+1
^DIE	FLCHK+5
^DIK	KILL+1
IX1^DIK	L+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Now updating ward MPCR information..." Line Location: EN+8
Function Call: WRITE	Prompt: !,"Another user is editing this record, trying again...",! Line Location: CREATE+1
Routine Call	DIE Line Location: FLCHK+5
Routine Call	DIC Line Location: T+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	EN+16, EN+19, DAYS0+2, NEXT+2
^DGPT - [#45]	CREATE+1, CREATE+2, L, L+1, L+2, KILL+1, KILL+2, PTF, MVT+3, FLCHK+4
^DIC(42 - [#42]	TABLE+4
^DIC(42.4 - [#42.4]	TABLE+5

Label References

Name	Line Occurrences
CREATE	EN+21, TABLE+7
DAYS	EN+21, TABLE+7
DAYS0	DAYS+10, DAYS+12
DAYS1	DAYS0+2
EN	PTF
ENQ	EN+7, EN+20
FLCHK	ENQ
FLQ	FLCHK+1, FLCHK+2
KILL	EN+12
L	L
MVT	DAYS+9
NEXT	DAYS0+2
NEXTQ	NEXT+2
TABLE	EN+17, EN+18, EN+19
TABLEQ	TABLE+4, TABLE+5

Naked Globals

Name	Field # of Occurrence
^(	KILL+1
^(0	EN+16, EN+19, TABLE+4, TABLE+5, KILL+1, KILL+2*, DAYS0+2, NEXT+2, FLCHK+4
^(70	PTF

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	DAYS0+2*, DAYS1+1, DAYS1+2!
DA	L+3!, CREATEQ+1!, KILL+1!, KILL+3!, FLCHK+5*, FLQ!
DA(1	L+3, KILL+1, FLCHK+5*
>> DFN	PTF*
DG1	EN+17, ENQ+2!
DGA1	ENQ+2!
DGADM0	EN+16*, EN+17, EN+18, ENQ+2!
DGBEG	EN+9, EN+18, ENQ+2!, TABLE+7*, DAYS+10, DAYS0+2, DAYS1
DGCDR	ENQ+2!, TABLE+5*, TABLE+7, TABLE+8
DGDATA	EN+16, EN+20, EN+21, ENQ+2!, TABLE+7, TABLE+8, L+2
DGDIFL	DAYS+9, DAYS+10, DAYS+14, DAYS+15!
DGDIFP	DAYS+9, DAYS+10, DAYS+14, DAYS+15!
>> DGDT	EN+7, EN+21, PTF*
DGE	DAYS+10*, DAYS+15!
DGEND	EN+21, ENQ+2!, TABLE+7, DAYS+10*, DAYS1, MVT+3
DGF1	FLCHK+3, FLCHK+4, FLCHK+5, FLQ!
DGI	ENQ+2!, FLCHK+4*, FLQ!
>> DGLAST	EN+9, TABLE+7, MVT+3
DGM	ENQ+2!
DGM0	ENQ+2!
DGMDT	ENQ+2!, DAYS+10, MVT+2, MVT+3
DGMVT	EN+19, DAYS0+1~, DAYS0+2, NEXT+1~, NEXT+2*
DGMVTDT	DAYS0+2*, DAYS0+3!, DAYS1, NEXT+2
DGPFYDT	EN+11*, EN+17, ENQ+2!
>> DGPMCA	EN+16, PTF
DGPTIFN	EN+6*, ENQ+1, ENQ+2!, CREATE+1, CREATE+2, L, L+1, L+2, L+3, KILL+1 , KILL+2, MVT+3, FLCHK+4, FLCHK+5
>> DGQUIET	EN+8
DGRT	EN+13~*, EN+19, ENQ+2!, DAYS0+2, NEXT+2
DGSACNT	ENQ, ENQ+2!, CREATEQ*, FLCHK+1, FLCHK+2, FLQ!
DGSAFTF	ENQ+2!, FLQ!
DGSAFTF(	KILL+1*, FLCHK+4, FLCHK+5
DGSP	ENQ+2!, TABLE+4*, TABLE+5, TABLE+7, TABLE+8
DGSTART	EN+9*, EN+17, EN+18, EN+19, ENQ+2!
DGT	EN+17*, ENQ+2!
DGWD	ENQ+2!, TABLE+3*, TABLE+4, TABLE+7, TABLE+8
DGWI	ENQ+2!, KILL+1, KILL+3!, FLCHK+4, FLCHK+5*, FLQ!
DGXDT	EN+19, EN+21, ENQ+2!, TABLE+7, L+2
DGXFR0	EN+17, EN+18, EN+19*, ENQ+2!, TABLE+3
DIC	T+1*!
DIC("S"	T+1*
DIC(0	T+1*
DIE	FLCHK+5*, FLQ!
DIK	L+3, CREATEQ+1!, KILL+1, KILL+3!
>> DILOCKTM	CREATE+1
DR	FLCHK+5*, FLQ!
DT	EN+7, EN+21
I	CREATE+2, L, L+1, L+2, L+3, CREATEQ, CREATEQ+1!, DAYS1*, DAYS1+2!
>> L	ENQ+1*, PTF
LEAVE	EN+21, ENQ+2!, TABLE+7, DAYS+9, DAYS+10, DAYS+12, DAYS+14, DAYS1+1
M	MVT+3*, MVT+4!
PASS	EN+21, ENQ+2!, TABLE+7, DAYS+9, DAYS+10, DAYS+12, DAYS+14, DAYS1+1
>> PTF	EN+6, PTF*
U	EN+17, EN+18, EN+19, EN+21, TABLE+3, TABLE+4, TABLE+5, TABLE+7, CREATE+2, L+1 , L+2, KILL+1, DAYS0+2, NEXT+2, FLCHK+4
X	EN+10, EN+11, EN+19, ENQ+2!, L+2*, DAYS1+1, DAYS1+2!
X1	EN+10, DAYS1, DAYS1+1, DAYS1+2!
X2	EN+10, DAYS1, DAYS1+1, DAYS1+2!
Y	EN+7, EN+9, EN+10, CREATE+2, L+1, T+1, PTF, DAYS1, DAYS1+2!, NEXT+2
Y(0	PTF
>> ZTQUEUED	EN+8

Customize PDF page

Package: Registration

Routine: DGPTTS3

Call Graph Total: 6

Caller Graph Total: 2