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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call