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

Package: Text Integration Utility

Routine: TIULD


Information

TIULD ; SLC/JER - Admission related functions ; 1/13/03

Source Information

Source file <TIULD.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Text Integration Utility 8 $$CLASS^TIUCNSLT  $$NOW^TIULC  ($$PERSNAME,$$PNAME)^TIULC1  ($$DATE,$$NAME)^TIULS  PATVADPT^TIULV  MAIN^TIUMOVE  $$READ^TIUU  ($$INOUT,MAIN)^TIUVSIT  
Authorization Subscription 1 $$ISA^USRLM  
Kernel 1 $$FMADD^XLFDT  
VA FileMan 1 ^DIE  

Caller Graph

Caller Graph Total: 41

Package Total Caller Graph
Text Integration Utility 41 TIUADD  TIUAUDIT  TIUBR  TIUBR1  TIUBRWS  TIUCCRHL7P2  TIUCPFIX  TIUDIRT  
TIUEDI2  TIUFIX1  TIUGBR  TIUGEDIT  TIUHL7U2  TIUPD  TIUPEFIX  TIUPEVNT  
TIUPNAPI  TIUPRDS1  TIUPUTC  TIUPUTS  TIUPUTU  TIUPXAP2  TIURA  TIURB  
TIURC  TIURD2  TIURD4  TIURHX  TIURS  TIUSROI  TIUSROI1  TIUSRVP  
TIUSRVP2  TIUSRVPT  TIUSRVR  TIUSRVR1  TIUSRVR2  TIUTSK  TIUUTL  TIUVSIT  
^TIU(8925.1  

Entry Points

Name Comments DBIA/ICR reference
GETTIU(TIUY,TIUDA) ; Gets admission array for existing DCS
FIXMOVE(TIUY,DFN,TIUVSTR,TIUDA) ; See if Admission has been reinstated, and fix
CHEKDS(X) ; Display/validate correct patient/treatment episode
CHEKDSX
CHEKPN(X,TIUBY) ; Display/validate demographic/visit information

External References

Name Field # of Occurrence
^DIE FIXMOVE+8
$$CLASS^TIUCNSLT CHEKPN+2
$$NOW^TIULC CHEKPN+9
$$PERSNAME^TIULC1 CHEKPN+11
$$PNAME^TIULC1 GETTIU+5, CHEKPN+2
$$DATE^TIULS CHEKDS+10, CHEKDS+12, CHEKPN+6, CHEKPN+8
$$NAME^TIULS CHEKDS+6
PATVADPT^TIULV GETTIU+9
MAIN^TIUMOVE FIXMOVE+5, CHEKPN+22
$$READ^TIUU CHEKDS+23, CHEKPN+12, CHEKPN+15
$$INOUT^TIUVSIT CHEKPN+19
MAIN^TIUVSIT CHEKPN+21
$$ISA^USRLM CHEKDS+5
$$FMADD^XLFDT FIXMOVE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Movement data doesn't exist for admission, can't create "
  • Line Location: CHEKDS+3
Function Call: WRITE
  • Prompt: "Summary",!
  • Line Location: CHEKDS+4
Function Call: WRITE
  • Prompt: !!?1,"Patient: ",$$NAME^TIULS(X("PNM"),"LAST, FIRST MI"),?40,"SSN: "
  • Line Location: CHEKDS+6
Function Call: WRITE
  • Prompt: X("SSN"),?62,"Sex: ",$S(X("SEX")]"":$P(X("SEX"),U,2),1:"UNKNOWN"),!
  • Line Location: CHEKDS+7
Function Call: WRITE
  • Prompt: ?5,"Age: ",$S(X("AGE")]"":X("AGE"),1:"UNKNOWN"),?40,"Claim #: "
  • Line Location: CHEKDS+8
Function Call: WRITE
  • Prompt: $S(X("CLAIM")]"":X("CLAIM"),1:"UNKNOWN"),!
  • Line Location: CHEKDS+9
