TIUDTBPN ;AITC/CR/SGM - BOOKMARK TIU NOTE AFTER DOWNTIME ;8/20/18 3:59pm
Source file <TIUDTBPN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;
|
|
| EN | ;
|
|
| ENOUT | ||
| CREATE() | ;
; Create the text of the downtime note ; Use text stored in 8925.1 BOILERPLATE TEXT field ; If no text there, move canned text into that field ; TEXT(1,i,0) contains the header, uneditable portion ; TEXT(2,i,0) contains the body, editable portion ; Text(3,i,0) contains the entire text of the note ; TEXT(4,i,0) contains the body, canned text |
|
| CRE1 | ; get header, uneditable
|
|
| CRE12() | ;
|
|
| CRE2 | ; get body, editable
|
|
| CRE3() | ;
|
|
| CRE31 | ;
|
|
| CRE4 | ;
; display if administrative closure |
|
| CRE5() | ; ask for user's electronic signature
|
|
| CRE9 | ;
; rebuild TEXT(2) and TEXT(3) ; GLN=$NA(^TIU(8925.1,TIUDA,"DFLT")) |
|
| TOTADD(P) | ||
| GETINP | ;
|
|
| GETINPD | ;
|
|
| INPCOM(DFN,DATE) | ;
|
|
| GETOUT | ;
|
|
| CK2(DFN) | ;
; return -1 or dfn^name |
|
| CK42(VAL) | ;
; return -1 file_42_ien ^ 42_name ^ division_ien ^ hosp_loc_ien ; find1 call assures one and only one entry matching name |
|
| CK44(IEN) | ;
; return -1 or file_44_ien ^ 44_name ^ division |
|
| DIC(CH) | ||
| DIR(CH) | ||
| DIVISION() | ||
| DSP(PNM,LNM,STATX,END) | ; screen display
; update screen 20 lines at a time |
|
| DSPFMT(PNM,LNM,STATX) | ; format display line
|
|
| ESIGCK() | ;
|
|
| FIND1(FILE,IEN,FLG,VAL,IDX,SCR) | ;
|
|
| GET1(FILE,IEN,FLD,FLG) | ;
|
|
| MAIL() | ;
|
|
| NEWNOTE(LOC) | ;
; Create New TIU Note ; loc = file 44 ien / expects DFN to be defined ; FINDPAT should have set up @GLT@() for all LOCs ; Extrinsic return value: -1 ; -1^-1 ; TIUDA ; TIUDA^-1 ; Any place where STAT is referenced it will be this value |
|
| QUEUE | ;
|
|
| STATUS(TIUDA) | ;
; TIUDA can be ien, -1, ien^-1, -1^-1 ; Return: -1/0/1/2 ; note_ien or -1 ; format text |
|
| TEXT(TAG,WR,LF,CLR,PAD,CHR,TIUR) | ; Generic Text Handler
; TAG - line label containing the text ; all groups of text should end with ' ;;---' ; WR - Boolean, write or do not write ; LF - 0:no extra line feeds; 1:leading line feed; 2:trailing feed ; CLR - Boolean, clear screen first ; PAD - number of spaces begin each line with ; If PAD="" then default to 3. If PAD=0 then no padding ; CHR - for center justify, character to pad line, default is space |
|
| TIUTX(STATX,DFN,PNM,LNM) | ; text for mail message
; statx = -1/0/1/2 ; note_ien or -1 ; format text |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
