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: TIUPNCV4

Package: Text Integration Utility

Routine: TIUPNCV4


Information

TIUPNCV4 ;SLC/DJP ;2/26/98 13:30

Source Information

Source file <TIUPNCV4.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Text Integration Utility 5 DRIVER^TIUPNCV  (INTRO,MAIL)^TIUPNCV5  MAIN^TIUPNCV8  $$ASKCOS^TIUPNCVU  $$READ^TIUU  
Kernel 3 ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
MailMan 2 KILL^XM  ^XMB  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Text Integration Utility 5 TIU GMRPN CONVERT  TIU GMRPN RESTART  TIU GMRPN SINGLE  TIUPNCV  TIUPNCVU  

Entry Points

Name Comments DBIA/ICR reference
ENINDY ;Entry of IEN
INDY ;Converts individual Progress Notes based on IEN in ^GMR(121
HELP4 ;Help for INDY prompt
EMERG ;Emergency entrance - must pass "Y" and "EMER"
HELP2 ;Help for RESTART prompt
HELP3 ;Help for IEN prompt
HELP1 ;Help for are you sure prompt
REPORT ;sends bulletin to initiator of conversion
ENTRY ;Entry point to set-up conversion
KILINDY ;Cleans up the debris
PNDEVICE ;Permits site to queue conversion
RESTART ;Permit restarting of conversion from last successfully processed note.

External References

Name Field # of Occurrence
^%ZISC PNDEVICE+6
^%ZTLOAD PNDEVICE+4
^DIR ENTRY+7, RESTART+7, ENINDY+3
DRIVER^TIUPNCV ENTRY+11
INTRO^TIUPNCV5 ENTRY+4
MAIL^TIUPNCV5 RESTART+11
MAIN^TIUPNCV8 EMERG+4
$$ASKCOS^TIUPNCVU ENINDY+5
$$READ^TIUU ENTRY+8
$$NOW^XLFDT RESTART+15
KILL^XM REPORT+7
^XMB REPORT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DUZ must be defined as an active user!",!
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: !!,"Conversion has been completed.",!
  • Line Location: ENTRY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTRY+6
Function Call: WRITE
  • Prompt: !!?9,$C(7),"Progress Notes Conversion Running in Foreground",!
  • Line Location: ENTRY+10
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled."),!
  • Line Location: PNDEVICE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RESTART+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RESTART+2
Function Call: WRITE
  • Prompt: !!?10,"****** RESTART PROGRESS NOTE/TIU CONVERSION ******",!!
  • Line Location: RESTART+3
Function Call: WRITE
  • Prompt: !?5,"Conversion has NOT been previously run",!?5,"Please use the CONVERT PROGRESS NOTE option."
  • Line Location: RESTART+5
Function Call: WRITE
  • Prompt: !!?5,"A mail message documenting discrepancies encountered during "
  • Line Location: RESTART+8
Function Call: WRITE
  • Prompt: !,?5,"processing will be sent to you.",!
  • Line Location: RESTART+9
Function Call: WRITE
  • Prompt: !!,"Restarting Progress Note Conversion at Record #"_GMRPST_"...",!
  • Line Location: RESTART+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INDY+2
Function Call: WRITE
  • Prompt: !!?18,"***** INDIVIDUAL RECORD CONVERSION *****",!
  • Line Location: INDY+2
Function Call: WRITE
  • Prompt: !,"Entry ",Y," not found in file 121",$C(7)
  • Line Location: ENINDY+4
Function Call: WRITE
  • Prompt: !!,"*****Progress Note "_GMRPIFN_" NOT converted*****",!
  • Line Location: EMERG+6
Function Call: WRITE
  • Prompt: ^GMR(121,"ERROR",GMRPIFN),!
  • Line Location: EMERG+7
Function Call: WRITE
  • Prompt: !!,"Enter Yes if you're ready to start the conversion."
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !,"Press return or enter NO to stop this process."
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !!?5,"Enter YES to re-start/re-queue the conversion."
  • Line Location: HELP2+1
Function Call: WRITE
  • Prompt: !?5,"Press <ret> or enter NO to stop this option."
  • Line Location: HELP2+2
Function Call: WRITE
  • Prompt: !!?5,"The default is the next expected Internal File Number (IEN)"
  • Line Location: HELP3+1
Function Call: WRITE
  • Prompt: " for a note."
  • Line Location: HELP3+2
Function Call: WRITE
  • Prompt: !?5,"If another starting point is required, enter the IEN for that"
  • Line Location: HELP3+3
Function Call: WRITE
  • Prompt: " note."
  • Line Location: HELP3+4
Function Call: WRITE
  • Prompt: !?5,"Enter ""^"" to stop option without processing."
  • Line Location: HELP3+5
Function Call: WRITE
  • Prompt: !!?5,"Enter the Internal Entry Number (IEN) of the single Progress"
  • Line Location: HELP4+1
Function Call: WRITE
  • Prompt: !?5,"you wish to convert to TIU.",!
  • Line Location: HELP4+2
Routine Call
  • DIR
  • Line Location:
    • ENTRY+7
    • RESTART+7
    • ENINDY+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(121 RESTART+16*, ENINDY+4, ENINDY+5, EMERG+2, EMERG+5, EMERG+7
^TIU(8925.97 - [#8925.97] ENTRY+5, RESTART+4, RESTART+14*

Label References

Name Line Occurrences
ENINDY ENINDY+4, EMERG+2, KILINDY+3
KILINDY EMERG+5
PNDEVICE ENTRY+9, RESTART+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PNDEVICE+1~
BADREC KILINDY+1!
DIC ENTRY+1~
DIR RESTART+2!, RESTART+6!, ENINDY+1!, ENINDY+3!, KILINDY+1!
DIR("?" ENTRY+7*, RESTART+7*, ENINDY+3*
DIR("A" ENTRY+6*, RESTART+6*, ENINDY+2*
DIR("B" ENTRY+7*, RESTART+7*
DIR(0 ENTRY+6*, RESTART+6*, ENINDY+1*
>> DIRUT ENTRY+7, RESTART+7, ENINDY+3
DUZ ENTRY+2, ENTRY+3, REPORT+1, RESTART+10
>> EMER EMERG+2, EMERG+3, EMERG+8, KILINDY+2
ERRCTR REPORT+6, REPORT+7!
>> GMRPCTR REPORT+3, EMERG+1*
GMRPIFN EMERG+1*, EMERG+2!, EMERG+3, EMERG+5, EMERG+6, EMERG+7, EMERG+8, KILINDY+1!
>> GMRPST RESTART+12*, RESTART+13, RESTART+15*, RESTART+16
GMRPST1 RESTART+4*, RESTART+5!, RESTART+12
IOF RESTART+2, INDY+2
NEWNODE EMERG+3*, KILINDY+1!
>> RESTARTD RESTART+15*, RESTART+16
TIU ENTRY+4!, ENTRY+5!
TIU("DUZ" ENTRY+3*, RESTART+10*
TIU("INDY" EMERG+1*, EMERG+2!, KILINDY+1!
TIU("QUIT" ENTRY+4
TIUCTR REPORT+5, EMERG+1*, KILINDY+1!
>> TIUECS ENINDY+5*
TIUEND REPORT+5, REPORT+7!
>> TIUFPRIV INDY+1*
TIUQUEUE ENTRY+1~, ENTRY+8*, ENTRY+9
TIUSTRT REPORT+5, REPORT+7!
>> TIUUSER REPORT+1*, REPORT+2
U ENTRY+5, RESTART+4, RESTART+14, ENINDY+5
>> XMB REPORT+3*
>> XMB(1 REPORT+5*
>> XMB(2 REPORT+5*
>> XMB(3 REPORT+5*
>> XMB(4 REPORT+6*
>> XMDUZ REPORT+4*
>> XMTEXT REPORT+6*
>> XMY( REPORT+2*
>> Y ENTRY+7, RESTART+7, ENINDY+4, ENINDY+5, EMERG+1
ZTDESC PNDEVICE+1~, PNDEVICE+3*, RESTART+17*
ZTDTH PNDEVICE+1~
ZTIO PNDEVICE+1~, PNDEVICE+4*
ZTRTN PNDEVICE+1~, PNDEVICE+4*
ZTSAVE PNDEVICE+1~
ZTSAVE("GMRP*" PNDEVICE+2*
ZTSAVE("TIU*" PNDEVICE+2*
ZTSK PNDEVICE+1~, PNDEVICE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All