Function Call: WRITE
  • Prompt: "Adm Date: ",$$DATE^TIULS($P(X("EDT"),U),"MM/DD/YY"),?40,"Ward: "
  • Line Location: CHEKDS+10
Function Call: WRITE
  • Prompt: $P(X("WARD"),U,2),!
  • Line Location: CHEKDS+11
Function Call: WRITE
  • Prompt: ?2,"Adm Dx: ",X("ADDX")
  • Line Location: CHEKDS+13
Function Call: WRITE
  • Prompt: !?4,"Race: "
  • Line Location: CHEKDS+16
Function Call: WRITE
  • Prompt: ?10,$P(X("RACE",TIURC),U,2),!
  • Line Location: CHEKDS+16
Function Call: WRITE
  • Prompt: !?4,"Race: ",$P($G(X("RACE")),U,2),!
  • Line Location: CHEKDS+17
Function Call: WRITE
  • Prompt: !,"A DISCHARGE SUMMARY is already on file:",!
  • Line Location: CHEKDS+19
Function Call: WRITE
  • Prompt: ?2,"Dict'd: ",X("DICTDT"),?41,"By: ",X("AUTHOR"),!
  • Line Location: CHEKDS+20
Function Call: WRITE
  • Prompt: ?2,"Signed: ",X("SIGDT"),?35,"Cosigned: ",X("COSDT"),!
  • Line Location: CHEKDS+21
Function Call: WRITE
  • Prompt: !
  • Line Location: CHEKDS+24
Function Call: WRITE
  • Prompt: !!,"Enter/Edit "
  • Line Location: CHEKPN+1
Function Call: WRITE
  • Prompt: $S(+$G(TIUCLASS):$S(TIUCLASS=3:"PROGRESS NOTE",TIUCLASS=+$$CLASS^TIUCNSLT:"CONSULT RESULT",1:$$PNAME^TIULC1(+TIUCLASS)),1:"PROGRESS NOTE"),"..."
  • Line Location: CHEKPN+2
Function Call: WRITE
  • Prompt: !?10,"Patient Location: ",$S(+X("LOC"):$P(X("LOC"),U,2),1:"UNKNOWN")
  • Line Location: CHEKPN+3
Function Call: WRITE
  • Prompt: !?$S(+$G(X("AD#")):4,1:8),"Date/time of "
  • Line Location: CHEKPN+4
Function Call: WRITE
  • Prompt: $S(+$G(X("AD#")):"Admission: ",1:"Visit: ")
  • Line Location: CHEKPN+5
Function Call: WRITE
  • Prompt: $S(+$P($G(X("VSTR")),";",2):$$DATE^TIULS($P(X("VSTR"),";",2),"MM/DD/YY HR:MIN"),1:"UNKNOWN")
  • Line Location: CHEKPN+6
Function Call: WRITE
  • Prompt: !?9,"Date/time of Note: "
  • Line Location: CHEKPN+7
Function Call: WRITE
  • Prompt: $S(+$G(X("REFDT"))>0:$$DATE^TIULS(X("REFDT"),"MM/DD/YY HR:MIN"),1:"NOW")
  • Line Location: CHEKPN+8
Function Call: WRITE
  • Prompt: !?12,"Author of Note: "
  • Line Location: CHEKPN+10
Function Call: WRITE
  • Prompt: $$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:DUZ))
  • Line Location: CHEKPN+11
Routine Call
  • DIE
  • Line Location:
    • FIXMOVE+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] GETTIU+8, FIXMOVE+6
