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

Package: Registration

Routine: DGPTEXPR


Information

DGPTEXPR ;ALB/MTC - PTF Expanded Code List ;14 MAY 91

Source Information

Source file <DGPTEXPR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 IX^DIC  EN1^DIP  ^DIR  
Registration 2 $$IMPDATE^DGPTIC10  LO^DGUTL  
DRG Grouper 1 $$CODEC^ICDEX  
Kernel 1 HOME^%ZIS  

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: 3

Package Total Caller Graph
Registration 3 DG PT EXPANDED CODE LIST  DGPTFIC  DGPTOOL  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- entry point for Expanded Code List (ICD-10 Remediation)
ENQ ; -- exit point
STARTCAT(CSET) ; -- Start Code Set
FINALCAT(CSET,STRT) ; -- Start Code Set
FC ; - Re-ask
STARTCOD(CSET) ; -- Start Code Set
R1 ;
SC ; Re-ask
FINALCOD(CSET,STRT) ; -- Start Code Set
R2 ;
FCCC ; Re-ask
INIT ;
CODESET ; -ask which codeset
HELP1 ; -- Code help text
LIST(CSET,CAT) ; -- List available codes

External References

Name Field # of Occurrence
HOME^%ZIS INIT+2
$$IMPDATE^DGPTIC10 CODESET+3
LO^DGUTL INIT+2
IX^DIC SC+8, FCCC+8
EN1^DIP EN+38
^DIR STARTCAT+9, FC+7, CODESET+9
$$CODEC^ICDEX SC+12, FCCC+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"PTF Expanded Code List "
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Go To value must equal or follow the Start With value",*7,!
  • Line Location: FC+9
Function Call: READ
  • Formatting: !
  • Prompt: " START WITH DIAGNOSIS/PROCEDURE CODE: FIRST// "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: R1+1
Function Call: READ
  • Formatting: !
  • Prompt: " GO TO DIAGNOSIS/PROCEDURE CODE: LAST// "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !,"Go To value must equal or follow the Start With value",*7,!
  • Line Location: FCCC+13
Function Call: WRITE
  • Prompt: !!,"TO IN SEQUENCE, STARTING FROM A CERTAIN DIAGNOSIS/PROCEDURE CODE, "
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !," TYPE THAT DIAGNOSIS/PROCEDURE CODE"
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !," OR ENTER '@' TO INCLUDE NULL DIAGNOSIS/PROCEDURE CODE VALUES"
  • Line Location: HELP1+3
Function Call: WRITE
  • Prompt: !," OR ENTER 'FIRST' TO START FROM THE FIRST VALUE"
  • Line Location: HELP1+4
Function Call: WRITE
  • Prompt: !," Choose from:",!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: ?3,ENTRY,?15,IENCAT,!
  • Line Location: LIST+15
Function Call: WRITE
  • Prompt: ?3,ENTRY,?15,IENCAT,!
  • Line Location: LIST+16
Function Call: READ
  • Prompt: " '^' TO STOP: "
  • Variable: ZZ
  • Timeout: $G(DTIME,300)
  • Line Location: LIST+17
Routine Call
  • %ZIS
  • Line Location:
    • INIT+2
Routine Call
  • DIC
  • Line Location:
    • SC+8
    • FCCC+8
