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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AZCNFDPT

Package: Local Area Programs

Routine: AZCNFDPT


Information

AZCNFDPT ;RPMS/GTH;** CONVERT NAME FORMAT IN ^DPT ** ; 8/23/88 9:24 AM [ 09/06/88 5:04 PM ]

Source Information

Source file <AZCNFDPT.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZTLOAD  
VA Fileman 2 WAIT^DICD  ^DIE  

Entry Points

Name Comments DBIA/ICR reference
ENDQ
ERRORS
HDR
PROCESS
START
HELPP
DEVICE
QSTART ; ENTRY POINT - TaskMan.
HELP

External References

Name Field # of Occurrence
^%ZIS DEVICE, DEVICE+5
^%ZTLOAD DEVICE+3
WAIT^DICD QSTART+1
^DIE PROCESS+4, ERRORS

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "[R]eport or [C]hange? R//"
  • Formatting: !
  • Timeout: $S($D(DTIME):DTIME,1:60)
  • Variable: MODE
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !?5,$P($T(AZCNFDPT),";",3),!
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,*7,"No device specified."
  • Line Location: DEVICE+0
Function Call: READ
  • Prompt: "Do you really mean queue to this device? NO//"
  • Formatting: !
  • Timeout: 360
  • Variable: X
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!,"Ok, tell me again ..."
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,*7,"Device ",IO," busy."
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,"Node # ",DFN,?20,"old : '",X,"'",!?20,"new : '",XNEW,"'",!
  • Line Location: PROCESS+1
Function Call: READ
  • Prompt: "Confirm change <N> "
  • Formatting: !
  • Timeout: $S($D(DTIME):DTIME,1:60)
  • Variable: YN
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: ?($X+5),"CHANGE COMPLETE.",!
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !!,"Type 'R' to report the name format errors in '^DPT'",!,"'C' to report them and to correct them,",!,"'??' for more help.",!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"This utility reads through the 'B' index of the VA PATIENT file (^DPT),",!,"looking for names that are in an incorrect format, i.e., 'LNAME II,FNAME M',"
  • Line Location: HELPP+0
Function Call: WRITE
  • Prompt: !," (teknonym out of place) and corrects their format to 'LNAME,FNAME M,II'.",!!,"Correction of a name requires user confirmation.",!
  • Line Location: HELPP+1
Routine Call
  • DIE
  • Line Location:
    • PROCESS+4
    • ERRORS
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
    • DEVICE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" QSTART+2
^DPT("B" QSTART+1

Label References

Name Line Occurrences
AZCNFDPT START
DEVICE DEVICE+1, DEVICE+6
ENDQ DEVICE+3
HDR QSTART+1, PROCESS+1
HELP START
HELPP START
PROCESS QSTART+1
QSTART START, DEVICE+4, DEVICE+5
START START, HELP+1, HELPP+2

Naked Globals

Name Field # of Occurrence
^( PROCESS

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE*!
%ZIS("B" DEVICE!
DA QSTART+2!, PROCESS+3*, ERRORS*
DA(1 PROCESS+3*, ERRORS*
DFN QSTART+2!, PROCESS*, PROCESS+1, PROCESS+3
DFOUT ENDQ!
DIE QSTART+2!, PROCESS+3*, ERRORS*
DLOUT ENDQ!
DQOUT ENDQ!
DR QSTART+2!, PROCESS+3*, ERRORS*
DTIME START, PROCESS+2
DTOUT ENDQ!
DUOUT ENDQ!
ENTRY QSTART+2!, PROCESS*, PROCESS+3
>> G DEVICE+2*
I QSTART+1*, QSTART+2!
IO DEVICE, DEVICE+1, DEVICE+4, DEVICE+5, DEVICE+6, QSTART+1
IO("Q" DEVICE+1!, DEVICE+2!
IOF QSTART+2, HDR
IOP DEVICE!, DEVICE+5*
MODE START!*, ENDQ!, QSTART+2!, PROCESS+2, HDR
PG QSTART+1*, QSTART+2!, HDR*
>> POP DEVICE+5
PRINT START*, DEVICE+2*, DEVICE+5*, ENDQ!, QSTART+1, QSTART+2!, PROCESS+1, PROCESS+2
X DEVICE+1*, ENDQ!, QSTART+1*, QSTART+2!, PROCESS, PROCESS+1
XNEW QSTART+2!, PROCESS*, PROCESS+1, PROCESS+3
Y ENDQ!
>> YN PROCESS+2*
>> ZTDESC DEVICE+2*
>> ZTRTN DEVICE+2*
>> ZTSAVE( DEVICE+2*

Marked Items

Name Field # of Occurrence
$T(AZCNFDPT START
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All