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 |  Marked Items |  All
Print Page as PDF
Routine: DGPTRI1

Package: Registration

Routine: DGPTRI1


Information

DGPTRI1 ;ALB/MTC,HIOFO/FT - PTF VERIFICATION ;07/21/2015 7:14 AM

Source Information

Source file <DGPTRI1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Registration 1 $$FORIEN^DGADDUTL  

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 DGPTFTR  DGPTRI0  DGPTRI2  DGPTRI4  

Entry Points

Name Comments DBIA/ICR reference
D70 ;column 43 is TYPE OF DISPOSTION, 44 is OUTPATIENT CARE STATUS
D10 ;
LOG ;place DGLOGIC in array inorder to add more logic tests ;DG*5.3*664
ERR
PROCPTRN(DGPROC) ;ICD-10 Procedure Code Pattern Match
;
; 1 2 3 4 5 6 7
; - - - - - - -
; U U U U U U U
; N N N N N N N
; Z Z Z Z Z
;
701 ;;15;;2;1^1;;3;2^6;;1;3^6;;1;4^6;;1;5^6;;3;5^6;;1;6^6;;4;7^4;;1;8^5;;3;9^5;;1;10^5;;1;11^13;12;2;12^13;13;12;13^5;;1;14^5;;1;15
; 501 segment
50 ;;1;1;10;1^1;;6;2^16;3;2;3^1;4;3;4^1;5;3;5^6;;1;6^11;7;3;7^6;;197;7^6;;9;8^14;;6;9^14;;2;10^6;;1;11^6;;1;16^6;;1;17^6;;1;18^6;;3;18^6;;1;19^6;;4;20^6;;1;21^6;;3;22^5;;1;23^6;;1;24
; 535 segment
60 ;;1;1;10;1^13;2;2;2^4;3;1;3^4;4;3;4^11;5;2;5^6;;198;5
T70 ;;1:DT OF DISP.^2:DISCH BD SEC^3:TYPE OF DIS^4:OUT TREAT^5:VA AUS^6:PL OF DIS^7:REC FAC^8:ASIH DAYS^9:RACE^10:C&P STAT^11:PDXLS^12:ONLY DX^13:PHY MPCR
; T701 segment (part 2)
T10 ;;1:NAME^2:SOURCE OF ADM^3:TRANS FAC.^4:SOURCE OF PAY^5:POW^6:MARITAL ST^7:SEX^8:DOB^9:POS^10:VIETNAM^11:ION RADIATION^12:RESIDENCE^13:MEANS TEST^14:INCOME^15:MST^16:COMBAT VET^17:CV END DT^18:PROJ 112/SHAD^19:ERI^20:COUNTRY
; 701 segment (part 1)
LOGIC ;;X'?.N^X'?.A&(X'=" ")^X'=" "^X'?.N&(X'=" ")^X'?.A&(X'=" ")^0^X'?.N&(X'="X")^X'=" "&(X'="P")^X="E"^X="Y"^X=" "^X'="A"&(X'=" ")^(X'?.A)&(X'?.N)&(X'=" ")^(X'?.AN)&('$P(DG0,U,4))^((T1)&(X'=" "))!(('T1)&(X'?.AN)&('$P(DG0,U,4)))
D50 ;$P(DG0,U,5) is SUFFIX (File 45, field 5). column 55 is SPINAL CORD INJURY
D53
T50 ;;1:DT OF MVMT^2:LOSING BD SEC MPCR^3:LOSING BD SEC^4:LEAVE DAYS^5:PASS DAYS^6:SCI^7:DIAG^8:DOCTOR'S SSN^9:PHY MPCR^10:PHY SPEC^11:DISCHARGE STAT^^^^^16:LEGION^17:SUICIDE^18:DRUG^19:AXIS-IV^20:AXIS-V^21:SC^22:EXP^23:MST^24:HNC
; 535 segment
CEN ;called from 701^DGPTRI4
T53 ;;1:DATE OF PHYSICAL MOVEMENT^2:LOSING PHYSICAL MPCR^3:LOSING PHYSICAL SPECIALTY^4:TR SPECIALTY MPCR^5:TR SPECIALTY^6:LEAVE DAYS^7:PASS DAYS
; 401 segment
40 ;;1;1;10;1^1;2;2;2^11;3;1;3^4;4;1;4^6;5;1;5^4;6;1;6^11;7;2;7^6;;200;7
; 601 segment
DIAGPTRN(DGDIAG) ; -- icd-10 diagnosis pattern match
; 1 2 3 4 5 6 7 8
; - - - - - - - -
; U N U . U U N U
; X N N N x N
; x x n n
; n n
HEAD
T701 ;;1:PHY SPEC^2:%SC^3:LEGION^4:SUICIDE^5:DRUG^6:AXIS-IV^7:AXIS-V^8:SC^9:EXP^10:MST^11:HNC^12:ETHNICITY^13:RACE^14:COMBAT VET^15:PROJ 112/SHAD
; 501 segment
L ;
START ; Called from other DGPTRI* routines to do data validation and display errors
70 ;;1;1;10;1^13;2;2;2^1;3;1;3^4;4;1;4^4;5;1;5^6;;1;6^4;7;3;7^6;;3;7^4;8;3;8^6;9;1;9^1;10;1;10^6;11;1;11^6;11;2;11^6;;3;11^6;11;1;11^20;;1;11^6;;1;12^15;;6;13
; 701 segment (part 2)
D40
D60
10 ;;6;;12;1^2;1;1;1^5;1;1;1^1;2;1;2^2;2;1;2^4;3;3;3^6;;3;3^4;4;1;4^6;5;1;5^2;6;1;6^2;7;1;7^1;8;8;8^6;;1;9^11;9;1;9^4;10;1;10^4;10;1;11^17;11;5;12^18;11;5;12^2;12;1;13^6;;1;13^1;;6;14^2;;1;15^1;;1;16^4;;6;17^1;;1;18^5;;1;19^5;;3;20
; 701 segment (part 1)
T40 ;;1:DATE OF SURGERY^2:SURG SPEC.^3:CAT CHIEF SURGEON^4:CAT FIRST ASS^5:ANEST. TECH.^6:SOURCE OF PAY^7:OP CODE
; 601 segment
T60 ;;1:DATE OF PROCEDURE^2:LOSING BD SEC^3:DIALYSIS TYPE^4:NUMBER OF TREATMENTS^5:PROCEDURE CODE
53 ;;1;;10;1^1;;6;2^13;;2;3^1;;6;4^13;;2;5^1;;3;6^1;;3;7
; 401 segment
TEST ;
DP40

External References

Name Field # of Occurrence
$$FORIEN^DGADDUTL L+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: to
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,T,$S(T["H":" ",1:$E(Y,4))," "
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: ?25,$P($P(ERR,U,$P(DGO,";",4)),":",2),?40,"COL.",F," VALUE: ",$S($E(Y,F)=" ":"BLANK",1:$E(Y,F))
  • Line Location: ERR+3
Function Call: WRITE
  • Prompt: !,"F14. ",$$DIAGPTRN("F14.")
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !,"G1G.1234 ",$$DIAGPTRN("G1G.1234")
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: !,"330. ",$$DIAGPTRN("330")
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: !,"R54.3XxY ",$$DIAGPTRN("R54.3XxY")
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: !,"R543XxY ",$$PROCPTRN("R543XxY")
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: !,"10.44 ",$$PROCPTRN("10.44")
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !,"3S82B1 ",$$PROCPTRN("3S82B1")
  • Line Location: TEST+7
Function Call: WRITE
  • Prompt: !,"G23244X ",$$PROCPTRN("G23244X")
  • Line Location: TEST+8

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$DIAGPTRN TEST+1, TEST+2, TEST+3, TEST+4
$$PROCPTRN TEST+5, TEST+6, TEST+7, TEST+8
70 CEN+1
701 START+19, CEN+2
@( START+20, L+7
L START+18, START+19, D10+2, D70+3, D50+1, D50+2, D50+5, D60, HEAD+1, CEN+1
, CEN+2
LOG HEAD
T70 CEN+1
T701 START+19, CEN+2

Naked Globals

Name Field # of Occurrence
^( ERR+4*
^(70 D50+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DG0 D50+1
>> DG11 L+2
DGDIAG DIAGPTRN~, DIAGPTRN+8
>> DGERR ERR*
DGFILL START+21!
DGFOR L+2~*
>> DGL L+5*, L+7
DGLOGIC LOG+1!
DGLOGIC( L+5, LOG+4*
>> DGO L+3*, L+4, L+5, ERR+3, ERR+4
DGPROC PROCPTRN~, PROCPTRN+9
>> ERR START+18*, START+19*, ERR+3, HEAD*, CEN+1*, CEN+2*
>> F START+18*, START+19*, L+6, L+8*, ERR+3, D10+2*, D70+3*, D50+1*, D50+2*, D50+5*
, D60*, HEAD*, CEN+1*, CEN+2*
>> H L+3*, D10+2*
>> I ERR+4*, D50+5
II LOG+2~, LOG+4*
>> J D50+1, D50+2
LOGCNT LOG+2~, LOG+3*, LOG+4*
LOGI LOG+2~, LOG+3*, LOG+4*
LOGX LOG+2~, LOG+4*
OKAY DIAGPTRN+7~*, DIAGPTRN+8*, DIAGPTRN+9, PROCPTRN+8~*, PROCPTRN+9*, PROCPTRN+10
>> T START+17*, START+19, START+20, ERR+1, ERR+2, ERR+4, HEAD*, CEN+1*
>> T1 D50+2, D50+5
U L+2, L+3, ERR+3, ERR+4, D50+1, LOG+4
>> W START+18*, START+19*, L+3, D10+2*, D70+3*, D50+1*, D50+2*, D50+5*, D60*, HEAD*
, CEN+1*, CEN+2*
>> X L+6*
XX LOG+2~, LOG+4*
>> Y START+16, START+17, L+6, ERR+1, ERR+2, ERR+3, ERR+4, D10+2, D70+2, D70+3
, D60
>> Z L+4*

Marked Items

Name Field # of Occurrence
$T(70 CEN+1
$T(701 START+19, CEN+2
$T(@(1) START+18
$T(@(3) START+18
$T(LOGIC+LOGI LOG+4
$T(T70 CEN+1
$T(T701 START+19, CEN+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All