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

Package: Registration

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All