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

Package: Text Integration Utility

Routine: TIUPRDS2


Information

TIUPRDS2 ;SLC/SBW - Header & Footer for Form 10-1000 ; 11/29/02

Source Information

Source file <TIUPRDS2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Text Integration Utility 3 $$NOW^TIULC  $$DATE^TIULS  $$STOP^TIUU  
Kernel 2 $$FMDIFF^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIUPRDS1  

Entry Points

Name Comments DBIA/ICR reference
HEADER(TIUDA,TIU,TIUFLAG,TIUPAGE) ; Header
FOOTEXIT ;
FOOTER(TIUDA,TIU,TIUFLAG,TIUPAGE,TIUCOPY,TIUHDR) ; Control Pagination
; position, write footer when appropriate
; IF TIUHDR=1, HEADER WILL NOT BE PRINTED
DISPTYP(TEXT) ; NOIS SHE-1098-52553
HEADERX ;Header exit
AGE(TIUDT,TIUDOB) ; Compute patient's age as of discharge (or entry)

External References

Name Field # of Occurrence
$$GET1^DIQ FOOTER+16
$$NOW^TIULC HEADER+7
$$DATE^TIULS HEADER+7
$$STOP^TIUU FOOTER+20
$$FMDIFF^XLFDT AGE+1
$$REPEAT^XLFSTR FOOTER+13, HEADER+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOTER+6
Function Call: WRITE
  • Prompt: !,"PATIENT: ",^TMP("TIULQ",$J,TIUDA,.02,"E")
  • Line Location: FOOTER+8
Function Call: WRITE
  • Prompt: ?47,"VA FORM 10-1000 DISCHARGE SUMMARY"
  • Line Location: FOOTER+9
Function Call: WRITE
  • Prompt: !,TIU("SSN")," DOB: ",$$DATE^TIULS(+$G(TIU("DOB")),"MM/DD/CCYY")
  • Line Location: FOOTER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOTER+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: FOOTER+13
Function Call: WRITE
  • Prompt: !,"PATIENT: ",^TMP("TIULQ",$J,TIUDA,.02,"E")
  • Line Location: FOOTER+14
Function Call: WRITE
  • Prompt: " ",TIU("SSN")," #",TIU("HRCN")
  • Line Location: FOOTER+15
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(8925,+TIUDA,.01)
  • Line Location: FOOTER+16
Function Call: WRITE
  • Prompt: ?40,$J(TIUCOPY,39)
  • Line Location: FOOTER+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FOOTER+21
Function Call: WRITE
  • Prompt: !,$E($P($G(TIU("DIV")),U,2),1,37),?$X+3,$S(^TMP("TIULQ",$J,TIUDA,.09,"I")="P":^("E"),1:"")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?50,$$DATE^TIULS($$NOW^TIULC,"MM/DD/CCYY HR:MIN"),?71,"Page: ",$J(TIUPAGE,2)
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("_",80)
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,TIULINE
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?33,"| AGE | SEX | SSN | CLAIM NUMBER"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,^TMP("TIULQ",$J,TIUDA,.02,"E"),?33,"| ",$J($G(TIU("AGE")),3),?39,"|",?42,$P($G(TIU("SEX")),U),?45,"| ",$P($G(TIU("SSN")),U),?60,"| ",$G(TIU("CLAIM"))
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,TIULINE
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !?2,"ADM DATE | DISC DATE | TYPE OF RELEASE | INP | ABS | WARD NO"
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !,$P(^TMP("TIULQ",$J,TIUDA,.07,"E"),"@"),?13,"| ",$P(^TMP("TIULQ",$J,TIUDA,.08,"E"),"@"),?28,"| "
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: $S($G(^TMP("TIULQ",$J,TIUDA,.08,"E"))]"":$$DISPTYP($P($G(TIU("MTYPE")),U,2)),1:" "),?48,"|"
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: ?49,$J($P($G(TIU("DAYS")),U),4),?54,"|",?55,$J($P($G(TIU("DAYS")),U,4),4),?60,"| ",$E($P($G(TIU("WARD")),U,2),1,18)
  • Line Location: HEADER+18
Function Call: WRITE
  • Prompt: !,TIULINE
  • Line Location: HEADER+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] HEADER+2
^TMP("TIULQ" FOOTER+14, HEADER+6, HEADER+12, HEADER+16, HEADER+17

Label References

Name Line Occurrences
$$AGE HEADER+4
$$DISPTYP HEADER+17
FOOTEXIT FOOTER+3, FOOTER+20
HEADER FOOTER+22
HEADERX HEADER+14

Naked Globals

Name Field # of Occurrence
^("E" HEADER+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
IOF FOOTER+21
IOSL FOOTER+3, FOOTER+11
IOST FOOTER+12, FOOTER+20, HEADER+5, HEADER+14
>> IOT FOOTER+11
TEXT DISPTYP~, DISPTYP+2, DISPTYP+3, DISPTYP+4, DISPTYP+5
TIU FOOTER~, FOOTER+22, HEADER~
TIU("AGE" HEADER+4*, HEADER+12
TIU("CLAIM" HEADER+12
TIU("DAYS" HEADER+18
TIU("DIV" HEADER+6
TIU("DOB" HEADER+4
TIU("EDT" HEADER+3
TIU("HRCN" FOOTER+15
TIU("LDT" HEADER+3
TIU("MTYPE" HEADER+17
TIU("SEX" HEADER+12
TIU("SSN" FOOTER+15, HEADER+12
TIU("WARD" HEADER+18
TIUADT HEADER+1~, HEADER+3*, HEADER+4
>> TIUCONT FOOTER+3*, FOOTER+20*, FOOTEXIT+1
TIUCOPY FOOTER~, FOOTER+19
TIUDA FOOTER~, FOOTER+14, FOOTER+16, FOOTER+22, HEADER~, HEADER+2, HEADER+6, HEADER+12, HEADER+16, HEADER+17
TIUDOB AGE~, AGE+1
TIUDT AGE~, AGE+1
TIUENTDT HEADER+1~, HEADER+2*, HEADER+3
TIUFLAG FOOTER~, FOOTER+22, HEADER~, HEADER+5
TIUHDR FOOTER~, FOOTER+22
TIULINE HEADER+1~*, HEADER+9, HEADER+13, HEADER+19
TIUPAGE FOOTER~, FOOTER+22, HEADER~, HEADER+7, HEADER+8*, HEADER+14, HEADERX+1*
TIUY FOOTER+3, DISPTYP+1~, DISPTYP+2*, DISPTYP+3*, DISPTYP+4*, DISPTYP+5*, DISPTYP+6
U HEADER+6, HEADER+12, HEADER+17, HEADER+18
Y AGE+1~*, AGE+2
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