Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGPTFTR1

Package: Registration

Routine: DGPTFTR1


Information

DGPTFTR1 ;ALB/JDS - PTF VERIFICATION ; 01 DEC 87 @0800

Source Information

Source file <DGPTFTR1.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 4 DGPTC1  DGPTFTR  DGPTFTR0  DGPTFTR2  

Entry Points

Name Comments DBIA/ICR reference
D70
D10
LOG
ERR
50 ;;1;1^1;1^1;1^1;1^1;1^1;1^1;2^1;2^3;2^3;2^1;3^1;3^1;3^1;4^1;4^1;4^6^11;6^11;6^11;6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^3
60 ;;1;1^1;1^1;1^1;1^1;1^1;1^1;2^1;2^4;3^4;4^4;4^4;4^11;5^11;5^11;5^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^3^3^3^3^3^3
T70 ;;DATE OF DISP.^DISCH BD SEC^TYPE OF DIS^OUT TREAT^VA AUS^PLACE OF DIS^REC. FAC.^ASIH DAYS^RACE^C&P STATUS^DXLS^
DP40
LOGIC ;;X'?.N^X'?.A^X'=" "^X'?.N&(X'=" ")^X'?.A&(X'=" ")^0^X'?.N&(X'="X")^X'=" "&(X'="P")^X="E"^X="Y"^X=" "^X'="A"&(X'=" ")^(X<1!(X>7))&'$P(DG0,U,4)
D50
TP40 ;;OP CODE
T50 ;;DATE OF MOVEMENT^LOSING BD SEC^LEAVE DAYS^PASS DAYS^SCI^DIAGNOSES^DISCHARGE STATUS
CEN
40 ;;1;1^1;1^1;1^1;1^1;1^1;1^1;2^1;2^11;3^4;4^6;5^4;6^11;7^11;7^6^6^6^3;7^3;7^6^6^6^6^6^3;7^3;7^6^6^6^6^6^3;7^3;7^6^6^6^6^6^3;7^3;7^6^6^6^6^6^3;7^3;7^3^3^3^3^3^3^
HEAD
L
START
70 ;;1;1^1;1^1;1^1;1^1;1^1;1^1;2^1;2^3;2^3;2^1;3^4;4^4;5^6^4;7^4;7^4;7^6^6^6^4;8^4;8^4;8^13;9^1;10^9;11^11;11^11;11^6^6^6^10;11^6^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^
D40
D60
10 ;;6^6^6^6^6^6^6^6^6^6^6^6^2;1^5;1^1;2^2;2^4;3^4;3^4;3^6^6^6^4;4^6;5^2;6^2;7^1;8^1;8^1;8^1;8^1;8^1;8^1;8^1;8^11;9^4;10^4;10^1;11^1;11^1;11^1;11^1;11^7;11^7;11^7;11^7;11^7;11^2;12^6^3^3^3^3
T40 ;;DATE OF SURGERY^SURG SPEC.^CAT CHIEF SURGEON^CAT FIRST ASS^ANEST. TECH.^SOURCE OF PAY^OP CODE^
T60 ;;DATE OF PROCEDURE^LOSING BD SEC^DIALYSIS TYPE^NUMBER OF TREATMENTS^PROCEDURE CODE
T10 ;;NAME^SOURCE OF ADM^TRANS FAC.^SOURCE OF PAY^POW^MARITAL ST^SEX^DOB^COB^EXP^RESIDENCE^MEANS TEST
P40 ;;8^3^3^3^3^3^3^3^3^3^3^3^11;1^11;1^6^6^6^3;1^3;1^6^6^6^6^6^3^3^6^6^6^6^6^3^3^6^6^6^6^6^3^3^6^6^6^6^6^3^3^3^3^3^3^3^3^

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,T,$S(T["H":" ",1:$E(Y,4))," "
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: $E(Y,28,29),"-",$E(Y,30,31),"-",$E(Y,32,33)
  • Condition for execution: "45"[$E(T,1)
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: ?20,$P(ERR,U,$P(DGO,";",2)),?40,"COL.",F," VALUE: ",$S($E(Y,F)=" ":"BLANK",1:$E(Y,F))
  • Line Location: ERR+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] D10+1, D50, D50+1
^UTILITY("DG" ERR+1

Label References

Name Line Occurrences
70 CEN
@( START+1, L
ERR D10+1
L START, D10, D70, D50, D50+1, D50+2, D50+3, D60, HEAD+1, CEN
LOGIC HEAD, LOG
T70 CEN

Naked Globals

Name Field # of Occurrence
^( ERR+1*
^(0 D10+1
^(70 D10+1, D50+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DG0 D50
>> DGERR ERR*
>> DGL L*
>> DGLOGIC L, HEAD*, LOG*
>> DGO L*, ERR, ERR+1, D10+1*
>> ERR START*, ERR, HEAD*, CEN*
>> F START*, L, ERR, D10*, D10+1*, D70*, D50*, D50+1*, D50+2*, D50+3*
, D60*, HEAD+1*, CEN*
>> H START*, L, D10*, D10+1*, D70*, D50*, D50+1*, D50+2*, D50+3*, D60*
, HEAD*, HEAD+1, CEN*
>> I ERR+1*, D50+3
>> J D10+1, D50, D50+1
>> T START*, START+1, ERR, ERR+1, HEAD*, CEN*
>> T1 D50+1, D50+3
U L, ERR, ERR+1, D50
>> W START*, L, D10*, D70*, D50*, D50+1*, D50+2*, D50+3*, D60*, HEAD*
, CEN*
>> X L*
>> Y START, L, ERR, ERR+1, D10, D70, D50+2, D60

Marked Items

Name Field # of Occurrence
$T(70 CEN
$T(@(1) START
$T(@(3) START
$T(LOGIC HEAD, LOG
$T(T70 CEN
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All