^TIU(8925 - [#8925] GETTIU+2, GETTIU+6

Label References

Name Line Occurrences
$$CHEKPN CHEKPN+23
CHEKDSX CHEKDS+2, CHEKDS+5
FIXMOVE GETTIU+8

Naked Globals

Name Field # of Occurrence
^(12 GETTIU+2
^(13 GETTIU+6
^(14 GETTIU+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA FIXMOVE+7~*
DFN GETTIU+3*, GETTIU+8, GETTIU+9, FIXMOVE~, FIXMOVE+5, CHEKPN+21, CHEKPN+22
DIE FIXMOVE+7~*
DIR CHEKDS+1~
>> DIROUT CHEKPN+13, CHEKPN+16, CHEKPN+20
DR FIXMOVE+7~*
>> DTOUT CHEKPN+13, CHEKPN+16, CHEKPN+20
>> DUOUT CHEKPN+13, CHEKPN+16, CHEKPN+20
DUZ CHEKDS+5, CHEKPN+11
>> TIU("AD#" FIXMOVE+6, FIXMOVE+7
>> TIUAUTH CHEKPN+11
TIUBY CHEKPN~, CHEKPN+14*, CHEKPN+23
>> TIUCLASS CHEKPN+2
TIUD0 GETTIU+1~, GETTIU+2*, GETTIU+3, GETTIU+4
TIUD12 GETTIU+1~, GETTIU+2*, GETTIU+4
TIUD14 GETTIU+1~, GETTIU+2*, GETTIU+3
TIUDA GETTIU~, GETTIU+2, GETTIU+6, GETTIU+8, FIXMOVE~, FIXMOVE+7
TIUDTYP GETTIU+1~, GETTIU+3*, GETTIU+5
TIUEDT FIXMOVE+1~, FIXMOVE+2*, FIXMOVE+3, FIXMOVE+5
TIUINOUT CHEKPN+18~, CHEKPN+19*, CHEKPN+21, CHEKPN+22
TIULDT FIXMOVE+1~, FIXMOVE+3*, FIXMOVE+4, FIXMOVE+5
TIULOC FIXMOVE+1~, FIXMOVE+3*, FIXMOVE+4, FIXMOVE+5
TIUMVN GETTIU+1~, GETTIU+3*, GETTIU+8, GETTIU+9
TIUPTF GETTIU+1~
TIURC CHEKDS+1~, CHEKDS+16*
TIUVSTR GETTIU+1~, GETTIU+4*, GETTIU+8, GETTIU+9, FIXMOVE~, FIXMOVE+2, FIXMOVE+3
TIUY GETTIU~, GETTIU+8, GETTIU+9, FIXMOVE~, FIXMOVE+5
TIUY("AD#" GETTIU+8
TIUY("DOCTYP" GETTIU+5*
TIUY("REFDT" GETTIU+6*
U GETTIU+3, GETTIU+4, GETTIU+5, CHEKDS+7, CHEKDS+10, CHEKDS+11, CHEKDS+16, CHEKDS+17, CHEKPN+3, CHEKPN+21
, CHEKPN+22
X CHEKDS~, CHEKPN~, CHEKPN+18!, CHEKPN+21, CHEKPN+22, CHEKPN+23
X("AD#" CHEKDS+2, CHEKPN+4, CHEKPN+5
X("ADDX" CHEKDS+13
X("AGE" CHEKDS+8
X("AUTHOR" CHEKDS+20
X("CLAIM" CHEKDS+9
X("COSDT" CHEKDS+21
X("DICTDT" CHEKDS+18, CHEKDS+20
X("EDT" CHEKDS+2, CHEKDS+10
X("LDT" CHEKDS+12
X("LOC" CHEKPN+3
X("NUMRACE" CHEKDS+15, CHEKDS+16
X("PNM" CHEKDS+6
X("RACE" CHEKDS+16, CHEKDS+17
X("RACENO" CHEKDS+17
X("REFDT" CHEKPN+8, CHEKPN+9*
X("SEX" CHEKDS+7
X("SIGDT" CHEKDS+21
X("SSN" CHEKDS+7
X("VSTR" CHEKPN+6
X("WARD" CHEKDS+11
Y CHEKDS+1~*, CHEKDS+5*, CHEKDS+22*, CHEKDS+23*, CHEKDSX, CHEKPN+12*, CHEKPN+14, CHEKPN+15*, CHEKPN+17, CHEKPN+23*
, CHEKPN+24
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