| [613] | 1 | AAQJIDOC ;FGO/JHS - Patch Documentation Inquire ;04-30-99 [10/23/02 5:18pm]
|
|---|
| 2 | ;;1.4;AAQJ PATCH RECORD;; May 14, 1999
|
|---|
| 3 | S U="^",DIC="^DIZ(437016,",DIC(0)="AEQM" D ^DIC W !
|
|---|
| 4 | S AAQJDA=+Y S AAQJPKG=$P(Y,U,2),AAQPKG=AAQJPKG G:Y=-1 EXIT
|
|---|
| 5 | S DIC="^DIZ(437016,AAQJDA,1,",DIC(0)="AEQM",DIC("A")="Select PATCH: "
|
|---|
| 6 | D ^DIC W ! I Y=-1 W $C(7),"No Patch selected. Exiting." G EXIT
|
|---|
| 7 | S DA=+Y S AAQJPAT=$P(Y,U,2) S AAQPAT=AAQJPAT
|
|---|
| 8 | EN Q:IOST["P-" D UCI^%ZOSV S AAQUCI=$P(Y,",",1),AAQU=AAQUCI K Y
|
|---|
| 9 | I AAQUCI="TST" W !!,"Patch Record Documentation is only available in VAH." G EXIT
|
|---|
| 10 | S DA=AAQDA S (AAQBLD,AAQCALL,AAQCMP,AAQDOC,AAQNODOC,AAQNOMSG)=0
|
|---|
| 11 | I $D(^DIZ(437016,AAQJDA,1,DA,4,0)) S AAQBLD=1 ;Build Notes
|
|---|
| 12 | I $D(^DIZ(437016,AAQJDA,1,DA,5,0)) S AAQDOC=1 ;Documentation
|
|---|
| 13 | I $D(^DIZ(437016,AAQJDA,1,DA,6,0)) S AAQCMP=1 ;Compare results
|
|---|
| 14 | S AAQNODOC=AAQBLD+AAQDOC+AAQCMP I AAQNODOC=0 W !,"There are no Documentation, Build, or Compare entries for this patch." G ASKMSG
|
|---|
| 15 | ASKDOC S %=2 W !,"Do you want to see related Patch Documentation" D YN^DICN G:%=2 ASKMSG I %=0 W !!,"Additional Patch Record Documentation, if available, can be displayed or printed if YES." G ASKDOC
|
|---|
| 16 | G:%=-1 ASKMSG
|
|---|
| 17 | W:AAQBLD=1 !,"Build Notes are available for this Patch."
|
|---|
| 18 | W:AAQDOC=1 !,"Documentation is available for this Patch."
|
|---|
| 19 | W:AAQCMP=1 !,"Routine Compare Results are available for this Patch."
|
|---|
| 20 | W !!,"Which document(s) to you want to see?"
|
|---|
| 21 | ASKX R !,"(B)uild Notes, (C)ompare Results ,(D)ocumentation, or (A)ll: D//",AAQX:DTIME S:AAQX="" AAQX="D" S AAQX=$E(AAQX,1)
|
|---|
| 22 | I AAQX?1L.E S AAQX=$$UP^XLFSTR(AAQX)
|
|---|
| 23 | G ASKMSG:(AAQX="^")!("ABCD"'[AAQX)
|
|---|
| 24 | I AAQX="A" D DOC,BLD,CMP G ASKMSG
|
|---|
| 25 | I AAQX="D" D DOC G ASKMSG
|
|---|
| 26 | I AAQX="B" D BLD G ASKMSG
|
|---|
| 27 | I AAQX="C" D CMP G ASKMSG
|
|---|
| 28 | ASKMSG S %=2 W !!,"Do you want to see the Patch MailMan Text" D YN^DICN G:%=1 GETMSG I %=0 W !!,"The PackMan Message Text, if available, can be displayed or printed if YES." G ASKMSG
|
|---|
| 29 | G:%=-1 EXIT
|
|---|
| 30 | I %=2 S AAQNOMSG=0 G EXIT
|
|---|
| 31 | GETMSG S AAQXMZ=$P($G(^DIZ(437016,AAQJDA,1,DA,0)),U,6) I (AAQXMZ="")!(AAQXMZ=0) D NOMSG G CKMSG
|
|---|
| 32 | S XMDUN=$P(^VA(200,DUZ,0),U) D MSG G EXIT
|
|---|
| 33 | DOC S AAQEDT=$P($G(^DIZ(437016,AAQJDA,1,DA,3)),U,5),AAQEBY=$P($G(^DIZ(437016,AAQJDA,1,DA,3)),U,6)
|
|---|
| 34 | Q:AAQDOC=0 S AAQDESC="{Documentation Field}",AAQTYP=5 D LIST Q
|
|---|
| 35 | BLD S AAQEDT=$P($G(^DIZ(437016,AAQJDA,1,DA,3)),U,3),AAQEBY=$P($G(^DIZ(437016,AAQJDA,1,DA,3)),U,4)
|
|---|
| 36 | Q:AAQBLD=0 S AAQDESC="{Build Notes Field}",AAQTYP=4 D LIST Q
|
|---|
| 37 | CMP S AAQEDT=$P($G(^DIZ(437016,AAQJDA,1,DA,3)),U,7),AAQEBY=$P($G(^DIZ(437016,AAQJDA,1,DA,3)),U,8)
|
|---|
| 38 | Q:AAQCMP=0 S AAQDESC="{Compare Results Field}",AAQTYP=6 D LIST Q
|
|---|
| 39 | LIST Q:'$D(^DIZ(437016,AAQJDA,1,DA,AAQTYP,0))
|
|---|
| 40 | W @IOF,AAQDESC,! K ^UTILITY($J,"W") S DIWL=1,DIWR=75,DIWF="N"
|
|---|
| 41 | F N1=0:0 S N1=$O(^DIZ(437016,AAQJDA,1,DA,AAQTYP,N1)) Q:N1'>0 S X=^DIZ(437016,AAQJDA,1,DA,AAQTYP,N1,0) D ^DIWP
|
|---|
| 42 | F N1=0:0 S N1=$O(^UTILITY($J,"W",DIWL,N1)) Q:N1'>0 D
|
|---|
| 43 | .W !,?3,^UTILITY($J,"W",DIWL,N1,0)
|
|---|
| 44 | .I $Y>(IOSL-5) D:$E(IOST)="C" PAUSE
|
|---|
| 45 | .Q
|
|---|
| 46 | W:AAQEDT'="" !,?35,"Last Edited: ",$$FMTE^XLFDT(AAQEDT,"1M")
|
|---|
| 47 | W:AAQEBY'="" !,?37,"Edited By: ",$P(^VA(200,AAQEBY,0),U,1)
|
|---|
| 48 | PAUSE R !!,"Press RETURN to Continue: ",AAQX:20
|
|---|
| 49 | W @IOF Q
|
|---|
| 50 | MSG I '$D(^XMB(3.9,AAQXMZ,0)) D NOMSG G EXIT
|
|---|
| 51 | S AAQDESC="{MailMan Message}" W @IOF,AAQDESC
|
|---|
| 52 | S AAQSUB=$$SUBGET^XMGAPI0(AAQXMZ) W !!,"Subject: ",AAQSUB,!
|
|---|
| 53 | S XMZ=AAQXMZ D XT^XMP2 Q
|
|---|
| 54 | NOMSG S AAQNOMSG=0 W !!,"Sorry. The Mailman message for this patch is not available." Q
|
|---|
| 55 | CKMSG ;Try message lookup. If found, update Patch Record and display.
|
|---|
| 56 | I AAQJPAT["S" W !!,AAQJPKG_"*"_AAQJPAT," is a Support Patch and the automatic message lookup",!,"cannot be used. If the message number is available, it can be",!,"entered using 'Documentation, Notes, Message Entry'." G EXIT
|
|---|
| 57 | S AAQCALL=1,AAQP=AAQPKG_"*"_AAQPAT D CKDBA^XPDZPRE G:'$D(AAQSUB) EXIT
|
|---|
| 58 | I $D(AAQXMZ) W !,"Message #"_AAQXMZ_" found." S AAQNOMSG=1 H 2
|
|---|
| 59 | E W !,"Message not found." G EXIT
|
|---|
| 60 | S DA(1)=AAQJDA,DIC="^DIZ(437016,"_DA(1)_",1,"
|
|---|
| 61 | K DD,D0 S DIE=DIC,DA=AAQDA,DR="1.43///^S X=AAQXMZ" D ^DIE
|
|---|
| 62 | KUPDT K AAQBX,AAQCALL,AAQLN2,AAQLN3,AAQP,AAQP1,AAQP2,AAQP3,AAQPRE,AAQPX,AAQX1,AAQX12,AAQX2
|
|---|
| 63 | G:AAQXMZ'="" MSG
|
|---|
| 64 | EXIT K %,%Y,AAQBLD,AAQCMP,AAQDESC,AAQDOC,AAQEBY,AAQEDT,AAQSUB,AAQTYP,AAQX,AAQXMZ
|
|---|
| 65 | ; AAQDA Killed by EXITA^AAQJPINQ
|
|---|
| 66 | K DA,DIC,DIE,DIF,DIR,DIW,DIWF,DIWI,DIWL,DIWR,DIWT,DIWTC,DIWX,I,J,N1,POP,X,XCF,XCN,XMZ,Y,Z Q ;XMDUZ,XMDUN not killed, needed by TOP^XMPC
|
|---|
| 67 | EXITK K AAQBX,AAQCALL,AAQJDA,AAQJPAT,AAQJPKG,AAQLN3,AAQNODOC,AAQNOMSG,AAQP,AAQP1,AAQP12,AAQP2,AAQP3,AAQPAT,AAQPKG,AAQPRE,AAQPX,AAQRL,AAQSUBX,AAQTST,AAQTSW,AAQU,AAQUCI,AAQX1,AAQX12,AAQX2,AAQX3,AAQXM,DR Q
|
|---|
