Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DGPTFJC

Package: Registration

Routine: DGPTFJC


Information

DGPTFJC ;ALB/ADL,HIOFT/FT - CLOSED PTF ;12/12/14 2:15pm

Source Information

Source file <DGPTFJC.m>

Entry Points

Name Comments DBIA/ICR reference
101
H
MAS
401
501
601
701 ;
801
READ ; -- read X
EN ; DG*636 ; DG*5.3*850
; Called from Diagnosis fields in 501 movements
; Variable DGN is passed globally as a node identifier
EN1 ; called from 601 movement procedure codes and 401 Surgical operations
EN2 ; Called from 701 movement procedure codes
EN3 ;Called from 701 movement diagnosis fields (top level)
; - EFFDATE := date of interest e.g. patient discharge date
; - IMPDATE := ICD-10 implementation date
; - DGTEMP := temp variable to hold data from $$IMPDATE^DGPTIC10
EN4 ; called from ??
EN5 ; DG*5.3*850
; called from the diagnosis input transforms in file 46
EN6 ; -- called from file 46; .01 field
REQ(DX,STRING) ; - is another ICD code required with this code
; -- input DX - code being entered
; STRING - string of code iens already entered for movement ("^123^456^789^")
; -- output - writes message if another code is required
NOT(DX,STRING) ; - is icd code not to use with existing codes
; -- input DX - code being entered
; STRING - string of code iens already entered for movement ("^123^456^789^")
; -- output DGER :=1 if error
; writes message if not allowed
MSG(TEXT) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <MAS>,'^' to Abort: <MAS>//"
  • Line Location: 101+0
Function Call: WRITE
  • Prompt: !
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: MAS+0
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: 401+1
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: 501+0
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: 601+0
Function Call: WRITE
  • Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//"
  • Line Location: 801+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !,"Cannot enter the same code twice."
  • Line Location: EN+34
Info |  Source |  Entry Points |  Interaction Calls