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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGPT401

Package: Registration

Routine: DGPT401


Information

DGPT401 ;ALB/MTC,HIOFO/FT - 401/402/403 Edits ;2/19/15 2:51pm

Source Information

Source file <DGPT401.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 $$FMDT^DGPT101  WRTERR^DGPTAE  (ANES,CHIEF,FAST,FIRST,TRAN)^DGPTAE04  
Kernel 1 ($$FMADD,$$FMDIFF)^XLFDT  
VA FileMan 1 (,DD)^%DT  

Entry Points

Name Comments DBIA/ICR reference
EN ;called by RTE^DGPTAE (using indirection)
SET ;parse data string and set variables. different record layout for dg*5.3*884
DATE ;date of surgery
; DGPTDDS - discharge DT
; DGPTDTS - admission DT
; DGPTSDD - surgery DT
SPEC ;specialty
CHFS ;chief surgeon
FAST ;first assistant
ANES ;anesthesia technique
SRP ;source of payment
OPCD ;operation codes
TRANS ; Transplant status
GOOD ;
EXIT ;
ERR ;
SET9 ;record layout before icd10 turned on
SET10 ; record layout after icd10 turned on

External References

Name Field # of Occurrence
^%DT DATE+4
DD^%DT DATE+7
$$FMDT^DGPT101 DATE+4
WRTERR^DGPTAE ERR+1
ANES^DGPTAE04 ANES+1
CHIEF^DGPTAE04 CHFS+1
FAST^DGPTAE04 FAST+1
FIRST^DGPTAE04 OPCD+1
TRAN^DGPTAE04 TRANS+3
$$FMADD^XLFDT DATE+6
$$FMDIFF^XLFDT DATE+5, DATE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("AEDIT" EN+2

Label References

Name Line Occurrences
ERR DATE+4, DATE+5, DATE+6, DATE+8, SPEC+1, CHFS+1, FAST+1, ANES+1, SRP+2, SRP+6
, TRANS+3
EXIT DATE+4, DATE+5, DATE+6, DATE+8, SPEC+1, CHFS+1, FAST+1, ANES+1, SRP+2, SRP+6
, OPCD+1, TRANS+3
GOOD TRANS+2
OPCD SRP+4
SET10 SET+2
SET9 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+4*!
DGPT40PT EXIT+1!, SET9+13*
>> DGPTDDS DATE+5, DATE+9, TRANS+2
>> DGPTDTS DATE+6, DATE+9
>> DGPTEDFL EN+2*, DATE+4, DATE+5, DATE+6, DATE+8, SPEC+1, CHFS+1, FAST+1, ANES+1, SRP+2
, SRP+6, OPCD+1, TRANS+3
>> DGPTERC EN+2*, DATE+4*, DATE+5*, DATE+6*, DATE+8*, DATE+9*, SPEC+1*, CHFS+1*, FAST+1*, ANES+1*
, SRP+2*, SRP+5*, OPCD+1*, TRANS+3*, ERR+1
>> DGPTFMT SET+1, SET+2, TRANS+1
DGPTSAT EXIT+1!, SET9+5*, SET10+5*
DGPTSCS EXIT+1!, SET9+3*, SET10+3*
DGPTSDD DATE+4*, DATE+5, DATE+6, DATE+9, EXIT+1!
DGPTSDT DATE+4*, DATE+7*, DATE+8, EXIT+1!, SET9+1*, SET10+1*
DGPTSFA EXIT+1!, SET9+4*, SET10+4*
DGPTSO1 EXIT+2!, SET9+7*, SET10+7*
DGPTSO10 EXIT+2!, SET10+16*
DGPTSO11 EXIT+3!, SET10+17*
DGPTSO12 EXIT+3!, SET10+18*
DGPTSO13 EXIT+3!, SET10+19*
DGPTSO14 EXIT+3!, SET10+20*
DGPTSO15 EXIT+3!, SET10+21*
DGPTSO16 EXIT+3!, SET10+22*
DGPTSO17 EXIT+3!, SET10+23*
DGPTSO18 EXIT+3!, SET10+24*
DGPTSO19 EXIT+3!, SET10+25*
DGPTSO2 EXIT+2!, SET9+8*, SET10+8*
DGPTSO20 EXIT+3!, SET10+26*
DGPTSO21 EXIT+4!, SET10+27*
DGPTSO22 EXIT+4!, SET10+28*
DGPTSO23 EXIT+4!, SET10+29*
DGPTSO24 EXIT+4!, SET10+30*
DGPTSO25 EXIT+4!, SET10+31*
DGPTSO3 EXIT+2!, SET9+9*, SET10+9*
DGPTSO4 EXIT+2!, SET9+10*, SET10+10*
DGPTSO5 EXIT+2!, SET9+11*, SET10+11*
DGPTSO6 EXIT+2!, SET10+12*
DGPTSO7 EXIT+2!, SET10+13*
DGPTSO8 EXIT+2!, SET10+14*
DGPTSO9 EXIT+2!, SET10+15*
DGPTSSC SPEC+1, EXIT+1!, SET9+2*, SET10+2*
DGPTSSP SRP+2, SRP+5, EXIT+1!, SET9+6*, SET10+6*
DGPTSTR EN+2*, EN+3*, DATE+4, EXIT+1!, SET9+1, SET9+2, SET9+3, SET9+4, SET9+5, SET9+6
, SET9+7, SET9+8, SET9+9, SET9+10, SET9+11, SET9+12, SET9+13, SET10+1, SET10+2, SET10+3
, SET10+4, SET10+5, SET10+6, SET10+7, SET10+8, SET10+9, SET10+10, SET10+11, SET10+12, SET10+13
, SET10+14, SET10+15, SET10+16, SET10+17, SET10+18, SET10+19, SET10+20, SET10+21, SET10+22, SET10+23
, SET10+24, SET10+25, SET10+26, SET10+27, SET10+28, SET10+29, SET10+30, SET10+31
>> DGPTSTTY SRP+3, SRP+5
DGPTXX EXIT+1!, SET9+12*
ERROR EN+1~, GOOD+1, ERR+2*
FLAG SRP+1~, SRP+3*, SRP+4, SRP+5*, SRP+6
I SRP+1~, SRP+3*, SRP+5*
>> NODE EN+2, ERR+1
>> SEQ EN+2, ERR+1
U SRP+3, SRP+5
>> X DATE+4*
>> Y DATE+4, DATE+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All