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

Package: IHS Mods To Text Integration Utilities

Routine: BTIULD


Information

BTIULD ; IHS/ITSC/LJF - Admission related functions ;

Source Information

Source file <BTIULD.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Text Integration Utility 3 ($$DATE,$$NAME)^TIULS  $$READ^TIUU  MAIN^TIUVSIT  
Authorization Subscription 1 $$ISA^USRLM  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIULD  

Entry Points

Name Comments DBIA/ICR reference
HOSP() ; -- returns 1 if visit is hospitalization
CHEKDS(DATA) ;EP; Display/validate correct patient/treatment episode
CHEKDSX
CHEKPN(DATA,TIUBY) ;EP; Display/validate demographic/visit information

External References

Name Field # of Occurrence
$$GET1^DIQ CHEKPN+7, CHEKPN+8
$$DATE^TIULS CHEKDS+8, CHEKDS+10, CHEKPN+6
$$NAME^TIULS CHEKDS+6, CHEKPN+3
$$READ^TIUU CHEKDS+17, CHEKPN+11
MAIN^TIUVSIT CHEKPN+14
$$ISA^USRLM CHEKDS+5

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(DATA("PNM"),"LAST, FIRST MI"),?39,"HRCN: "
  • Line Location: CHEKDS+6
Function Call: WRITE
  • Prompt: DATA("HRCN"),?62,"Sex: ",$S(DATA("SEX")]"":$P(DATA("SEX"),U,2),1:"UNKNOWN"),!
  • Line Location: CHEKDS+7
Function Call: WRITE
  • Prompt: "Adm Date: ",$$DATE^TIULS($P(DATA("EDT"),U),"MM/DD/YY"),?39,"Ward: "
  • Line Location: CHEKDS+8
Function Call: WRITE
  • Prompt: $P(DATA("WARD"),U,2),?62,"Age: ",$S(DATA("AGE")]"":DATA("AGE"),1:"UNKNOWN"),!
  • Line Location: CHEKDS+9
Function Call: WRITE
  • Prompt: ?2,"Adm Dx: ",DATA("ADDX"),!,"Att Prov: ",$P(DATA("PMD"),U,2),!
  • Line Location: CHEKDS+11
Function Call: WRITE
  • Prompt: !,"A DISCHARGE SUMMARY is already on file:",!
  • Line Location: CHEKDS+13
Function Call: WRITE
  • Prompt: ?2,"Dict'd: ",DATA("DICTDT"),?41,"By: ",DATA("AUTHOR"),!
  • Line Location: CHEKDS+14
Function Call: WRITE
  • Prompt: ?2,"Signed: ",DATA("SIGDT"),?35,"Cosigned: ",DATA("COSDT"),!
  • Line Location: CHEKDS+15
Function Call: WRITE
  • Prompt: !
  • Line Location: CHEKDS+18
Function Call: WRITE
  • Prompt: !!,"Creating new ",$G(TIUTYPNM,"document"),"..."
  • Line Location: CHEKPN+2
Function Call: WRITE
  • Prompt: !!?1,"Patient: ",$$NAME^TIULS(DATA("PNM"),"LAST, FIRST MI"),?39,"HRCN: "
  • Line Location: CHEKPN+3
Function Call: WRITE
  • Prompt: DATA("HRCN"),?62,"Sex: ",$S(DATA("SEX")]"":$P(DATA("SEX"),U,2),1:"UNKNOWN")
  • Line Location: CHEKPN+4
Function Call: WRITE
  • Prompt: !?4,"Date/time of ",$S($$HOSP:"Admission: ",1:"Visit: ")
  • Line Location: CHEKPN+5
Function Call: WRITE
  • Prompt: $S(+$P($G(DATA("VSTR")),";",2):$$DATE^TIULS($P(DATA("VSTR"),";",2),"MM/DD/YY HR:MIN"),1:"UNKNOWN")
  • Line Location: CHEKPN+6
Function Call: WRITE
  • Prompt: " ",$E($$GET1^DIQ(9000010,+DATA("VISIT"),.06),1,12)
  • Line Location: CHEKPN+7
Function Call: WRITE
  • Prompt: ?55,$E($$GET1^DIQ(9000010,+DATA("VISIT"),.08),1,20)
  • Line Location: CHEKPN+8
Function Call: WRITE
  • Prompt: ?61,"Ward: ",$P(DATA("LOC"),U,2)
  • Line Location: CHEKPN+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] GET1^DIQ

Label References

Name Line Occurrences
$$CHEKPN CHEKPN+15
$$HOSP CHEKPN+5, CHEKPN+8
CHEKDSX CHEKDS+2, CHEKDS+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATA CHEKDS~, CHEKPN~
DATA("AD#" CHEKDS+2
DATA("ADDX" CHEKDS+11
DATA("AGE" CHEKDS+9
DATA("AUTHOR" CHEKDS+14
DATA("CAT" HOSP+1
DATA("COSDT" CHEKDS+15
DATA("DICTDT" CHEKDS+12, CHEKDS+14
DATA("EDT" CHEKDS+2, CHEKDS+8
DATA("HRCN" CHEKDS+7, CHEKPN+4
DATA("LDT" CHEKDS+10
DATA("LOC" CHEKPN+9
DATA("PMD" CHEKDS+11
DATA("PNM" CHEKDS+6, CHEKPN+3
DATA("SEX" CHEKDS+7, CHEKPN+4
DATA("SIGDT" CHEKDS+15
DATA("VISIT" CHEKPN+7, CHEKPN+8
DATA("VSTR" CHEKPN+6
DATA("WARD" CHEKDS+9
>> DFN CHEKPN+14
>> DIROUT CHEKPN+12
>> DTOUT CHEKPN+12
>> DUOUT CHEKPN+12
DUZ CHEKDS+5
TIUBY CHEKPN~, CHEKPN+15
>> TIUTYPNM CHEKPN+2
U CHEKDS+7, CHEKDS+8, CHEKDS+9, CHEKDS+11, CHEKPN+4, CHEKPN+9, HOSP+1
X CHEKPN+14!, CHEKPN+15
Y CHEKDS+1~, CHEKDS+5*, CHEKDS+16*, CHEKDS+17*, CHEKDSX, CHEKPN+1~, CHEKPN+11*, CHEKPN+13, CHEKPN+15*, CHEKPN+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All