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
Print Page as PDF
Routine: XPDDP1

Package: Kernel

Routine: XPDDP1


Information

XPDDP1 ;SFISC/RSD - Continue Display a package ;06/24/2008

Source Information

Source file <XPDDP1.m>

Entry Points

Name Comments DBIA/ICR reference
PNT(XPDGR) ; Print a package, XPDGR=global root
ID ; Identify the package
DESCR ; Show patch description
PREPOST ; Environment check and pre/post routines
FILES ; Show files/DDs
COMP ; Print Build components
QUESTS ; Show Install Questions
ALFABETA ; Alpha/Beta Testing
NAMESP ; Namespaces
REQDBLD ; Required Builds
GLOBAL ; Global Package
MULT ; Multi-Package
CHK(Y,XPD) ;Y=excess lines XPD=1 print file header, return 1 to exit
CONT() ; Press Return to continue; ^ to exit.
HDR ;
HDR1 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: ID+2
Function Call: WRITE
  • Prompt: !,XPDUL
  • Line Location: ID+2
Function Call: WRITE
  • Prompt: !?12,"TYPE: ",$$EXTERNAL^DILFD(9.6,2,"",XPDTYPE)
  • Line Location: ID+3
Function Call: WRITE
  • Prompt: ?51,"TRACK NATIONALLY: ",$$EXTERNAL^DILFD(9.6,5,"",XPDTRACK)
  • Line Location: ID+4
Function Call: WRITE
  • Prompt: !,"NATIONAL PACKAGE: ",$P($G(^DIC(9.4,+$P(XPD0,U,2),0),$P(XPD0,U,2)),U)
  • Line Location: ID+5
Function Call: WRITE
  • Prompt: ?49,"ALPHA/BETA TESTING: ",$S($P($G(@XPDGR@("ABPKG")),U)="y":"YES",1:"NO")
  • Line Location: ID+6
Function Call: WRITE
  • Prompt: !,"DATE DISTRIBUTED: ",$$FMTE^XLFDT($P(XPD0,U,4))
  • Line Location: ID+7
Function Call: WRITE
  • Prompt: !!?5,"DESCRIPTION:"
  • Line Location: DESCR+1
Function Call: WRITE
  • Prompt: !,$S(IOM>1:$E(XPDTXT,1,IOM-1),1:XPDTXT)
  • Line Location: DESCR+7
Function Call: WRITE
  • Prompt: !!,"ENVIRONMENT CHECK: ",$G(@XPDGR@("PRE"))
  • Line Location: PREPOST+2
Function Call: WRITE
  • Prompt: ?49,"DELETE ENV ROUTINE: "
  • Line Location: PREPOST+3
Function Call: WRITE
  • Prompt: $S($P($G(@XPDGR@("INID")),U)="y":"Yes",1:"No")
  • Line Location: PREPOST+3
Function Call: WRITE
  • Prompt: !," PRE-INIT ROUTINE: ",$G(@XPDGR@("INI"))
  • Line Location: PREPOST+6
Function Call: WRITE
  • Prompt: ?44,"DELETE PRE-INIT ROUTINE: "
  • Line Location: PREPOST+7
Function Call: WRITE
  • Prompt: $S($P($G(@XPDGR@("INID")),U,3)="y":"Yes",1:"No")
  • Line Location: PREPOST+7
Function Call: WRITE
  • Prompt: !,"POST-INIT ROUTINE: ",$G(@XPDGR@("INIT"))
  • Line Location: PREPOST+9
Function Call: WRITE
  • Prompt: ?43,"DELETE POST-INIT ROUTINE: "
  • Line Location: PREPOST+10
Function Call: WRITE
  • Prompt: $S($P($G(@XPDGR@("INID")),U,2)="y":"Yes",1:"No")
  • Line Location: PREPOST+10
Function Call: WRITE
  • Prompt: !,"PRE-TRANSPORT RTN: ",$G(@XPDGR@("PRET"))
  • Line Location: PREPOST+11
Function Call: WRITE
  • Prompt: !," RESTORE ROUTINE: ",$G(@XPDGR@("REST"))
  • Line Location: PREPOST+12
Function Call: WRITE
  • Prompt: !,XPDUL
  • Line Location: FILES+2
Function Call: WRITE
  • Prompt: ?43,$$EXTERNAL^DILFD(9.64,222.1,"",$P(XPD,U)),?49,$$EXTERNAL^DILFD(9.64,222.2,"",$P(XPD,U,2)),?55,$$EXTERNAL^DILFD(9.64,222.7,"",$P(XPD,U,7))
  • Line Location: FILES+8
Function Call: WRITE
  • Prompt: ?63,$E($$EXTERNAL^DILFD(9.64,222.8,"",$P(XPD,U,8)),1,4),?69,$$EXTERNAL^DILFD(9.64,222.5,"",$P(XPD,U,5)),?75,$$EXTERNAL^DILFD(9.64,222.9,"",$P(XPD,U,9))
  • Line Location: FILES+10
Function Call: WRITE
  • Prompt: !,"Partial DD:"
  • Line Location: FILES+15
Function Call: WRITE
  • Prompt: !
  • Line Location: FILES+18
Function Call: WRITE
  • Prompt: ?12,"subDD: ",J
  • Line Location: FILES+19
