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
Print Page as PDF
Routine: TIUPRPN1

Package: Text Integration Utility

Routine: TIUPRPN1


Information

TIUPRPN1 ;SLC/JER - Print SF 509-Progress Notes ;11/23/07

Source Information

Source file <TIUPRPN1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT(TIUFLAG,TIUSPG) ; Print Document
; ^TMP("TIUPR",$J) is array of records to be printed
; TIUFLAG=1 --> Chart Copy TIUSPG=1 --> Contiguous
; TIUFLAG=0 --> Work Copy TIUSPG=0 --> Fresh Page- each note
; TIUCONT=1 --> Continue printing
; TIUCONT1=1 --> Write "Continue to next/from previous-page" msgs
; TIUPFNBR ---> Print Form # like vice 509
; TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA
REPORT(TIUROOT,TIUFOOT,TIUMISC,TIUCONT,TIUIDEND) ; Report Text
; Requires array TIUFOOT, vars TIUMISC, TIUCONT
; Requires TIUROOT =
; ^TMP("TIULQ",$J,NOTEIFN) for parent/stand-alone note, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN) for ID kid, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN,"ZADD",KIDADDMIFN)
; for ID kid addm.
ADDENDA ; Fall through and do Addenda of docmt TIUDA
IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT) ; Print ID kids
GETSIG(TIUROOT,TIUSIG) ; Get signature info from TIULQ global;
; Set info into TIUSIG array **100**
; Requires array name TIUROOT; passes back array TIUSIG
; TIUROOT = ^TMP("TIULQ",$J,NOTEIFN) for parent note, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",IDKIDIFN) for ID kid.
; Signature should be on bottom of form, Addenda on Subsequent pages
SETCONT(TIUFOOT,TIUMISC,TIUCONT1,TIUHEAD,TIUROOT) ;Does footer

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NOTE DATED:",!,"Document #",TIUDA," for ",$G(TIUFOOT("PNMP")),!,"no longer exists in the TIU DOCUMENT file.",!!!
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,$P(TIUERR,U,2)
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: "<< Interdisciplinary Note - Begin >>",!
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: "<< Interdisciplinary Note - Cont. >>",!
  • Line Location: REPORT+16
Function Call: WRITE
  • Prompt: $S('HASIDKID&'HASIDDAD:"NOTE DATED: ",1:"ENTRY DATED: ")
  • Line Location: REPORT+17
Function Call: WRITE
  • Prompt: $$DATE^TIULS(REFDT,"MM/DD/CCYY HR:MIN")
  • Line Location: REPORT+19
Function Call: WRITE
  • Prompt: !,"LOCAL TITLE: ",$$UP^XLFSTR(TITLE),!
  • Line Location: REPORT+21
Function Call: WRITE
  • Prompt: "STANDARD TITLE: ",$$UP^XLFSTR(LOINCNM),!
  • Line Location: REPORT+22
Function Call: WRITE
  • Prompt: $S($P(^SC(LOC,0),U,3)="W":"ADMITTED: ",1:"VISIT: ")
  • Line Location: REPORT+25
Function Call: WRITE
  • Prompt: $$DATE^TIULS(ADT,"MM/DD/CCYY HR:MIN")
  • Line Location: REPORT+27
Function Call: WRITE
  • Prompt: " ",HLOC
  • Line Location: REPORT+29
Function Call: WRITE
  • Prompt: !,"SUBJECT: ",^("E"),!
  • Line Location: REPORT+31
Function Call: WRITE
  • Prompt: !,"ASSOCIATED PROBLEMS:"
  • Line Location: REPORT+35
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+40
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+49
Function Call: WRITE
  • Prompt: !!,$$DATE^TIULS(ADDMRDT,"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM"
  • Line Location: ADDENDA+7
Function Call: WRITE
  • Prompt: ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E")
  • Line Location: ADDENDA+8
Function Call: WRITE
  • Prompt: !,"<< Interdisciplinary Note - End >>",!
  • Line Location: ADDENDA+20
Info |  Source |  Entry Points |  Interaction Calls