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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTFIC

Package: Registration

Routine: DGPTFIC


Information

DGPTFIC ;ALB/JDS/ADL,HIOFO/FT - PTF CODE SEARCH ;4/21/2015 4:14pm

Source Information

Source file <DGPTFIC.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 6 IN^DGHELP  LEX^DGICD  ASK^DGICP  CODESET^DGPTEXPR  ICDEN1^DGPTF5  ($$STR401,$$STR501,$$STR601,$$STR701)^DGPTFUT  
DRG Grouper 2 $$SEARCH^ICDSAPI  $$ICDDATA^ICDXCODE  
VA FileMan 2 EN1^DIP  ^DIR  
Lexicon Utility 1 $$IMPDATE^LEXU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Registration 6 DG PTF ICD DIAGNOSTIC SEARCH  DG PTF ICD SURGICAL SEARCH  DGICD  DGICD-10  DGICD-9  DGPTDRG  

Entry Points

Name Comments DBIA/ICR reference
EN ;Diagnostic Code PTF Record Search [DG PTF ICD DIAGNOSTIC SEARCH]
E9
F9 ; search ^DGPT for the DX codes
GO ;
Q ; kill variables
EN1 ;Surgical Code PTF Record Search [DG PTF ICD SURGICAL SEARCH]
E0
F0 ; search ^DGPT for the procedure codes
OUT ; -- Output called from Print templates DGICD and DGICD-10
HDRR ;
DHD
C
H
H1
RANGE ;
F ;
E ;
ICDLOOK(TERM,EFFDATE,PROMPT) ; icd lookup
; called from DGPTFIC and DGPTDRG
DIAG ; Ask diagnosis
PROC ; Ask Procedure
401 ; Build 25 piece string with OPERATION codes
501 ; Build 25 piece string with MOVEMENT codes
601 ; Build 25 piece string with PROCEDURE codes
701 ; Build 25 piece string with DIAGNOSTIC codes

External References

Name Field # of Occurrence
IN^DGHELP C, RANGE+9
LEX^DGICD DIAG+13
ASK^DGICP PROC+18
CODESET^DGPTEXPR EN+2, EN1+2
ICDEN1^DGPTF5 DIAG+12
$$STR401^DGPTFUT 401+2
$$STR501^DGPTFUT 501+2
$$STR601^DGPTFUT 601+2
$$STR701^DGPTFUT 701+1
EN1^DIP GO+2
^DIR DIAG+9, PROC+10
$$SEARCH^ICDSAPI PROC+13
$$ICDDATA^ICDXCODE DIAG+18, PROC+22
$$IMPDATE^LEXU RANGE+4, PROC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Searching the PTF file Select fields to sort by",!
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !?DGZJ
  • Condition for execution: I>1
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: DGZT_$P(J,U,1)_" "_Y
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: ?DGZJ+23,$P(@(DG2_"$P(J,U,3)"_",0)"),U,1)
  • Line Location: OUT+5
Function Call: WRITE
  • Prompt: !?DGZJ,$S(I=1:"PRINCIPAL DIAGNOSIS",1:"SECONDARY DIAG "_I),?DGZJ+23,K
  • Line Location: OUT+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!,"The search may have more than 1 match per PTF record",!,"Type 'P' to total only PTF records",!,"Type 'I' to total all matches",!
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,"Type 'R' to specify a range of codes",!," 'E' to specify a series of codes to match exactly",!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Search by Range or Exact match: E// "
  • Line Location: RANGE+7
Function Call: WRITE
  • Prompt: !,"Must be after start code",!
  • Line Location: F+2
Routine Call
  • DIR
  • Line Location:
    • DIAG+9
    • PROC+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls
