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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: TIUPSCS

Package: Text Integration Utility

Routine: TIUPSCS


Information

TIUPSCS ;BPOIFO/EL/CR - TIU DOCUMENT POST-SIGNATURE ALERT SETUP ;10/29/17 8:15am

Source Information

Source file <TIUPSCS.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Text Integration Utility 2 $$POSTSIGN^TIULC1  $$GETRTN^TIUPSCA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIUFPC CREATE POST-SIGNATURE  

Entry Points

Name Comments DBIA/ICR reference
BUILD ;
; allow a CAC to setup the title for post-signature alerts - a controlled situation
CONFIRM ;
DEL ; use to clean up an existing setup
DEVICE ;
DEVQ ;
EN ; entry point for the option [TIUFPC CREATE POST-SIGNATURE]
EN10 ;
GETFLD(TIUFLE,TIUIEN,TIUFLD,TIUIE) ; Get field value
GETTITLE ;
STATUS ; Check
INTRO ;
HD ; Header for Enter Post-Signature Code
STOP ; Check Continue
SUBROUT ;
SUBQ
WHO ; Select Alert Recipient

External References

Name Field # of Occurrence
^DIC DEVICE+4, GETTITLE+4, WHO+12
$$GET1^DIQ BUILD+3, BUILD+4, WHO+14
GETS^DIQ GETFLD+3
^DIR CONFIRM+10, DEL+5, GETTITLE+38, STATUS+12, SUBROUT+13, SUBROUT+26, WHO+4
$$POSTSIGN^TIULC1 GETTITLE+24
$$GETRTN^TIUPSCA SUBROUT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Post-Signature code for '"_$$GET1^DIQ(TIUFLE,TIUIEN,.01)_"' has been updated as follows..."
  • Line Location: BUILD+3
Function Call: WRITE
  • Prompt: !,"POST-SIGNATURE CODE: "_$$GET1^DIQ(TIUFLE,TIUIEN,4.9)
  • Line Location: BUILD+4
Function Call: WRITE
  • Prompt: !!,"The Post-Signature code for '"_TIUNAME_"' will be set as follows..."
  • Line Location: CONFIRM+4
Function Call: WRITE
  • Prompt: !,"POST-SIGNATURE CODE: "_TIUDR,!
  • Line Location: CONFIRM+5
Function Call: WRITE
  • Prompt: !!,"No action has been taken!!"
  • Line Location: CONFIRM+12
Function Call: WRITE
  • Prompt: !!,"No action has been taken!!"
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !,"... Deleted ..."
  • Line Location: DEL+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!,"ABORT DEVICE - No action is taken."
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN10+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN10+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN10+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN10+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN10+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN10+8
Function Call: WRITE
  • Prompt: !!,"Someone else is editing this record, try again later.",!
  • Line Location: GETTITLE+8
Function Call: WRITE
  • Prompt: !!,"NATIONAL STANDARD Document Type cannot be edited."
  • Line Location: GETTITLE+15
Function Call: WRITE
  • Prompt: !!,"Only Document Title is allowed to be edited."
  • Line Location: GETTITLE+19
Function Call: WRITE
  • Prompt: !!,"This application cannot alter more than one alert call at a time."
  • Line Location: GETTITLE+29
Function Call: WRITE
  • Prompt: !,"It is --> ",TIUPREV
  • Line Location: GETTITLE+30
Function Call: WRITE
  • Prompt: !!,"The POST-SIGNATURE Code in '"_TIUNAME_"' was created by this option."
  • Line Location: GETTITLE+32
Function Call: WRITE
  • Prompt: !,"It is --> ",TIUPREV
  • Line Location: GETTITLE+33
Function Call: WRITE
  • Prompt: !
  • Line Location: GETTITLE+38
Function Call: WRITE
  • Prompt: !!,"The POST-SIGNATURE Code in '"_TIUNAME_"' was already set by another option."
  • Line Location: GETTITLE+41
Function Call: WRITE
  • Prompt: !,"It is --> ",TIUPREV
  • Line Location: GETTITLE+42
Function Call: WRITE
  • Prompt: !,"This Post-Signature Code cannot be altered in this option."
  • Line Location: GETTITLE+43
Function Call: WRITE
  • Prompt: !,"To change the code, please contact your local IT Support Programmer."
  • Line Location: GETTITLE+44
Function Call: WRITE
  • Prompt: !,"'Document Definitions (Manager) / Edit Document' option can be used."
  • Line Location: GETTITLE+45
Function Call: WRITE
  • Prompt: !!,"The STATUS of this Document Definition Title is '"_TIUST_"'."
  • Line Location: STATUS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: STATUS+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INTRO+1
Function Call: WRITE
  • Prompt: !,"This option will setup 'Post-Signature Code Alerts' for PROGRESS NOTES."
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !,"Please select a choice of RECIPIENTS, and a choice of ROUTINE,"
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !,"and DEVICE (optional) to receive a printed alert upon note signature."
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !!,"If both RECIPIENTS and ROUTINE are N/A, a choice of"
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !,"DELETION or CANCELLATION for the Code Alert setting will be provided.",!!
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: " "
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: H1,!
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: " "
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: H2
  • Line Location: HD+9
