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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPTMSGD

Package: Registration

Routine: DGPTMSGD


Information

DGPTMSGD ;ALB/JDS - PTF MULTIMESSAGE DELETE ; 19 DEC 84@ 0800

Source Information

Source file <DGPTMSGD.m>

Entry Points

Name Comments DBIA/ICR reference
EN
P
LOOP
READ
THRU
DEL
ONE
PICK
PICK1
HELP
ALL
ALL1
BACK
MES1
MESS
N
HLPN
Q

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "DELETE BY [P]ATIENT OR [N]UMBER: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!,"Enter 'P' to delete PTF messages by patient",!," or 'N' to delete PTF messages by number"
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: I,?10
  • Line Location: LOOP+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter the message #'s you wish to release: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !,I,?10,"** Deleted **"
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !!,"Enter:",!?10,"ALL to release all messages",!?10,"# to release a specific message",!?10,"#-# to release a range of messages",!?10,"#,#,#... to release a group of messages"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"Choose From:"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"Do you want to see a list of messages for this patient"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: $C(8)
  • Line Location: BACK+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: K
  • Line Location: MESS+0
Function Call: WRITE
  • Prompt: ?13,$E(L,1+(K*65),65*(K+1))
  • Line Location: MESS+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter the message #'s you wish to release: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: N+0
Function Call: WRITE
  • Prompt: !!,"Enter:",!?10,"# to release a specific message",!?10,"#-# to release a range of messages",!?10,"#,#,#... to release a group of messages",!
  • Line Location: HLPN+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGM - [#45.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call