Routine Call
  • DIR
  • Line Location:
    • STARTCAT+9
    • FC+7
    • CODESET+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.89 - [#45.89] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(45.88 - [#45.88] LIST+10
^DIC(45.89 - [#45.89] SC+11, FCCC+11, LIST+7, LIST+9, LIST+10, LIST+11

Label References

Name Line Occurrences
$$FINALCAT EN+12
$$FINALCOD EN+18
$$STARTCAT EN+9
$$STARTCOD EN+15
CODESET EN+7
ENQ EN+2, EN+7, EN+10, EN+13, EN+16, EN+19
FC FC+9
FCCC FCCC+10, FCCC+13
HELP1 R1+2, R1+3, R2+2, R2+3
INIT EN+2
LIST R1+3, R2+3
R1 R1+2, R1+3
R2 R2+2, R2+3
SC SC+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BY EN+28*, EN+34*, ENQ+1!
CAT EN+1~, ENQ+1!, R1+3, R2+3, LIST~
CAT("FINISH" EN+12*, EN+13, EN+22*, EN+30, EN+36, LIST+4
CAT("START" EN+9*, EN+10, EN+12, EN+21*, EN+29, EN+35, LIST+4
CNT LIST+1~, LIST+3*, LIST+15*, LIST+16*, LIST+17
CODE EN+1~, ENQ+1!
CODE("FINISH" EN+18*, EN+19, EN+24*, EN+30, EN+36
CODE("START" EN+15*, EN+16, EN+18, EN+23*, EN+29, EN+35
CODESET EN+7, EN+9, EN+12, EN+15, EN+18, EN+26, EN+32, ENQ+1!, CODESET+11*
CSET STARTCAT~, FINALCAT~, STARTCOD~, R1+3, SC+4, SC+5, FINALCOD~, R2+3, FCCC+4, FCCC+5
, LIST~, LIST+15, LIST+16
D STARTCOD+1~, SC+7*, FINALCOD+1~, FCCC+7*
DGOUT EN+2, ENQ+1!, INIT+1*
DGQUIT ENQ+1!, LIST+1~, LIST+7, LIST+9, LIST+17*
DGX1 STARTCOD+1~, SC+4*, SC+6, FINALCOD+1~, FCCC+4*, FCCC+6
DGX2 STARTCOD+1~, SC+5*, SC+6, FINALCOD+1~, FCCC+5*, FCCC+6
DIC EN+5*, ENQ+1!, STARTCOD+1~, SC+2*, FINALCOD+1~, FCCC+2*
DIC("A" SC+1*, FCCC+1*
DIC("S" SC+6*, FCCC+6*
DIC(0 SC+3*, FCCC+3*
DIR STARTCAT+1~, FINALCAT+1~, STARTCOD+1~, FINALCOD+1~, CODESET+2~
DIR("?" STARTCAT+3*, STARTCAT+4*, FC+2*, FC+3*
DIR("A" STARTCAT+6*, FC+4*, CODESET+6*
DIR("B" STARTCAT+7*, FC+5*, CODESET+7*
DIR("L" CODESET+8*
DIR(0 STARTCAT+8*, FC+6*, CODESET+5*
DIROUT EN+10, EN+13, EN+16, EN+19, ENQ+1!, R1+6, R2+6, CODESET+2~, CODESET+10
DIRUT EN+10, EN+13, EN+16, EN+19, ENQ+1!, R1+6, R2+6, CODESET+2~, CODESET+10
DT CODESET+7
DTIME R1+1, R2+1, LIST+17
DTOUT EN+10, EN+13, EN+16, EN+19, ENQ+1!, R1+1*, R1+6, SC+9, R2+1*, R2+6
, FCCC+9, CODESET+2~, CODESET+10
DUOUT EN+10, EN+13, EN+16, EN+19, ENQ+1!, R1+6, SC+9, R2+6, FCCC+9, CODESET+2~
, CODESET+10
ENTRY LIST+1~, LIST+3*, LIST+7*, LIST+9, LIST+15, LIST+16
FLDS EN+27*, EN+33*, ENQ+1!
FNSH LIST+1~, LIST+4*, LIST+6*, LIST+12, LIST+13
FR EN+29*, EN+35*, ENQ+1!
FROM ENQ+1!
I LIST+1~, LIST+7*
IEN LIST+1~, LIST+8*, LIST+9*, LIST+10, LIST+11
IENCAT LIST+1~, LIST+10*, LIST+12, LIST+13, LIST+15, LIST+16
IMPDATE CODESET+2~, CODESET+3*, CODESET+7
IOF EN+3
J LIST+1~, LIST+9*
L EN+5*, ENQ+1!
LIST ENQ+1!, STARTCAT+5*, STARTCAT+8, FC+1*, FC+6
OK LIST+1~, LIST+12*, LIST+13
PG EN+5*, ENQ+1!
REASK STARTCOD+1~, SC+3, SC+10*, FINALCOD+1~, FCCC+3, FCCC+10*, FCCC+13*
STRT FINALCAT~, FINALCAT+2, FC+3, FC+9, FINALCOD~, FINALCOD+2, FCCC+13, LIST+1~, LIST+4*, LIST+5*
, LIST+12, LIST+13
TO EN+30*, EN+36*, ENQ+1!
U SC+11, FCCC+11, CODESET+3, LIST+10, LIST+11
VAL STARTCAT+1~, STARTCAT+2*, STARTCAT+10*, STARTCAT+11, FINALCAT+1~, FINALCAT+3*, FC+8*, FC+9, FC+10, STARTCOD+1~
, STARTCOD+2*, SC+12*, SC+13, FINALCOD+1~, FINALCOD+3*, FCCC+12*, FCCC+13, FCCC+14
VERSION ENQ+1!, LIST+11*, LIST+15, LIST+16
VESION LIST+1~
VP STARTCOD+1~, SC+11*, SC+12, FINALCOD+1~, FCCC+11*, FCCC+12
X ENQ+1!, STARTCAT+1~, FINALCAT+1~, R1+9*, SC+10!, R2+9*, FCCC+10!, FCCC+13!, CODESET+2~
Y ENQ+1!, STARTCAT+1~, FINALCAT+1~, R1+1*, R1+2, R1+3, R1+4*, R1+7, R1+9, SC+10
, SC+11, R2+1*, R2+2, R2+3, R2+4*, R2+7, R2+9, FCCC+10, FCCC+11, CODESET+2~
, CODESET+10*, CODESET+11
Y(0 STARTCAT+10, FC+8
ZZ LIST+1~, LIST+17*
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 |  Local Variables  | All