Function Call: READ
  • Variable: Y
  • Timeout: TIUWAIT
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !!,"ABORT alert ROUTINE - No action is taken."
  • Line Location: SUBROUT+15
Function Call: WRITE
  • Prompt: !!,"This is a required response. OR Enter '^' to exit",!
  • Line Location: SUBROUT+16
Function Call: WRITE
  • Prompt: !!,"Without RECIPIENT and ROUTINE, alert code setting is cancelled."
  • Line Location: SUBROUT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBROUT+26
Function Call: WRITE
  • Prompt: !!,"No action has been taken!!"
  • Line Location: SUBROUT+28
Routine Call
  • DIC
  • Line Location:
    • DEVICE+4
    • GETTITLE+4
    • WHO+12
Routine Call
  • DIR
  • Line Location:
    • CONFIRM+10
    • DEL+5
    • GETTITLE+38
    • STATUS+12
    • SUBROUT+13
    • SUBROUT+26
    • WHO+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU( GETTITLE+8, STOP+6
^TIU(8925.1 - [#8925.1] BUILD+2*, DEL+9*

Label References

Name Line Occurrences
$$GETFLD GETTITLE+13, GETTITLE+17, STATUS+4, STATUS+6
BUILD EN10+8
CONFIRM EN10+7
DEL SUBROUT+29
DEVICE EN10+6
DEVQ DEVICE+5
EN10 EN10+3, EN10+4, EN10+5, EN10+6, EN10+7, EN10+9
GETTITLE EN10+3
INTRO EN10+2
STATUS GETTITLE+25, GETTITLE+31, GETTITLE+40
STOP EN10+3, EN10+4, EN10+5, EN10+6, EN10+7, EN10+8
SUBQ SUBROUT+14, SUBROUT+19, SUBROUT+21
SUBROUT EN10+5, SUBROUT+16
WHO EN10+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+1~, INTRO+7*
DIC DEVICE+3*, DEVICE+4!, GETTITLE+3*, GETTITLE+4!, INTRO+7*, WHO+10*, WHO+12!
DIC("A" DEVICE+3*
DIC(0 DEVICE+3*, GETTITLE+3*, WHO+11*
DIR CONFIRM+10!, DEL+5!, GETTITLE+38!, STATUS+12!, INTRO+7*, SUBROUT+13!, SUBROUT+26!, WHO+4!
DIR("A" CONFIRM+8*, DEL+3*, GETTITLE+34*, STATUS+8*, SUBROUT+4*, SUBROUT+6*, SUBROUT+11*, SUBROUT+22*, WHO+3*
DIR("B" CONFIRM+9*, DEL+4*, GETTITLE+37*, STATUS+11*, SUBROUT+25*
DIR("T" CONFIRM+6*, DEL+1*, GETTITLE+35*, STATUS+9*, SUBROUT+3*, SUBROUT+23*
DIR(0 CONFIRM+7*, DEL+2*, GETTITLE+36*, STATUS+10*, SUBROUT+12*, SUBROUT+24*, WHO+2*
DIROUT EN+1~, INTRO+7*
DIRUT CONFIRM+11, DEL+6, EN+1~, GETTITLE+39, STATUS+13, INTRO+7*, SUBROUT+14, SUBROUT+27
DR EN+1~, INTRO+7*
DTIME EN+7
DTOUT DEVICE+5, EN+1~, GETTITLE+5, GETTITLE+39, INTRO+7*, WHO+5
DUOUT DEVICE+5, EN+1~, GETTITLE+5, INTRO+7*, WHO+5
H1 EN+2~, INTRO+8*, HD+2*, HD+3*, HD+4, HD+6, HD+8
H2 EN+2~, INTRO+8*, HD+2*, HD+4*, HD+9
I EN+2~, INTRO+8*, HD+2*, HD+4*, HD+7*, HD+8*, SUBROUT+2*, SUBROUT+6*, SUBROUT+7, SUBROUT+10
, SUBROUT+11
IOF INTRO+1
IOM HD+5*, HD+6
J EN+2~, INTRO+8*, SUBROUT+2*, SUBROUT+8*, SUBROUT+9*, SUBROUT+11*, SUBROUT+12
STOP EN+2~, EN+9*, EN10+1, EN10+3, GETTITLE+5*, GETTITLE+8*, INTRO+8*, HD+1*, STOP+1*, STOP+5*
TIUARY SUBROUT+1!, SUBROUT+2*, SUBROUT+5*
TIUARY( SUBROUT+6, SUBROUT+7, SUBROUT+18
TIUDEV CONFIRM+2, CONFIRM+3, DEVICE+2*, DEVICE+7*, EN+2~, INTRO+8*
>> TIUDR BUILD+2, CONFIRM+1*, CONFIRM+2*, CONFIRM+3*, CONFIRM+5
TIUFILE EN+2~, INTRO+8*, WHO+8*, WHO+9*, WHO+10, WHO+14
TIUFLD EN+2~, GETFLD~, GETFLD+3, GETFLD+4, GETTITLE+10*, GETTITLE+12*, GETTITLE+13, GETTITLE+16*, GETTITLE+17, STATUS+2*
, STATUS+3*, STATUS+4, STATUS+6, INTRO+8*
TIUFLE BUILD+3, BUILD+4, EN+2~, EN+8*, GETFLD~, GETFLD+3, GETFLD+4, GETTITLE+3, GETTITLE+8, GETTITLE+13
, GETTITLE+17, STATUS+4, STATUS+6, STOP+6
TIUGO CONFIRM+11*, DEL+6*, DEVICE+5*, EN+2~, EN+9*, EN10+3, EN10+4, EN10+5, EN10+6, EN10+7
, GETTITLE+2*, GETTITLE+5*, GETTITLE+11*, GETTITLE+14*, GETTITLE+18*, GETTITLE+23*, GETTITLE+28*, GETTITLE+39*, GETTITLE+40*, STATUS+1
, STATUS+13*, INTRO+8*, HD+1*, STOP+5*, SUBROUT+14*, SUBROUT+19*, SUBROUT+27*, SUBROUT+28*, SUBROUT+29*, WHO+5*
TIUIE EN+2~, GETFLD~, GETFLD+3, GETFLD+4, GETTITLE+10*, GETTITLE+12*, GETTITLE+13, GETTITLE+16*, GETTITLE+17, STATUS+2*
, STATUS+3*, STATUS+4, STATUS+6*, INTRO+8*
TIUIEN BUILD+2, BUILD+3, BUILD+4, DEL+9, EN+2~, GETFLD~, GETFLD+2, GETTITLE+1*, GETTITLE+6*, GETTITLE+8
, GETTITLE+13, GETTITLE+17, GETTITLE+24, STATUS+4, STATUS+6, INTRO+8*, STOP+6
TIUNAME CONFIRM+4, CONFIRM+8, DEL+3, EN+3~, GETTITLE+1*, GETTITLE+6*, GETTITLE+32, GETTITLE+41, STATUS+8, INTRO+9*
TIUPREV EN+3~, GETTITLE+22*, GETTITLE+24*, GETTITLE+25, GETTITLE+28, GETTITLE+30, GETTITLE+31, GETTITLE+33, GETTITLE+40, GETTITLE+42
, INTRO+9*, SUBROUT+19, SUBROUT+21
TIURTN EN+3~, INTRO+9*, SUBROUT+1!, SUBROUT+2*
TIURTN( SUBROUT+6, SUBROUT+10*
TIUSPEC CONFIRM+2, CONFIRM+3, EN+3~, INTRO+9*, SUBROUT+2*, SUBROUT+17*, SUBROUT+18*, SUBROUT+19, SUBROUT+21
TIUST EN+3~, STATUS+2*, STATUS+4*, STATUS+6*, STATUS+7, INTRO+9*
TIUWAIT CONFIRM+6, DEL+1, EN+3~, EN+6*, EN+7*, GETTITLE+35, STATUS+9, STOP+4, SUBROUT+3, SUBROUT+23
TIUWHO EN+3~, INTRO+9*, WHO+1*, WHO+6*, WHO+9, WHO+14
TIUXQA CONFIRM+2, CONFIRM+3, EN+3~, INTRO+9*, SUBROUT+19, SUBROUT+21, WHO+8*, WHO+13*, WHO+14*
U DEVICE+7, EN+10*, GETTITLE+6, STOP+4, STOP+5
X EN+4~, INTRO+10*, HD+6*, HD+7, HD+8, STOP+1*, STOP+2*, STOP+3*, STOP+4
Y CONFIRM+1*, CONFIRM+11, DEL+6, DEVICE+2*, DEVICE+7, EN+4~, GETTITLE+1*, GETTITLE+5, GETTITLE+6, GETTITLE+39
, STATUS+2*, STATUS+13, INTRO+10*, STOP+4*, STOP+5, SUBROUT+2*, SUBROUT+16, SUBROUT+17, SUBROUT+18, SUBROUT+27
, WHO+1*, WHO+6, WHO+8*, WHO+13, WHO+14
Z EN+4~, GETFLD+1*, GETFLD+4*, GETFLD+5, GETTITLE+10*, GETTITLE+13*, GETTITLE+14, GETTITLE+17*, GETTITLE+18, STATUS+2*
, STATUS+4*, STATUS+5, STATUS+6*, INTRO+10*, SUBROUT+2*, SUBROUT+7*, SUBROUT+9, SUBROUT+18*
Z1 EN+4~, INTRO+10*, SUBROUT+2*, SUBROUT+8*, SUBROUT+9*, SUBROUT+10
Z2 EN+4~, INTRO+10*, SUBROUT+2*, SUBROUT+8*, SUBROUT+9*, SUBROUT+10
ZZ EN+4~, GETFLD+1!, INTRO+10*
ZZ( GETFLD+4
ZZIEN EN+4~, GETFLD+1*, GETFLD+2*, GETFLD+3, GETFLD+4, INTRO+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All