Function Call: WRITE
  • Prompt: !
  • Line Location: FILES+22
Function Call: WRITE
  • Prompt: ?30,"fld: ",I
  • Line Location: FILES+23
Function Call: WRITE
  • Prompt: !,?2,"DD SCREEN : ",^(223)
  • Line Location: FILES+24
Function Call: WRITE
  • Prompt: !,?2,"DATA SCREEN: ",^(224)
  • Line Location: FILES+25
Function Call: WRITE
  • Prompt: !!,$S($D(^DIC(I,0)):$P(^(0),U),XPDFL:$G(^XTMP("XPDI",XPDA,"FIA",I),"UNKNOWN"),1:"UNKNOWN")_":",?47,"ACTION:"
  • Line Location: COMP+5
Function Call: WRITE
  • Prompt: !,?3,$P(X,U),?50,$P($P(XPD,";",$P(X,U,3)+1),":",2)
  • Line Location: COMP+12
Function Call: WRITE
  • Prompt: !!,"INSTALL QUESTIONS: "
  • Line Location: QUESTS+3
Function Call: WRITE
  • Prompt: !!?5,"SUBSCRIPT: ",X
  • Line Location: QUESTS+7
Function Call: WRITE
  • Prompt: !,"DIR(0)=",J
  • Line Location: QUESTS+8
Function Call: WRITE
  • Prompt: !,"DIR(""A"",",J,")=",^(J,0)
  • Line Location: QUESTS+10
Function Call: WRITE
  • Prompt: !,"DIR(""A"")=",K
  • Line Location: QUESTS+11
Function Call: WRITE
  • Prompt: !,"DIR(""B"")=",^("B")
  • Line Location: QUESTS+12
Function Call: WRITE
  • Prompt: !,"DIR(""?"",",J,")=",^(J,0)
  • Line Location: QUESTS+14
Function Call: WRITE
  • Prompt: !,"DIR(""?"")=",^("Q")
  • Line Location: QUESTS+15
Function Call: WRITE
  • Prompt: !,"DIR(""??"")=",^("QQ")
  • Line Location: QUESTS+16
Function Call: WRITE
  • Prompt: !,"M CODE: ",^("M")
  • Line Location: QUESTS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: QUESTS+22
Function Call: WRITE
  • Prompt: !," Default Rebuild Menu Trees Upon Completion of Install: ",$P(X,U,9)
  • Line Location: QUESTS+23
Function Call: WRITE
  • Prompt: !," Default INHIBIT LOGONs during the install: ",$P(X,U,5)
  • Line Location: QUESTS+24
Function Call: WRITE
  • Prompt: !," Default DISABLE Scheduled Options, Menu Options, and Protocols: ",$P(X,U,11)
  • Line Location: QUESTS+25
Function Call: WRITE
  • Prompt: !!,"ALPHA/BETA TESTING: ",$$EXTERNAL^DILFD(9.6,20,"",$P(XPD,U)),?47,"INSTALLATION MESSAGE: ",$$EXTERNAL^DILFD(9.6,21,"",$P(XPD,U,2))
  • Line Location: ALFABETA+4
Function Call: WRITE
  • Prompt: !,"ADDRESS: ",$P(XPD,U,3)
  • Line Location: ALFABETA+5
Function Call: WRITE
  • Prompt: !!,"INCLUDE NAMESPACE:",?47,"EXCLUDE NAMESPACE:"
  • Line Location: NAMESP+3
Function Call: WRITE
  • Prompt: !?3,^(I,0)
  • Line Location: NAMESP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NAMESP+9
Function Call: WRITE
  • Prompt: ?50,XPDNMSP
  • Line Location: NAMESP+10
Function Call: WRITE
  • Prompt: !!,"REQUIRED BUILDS:",?47,"ACTION:"
  • Line Location: REQDBLD+3
Function Call: WRITE
  • Prompt: !?3,$P(XPD,U),?50,$$EXTERNAL^DILFD(9.611,1,"",$P(XPD,U,2))
  • Line Location: REQDBLD+6
Function Call: WRITE
  • Prompt: !!,"GLOBAL:",?47,"KILL GLOBAL BEFORE INSTALL:"
  • Line Location: GLOBAL+2
Function Call: WRITE
  • Prompt: !?3,$P(XPD,U),?50,$$EXTERNAL^DILFD(9.65,1,"",$P(XPD,U,2))
  • Line Location: GLOBAL+5
Function Call: WRITE
  • Prompt: !!,"SEQUENCE OF BUILDS:"
  • Line Location: MULT+2
Function Call: WRITE
  • Prompt: !?2,XPDI,?8,$E($P(XPD,U),1,44),?54,$S($P(XPD,U,2)=1:"",1:"Not ")_"Required to Continue"
  • Line Location: MULT+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !,XPDUL
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: "PACKAGE: ",$P(XPD0,U)," ",XPDDT,?70,$$RJ^XLFSTR("PAGE "_XPDPG,9)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,?43,"UP SEND DATA USER"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,?43,"DATE SEC. COMES SITE RSLV OVER"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"FILE #",?12,"FILE NAME",?43,"DD CODE W/FILE DATA PTRS RIDE"
  • Line Location: HDR1+3
Info |  Source |  Entry Points |  Interaction Calls