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

Package: Automated Information Collection System

Routine: IBDFC


Information

IBDFC ;ALB/CJM - ENCOUNTER FORM - CONVERSION UTILTY ;FEB 30,1995

Source Information

Source file <IBDFC.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Automated Information Collection System 7 FORM^IBDF2A  $$CONVERT^IBDFC2  ($$ASKAUTO,$$ASKOTH)^IBDFC2B  $$PADRIGHT^IBDFU  $$SLCTFORM^IBDFU4  PAUSE^IBDFU5  DEVICE^IBDFUA  
Kernel 5 ^%ZIS  ^%ZISC  KILL^%ZISS  ^%ZTLOAD  DISP^XQORM1  
List Manager 4 EN^VALM  FULL^VALM1  FLDCTRL^VALM10  EN^VALM2  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Automated Information Collection System 5 IBDFC ADD FORM TO LIST  IBDFC CONVERSION UTILITY  IBDFC CONVERT LISTED FORMS  IBDFC REMOVE FORM FROM LIST  IBDFC1  
Kernel 2 ^DIC(19  ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
FORMLIST ;
ONENTRY ;
ONEXIT ;
HDR ;
REMOVE ;allows user to select a form, then deletes it
ADDONE ;adds a single form to the list for conversion
DISPLAY(IDX,FORM) ;
CNVTLIST ;
DEVICE ;
QUEUE
PRINT ;
VALMSG ;
HELP ;

External References

Name Field # of Occurrence
^%ZIS DEVICE+5
^%ZISC CNVTLIST+18
KILL^%ZISS ONEXIT+1
^%ZTLOAD QUEUE
^DIR CNVTLIST+10
FORM^IBDF2A PRINT+1
$$CONVERT^IBDFC2 CNVTLIST+17
$$ASKAUTO^IBDFC2B CNVTLIST+15
$$ASKOTH^IBDFC2B CNVTLIST+14
$$PADRIGHT^IBDFU DISPLAY+4
$$SLCTFORM^IBDFU4 ADDONE+4
PAUSE^IBDFU5 ADDONE+5, ADDONE+11, ADDONE+13, CNVTLIST+6
DEVICE^IBDFUA FORMLIST+4
EN^VALM FORMLIST+7
FULL^VALM1 CNVTLIST+4, HELP+1
FLDCTRL^VALM10 DISPLAY+4
EN^VALM2 REMOVE+3
DISP^XQORM1 HELP+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This form is already a version "_$P(NODE,"^",17)_" form!"
  • Line Location: ADDONE+5
Function Call: WRITE
  • Prompt: !,"This form previously converted, new form name = "_$P($G(^IBE(357,PREV,0)),"^")
  • Line Location: ADDONE+10
Function Call: WRITE
  • Prompt: !!,"Form Name "_"CNV."_$E($P(NODE,"^"),1,41)_" already exists. Form must be renamed first!"
  • Line Location: ADDONE+11
Function Call: WRITE
  • Prompt: !!,"No forms on List to convert!"
  • Line Location: CNVTLIST+6
Function Call: WRITE
  • Prompt: !!,"Each form on the list will be made scannable. However, the results should be",!,"carefully reviewed before putting the form into use.",!
  • Line Location: CNVTLIST+8
Function Call: WRITE
  • Prompt: !,"** You must queue the form to print. **"
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,$C(7),"** Forms require 132 columns and a page length of 80 lines. **",!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: QUEUE+0
Function Call: WRITE
  • Prompt: !!,"To convert a form follow the following steps:"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," 1. Use 'Add Form to List' to select the form. Add all the forms to"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !," the list you wish to at this time."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !," 2. Use 'Convert List' to convert the forms."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," 3. Use 'View Conversion Log' to review the conversion process and "
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !," assign the converted form to a clinic.",!
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !,"Hint: The conversion creates a new copy of your form with the same name"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !," as the original but prefixed with 'CNV.'. (i.e. form PRIM CARE"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !," would be renamed CNV.PRIM CARE)"
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+11
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+5
Routine Call
  • DIR
  • Line Location:
    • CNVTLIST+10
Routine Call
  • VALM
  • Line Location:
    • FORMLIST+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBD(359 - [#359] HDR+2, ADDONE+8, ADDONE+9, VALMSG+1, VALMSG+2
^IBE(357 - [#357] ADDONE+10, ADDONE+11, DISPLAY+2
^TMP("IB" ONEXIT+2!
^TMP("IBDF" ONEXIT+2!

Label References

Name Line Occurrences
DEVICE CNVTLIST+12
DISPLAY REMOVE+12, ADDONE+15
QUEUE CNVTLIST+17
VALMSG FORMLIST+6, REMOVE+14, ADDONE+5, ADDONE+12, ADDONE+16, CNVTLIST+6, CNVTLIST+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%IS DEVICE+5!
%ZIS DEVICE+5!*
%ZIS("A" DEVICE+5*
%ZIS("B" DEVICE+5*
%ZIS("S" DEVICE+5*
CNV ADDONE+1~, ADDONE+8*, ADDONE+9
CNVNM ADDONE+1~
D0 ONEXIT+2!
DA ONEXIT+2!
DIR REMOVE+2!, CNVTLIST+1~, CNVTLIST+9!, CNVTLIST+10!
DIR("A" CNVTLIST+9*
DIR("B" CNVTLIST+9*
DIR(0 CNVTLIST+9*
DIRUT CNVTLIST+1~, CNVTLIST+10
DTOUT CNVTLIST+1~
DUOUT CNVTLIST+1~
FORM REMOVE+1~, REMOVE+9*, REMOVE+12, ADDONE+1~, ADDONE+4*, ADDONE+8, ADDONE+15, DISPLAY~, DISPLAY+2, DISPLAY+4
I ONEXIT+2!
>> IBDASK("ADDOTHER" CNVTLIST+14*
>> IBDASK("AUTOCHG" CNVTLIST+15*
IBDEVICE FORMLIST+1~, FORMLIST+4
IBFASTXT FORMLIST+2~, FORMLIST+3*
IBFORM CNVTLIST+1~, CNVTLIST+17*, PRINT+1
IBQUIT ONEXIT+2!, ADDONE+1~, ADDONE+2*, ADDONE+10*, ADDONE+13
IDX DISPLAY~, DISPLAY+4, CNVTLIST+1~, CNVTLIST+17*
IOP DEVICE+5!
LAST REMOVE+1~, REMOVE+7*, REMOVE+8, REMOVE+9, REMOVE+10
NODE ADDONE+1~, ADDONE+2*, ADDONE+4, ADDONE+5, ADDONE+11, DISPLAY+1~, DISPLAY+2*, DISPLAY+4
>> POP DEVICE+6
PREV ADDONE+1~, ADDONE+9*, ADDONE+10
PRINT CNVTLIST+1~, CNVTLIST+2*, CNVTLIST+11*, CNVTLIST+17, CNVTLIST+18
QUIT CNVTLIST+1~, CNVTLIST+2*, CNVTLIST+10, DEVICE+6*
SEL REMOVE+1~, REMOVE+4*, REMOVE+5, REMOVE+7, REMOVE+12
>> VALMAR ONENTRY+1, REMOVE+5, REMOVE+9, REMOVE+10, DISPLAY+4, CNVTLIST+6, CNVTLIST+17, CNVTLIST+19
VALMBCK ONEXIT+2!, REMOVE+15*, ADDONE+3*, CNVTLIST+3*
>> VALMCNT ONENTRY+1*, REMOVE+7, REMOVE+11*, REMOVE+13*, ADDONE+15, DISPLAY+3*
VALMEVL FORMLIST+5!
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*
>> VALMSG VALMSG+1*, VALMSG+2*
VALMY ONEXIT+2!
VALMY("" REMOVE+4
X ONEXIT+2!, HELP+11*
>> XQORNOD(0 REMOVE+3
XQORS FORMLIST+5!
Y ONEXIT+2!, CNVTLIST+10
>> ZTDESC QUEUE*
>> ZTDTH QUEUE*
>> ZTRTN QUEUE*
>> ZTSAVE("IBFORM" QUEUE*
>> ZTSK QUEUE
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All