^ICD9 - [#80] Classic Fileman Calls
^ICD0 - [#80.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OUT+3
^DGPT - [#45] 401+2, 501+2, 601+2
^UTILITY($J OUT+2, OUT+8

Label References

Name Line Occurrences
$$ICDLOOK DHD+2, RANGE+12, F+1, E+2
@( F+3, E+3
C H, F+3
DHD E+3
DIAG ICDLOOK+5, DIAG+14, DIAG+15, DIAG+16, DIAG+17
E RANGE+10
F F+2
GO F0+11
H C
H1 RANGE+9
PROC ICDLOOK+6, PROC+20, PROC+21
Q C, RANGE+9, RANGE+12, F+1, F+3, E+3
RANGE EN+3, EN1+3

Naked Globals

Name Field # of Occurrence
^( OUT+3
^("A" OUT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q+1!, C, RANGE+9, PROC+9*
CODESET EN+2, GO+2, Q+2!, EN1+2, RANGE+2, RANGE+3, RANGE+5, RANGE+6, DIAG+7, DIAG+8
, DIAG+12, DIAG+13, PROC+3*, PROC+4, PROC+8, PROC+9, PROC+13, PROC+16
>> CODESYS HDRR+3, HDRR+4
D0 Q+1!, OUT+2, OUT+8, 401+2, 501+2, 601+2, 701+1
>> D1 401+2, 501+2, 601+2
DG Q+2!
DG1 EN+1!, Q+1!, DHD+1*, DHD+2*, DHD+3, RANGE+12*, F+2, F+3, E+3*
DG2 Q+1!, OUT+1*, OUT+5
DG3 Q+1!, 401+2*, 501+2*, 601+2*, 701+1*
DG3DT Q+1!, 401+2*, 501+2*, 601+2*
DG4 Q+1!
DG401 401+1~, 401+2*
DG5 Q+1!, OUT+6, OUT+9, C*
DG501 501+1~, 501+2*
DG6 Q+1!, F+2*, F+3
DG601 601+1~, 601+2*
DG7 Q+1!, RANGE+10*, RANGE+11, F+1, F+3, E+1
DG8 Q+1!
DG9 F9+3*, F9+5, F9+7, GO+1!, Q+1!, F0+3*, F0+5, F0+7, F0+9
DGDAT Q+2!, ICDLOOK+3~, ICDLOOK+4*
DGIEN Q+2!
DGPTDAT Q+2!
DGR F9+3, Q+1!, F0+3, RANGE+9*, RANGE+10
DGSAV DIAG+1~, DIAG+10*, DIAG+14, DIAG+15, DIAG+17, PROC+1~, PROC+11*, PROC+14, PROC+21
DGTERM Q+2!, DHD+2, RANGE+2*, RANGE+12, F+1, E+2
DGTERMIE Q+2!, RANGE+3*
DGVDT Q+2!, DHD+2, RANGE+4*, RANGE+5*, RANGE+6*, RANGE+12, F+1, E+2
DGZD Q+1!
DGZJ Q+1!, OUT+1*, OUT+4, OUT+5, OUT+9
DGZJJ Q+1!
DGZT Q+1!, OUT+1, OUT+4
DHD E9*, Q+1!, E0*, DHD+3*, F+3*
DIC EN+1*, E9!, GO+1*, Q+1!, EN1+1*, E0!, DHD+3, RANGE+2, RANGE+3, RANGE+10
, F+3, E+3, ICDLOOK+3~
DIC("A" DHD+2, RANGE+11*, RANGE+12, F+1*, E+1*, E+2
DIC("S" DHD*
DIC(0 RANGE+1*
DINS Q+1!
>> DIO OUT+1*
DIP Q+1!
DIR DIAG+1~, PROC+1~
DIR("?" DIAG+7*, DIAG+8*, PROC+8*, PROC+9*
DIR("??" DIAG+7*, DIAG+8*, PROC+8*
DIR("A" DIAG+3*, PROC+7*
DIR(0 DIAG+7*, DIAG+8*, PROC+6*
>> DIROUT DIAG+11, PROC+12
>> DIRUT DIAG+11, DIAG+14, PROC+12
DIS Q+1!
DIS("0A" F9+2*, F0+2*
DIS("0AA" F9+5*, F0+5*
DIS("0AAA" F9+7*, F0+7*
DIS("0AAAA" F0+9*
DIS(0 F9+1*, F0+1*
DJ Q+1!, OUT+6*, OUT+9*
DP Q+1!
DT ICDLOOK+4, PROC+3
DTIME C, RANGE+8
DTOT Q+1!, OUT+6*, OUT+9*
DTOUT Q+1!, DIAG+11, PROC+12
>> DUOUT DIAG+11, DIAG+14, PROC+12
DXS Q+1!
EFFDATE Q+2!, ICDLOOK~, ICDLOOK+4, DIAG+18, PROC+4*, PROC+13, PROC+22
FLDS GO+2*, Q+1!
HDR HDRR+1~, HDRR+3*, HDRR+4*
I Q+1!, OUT+2*, OUT+3, OUT+4, OUT+9*, DHD+1*, DHD+3*
IMPDATE Q+2!, PROC+1~, PROC+2*, PROC+3, PROC+4
J Q+1!, OUT+3*, OUT+4, OUT+8*, OUT+9
>> K OUT+9*
L F9+8*, GO+1*, Q+1!, F0+10*
LEXQ Q+2!
LEXVDT Q+2!, RANGE+1!, ICDLOOK+2!, PROC+23!
OLDHDR HDRR+1~, HDRR+2*
PROMPT Q+1!, DHD*, ICDLOOK~, DIAG+3, PROC+7
TERM ICDLOOK~, ICDLOOK+5, ICDLOOK+6
U OUT+3, OUT+4, OUT+5, OUT+9, DHD+1, DHD+2, DHD+3, C, RANGE+9, RANGE+12
, F+2, E+3, 401+2, 501+2, 601+2
X Q+1!, C*, RANGE+8*, RANGE+9, F+3, E+3, ICDLOOK+2!, DIAG+15, DIAG+16, DIAG+17
, DIAG+18*, PROC+14!, PROC+17*, PROC+20, PROC+21, PROC+22*
X1 Q+1!
XAA F9+4*, Q+1!, F0+4*
XAAA F9+6*, Q+1!, F0+6*
XAAAA Q+1!, F0+8*
Y Q+1!, OUT+3*, OUT+4, DHD+1, DHD+2*, RANGE+12*, F+1*, F+2, E+2*, E+3
, ICDLOOK+2!, ICDLOOK+7, DIAG+10, DIAG+11*, DIAG+14, DIAG+15, DIAG+16, DIAG+17, DIAG+18*, PROC+11
, PROC+12*, PROC+13*, PROC+14!, PROC+20, PROC+21, PROC+22*, PROC+24
Z Q+1!, C*, RANGE+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All