source: WorldVistAEHR/trunk/r/PATCH_MANAGEMNT-AAQ/AAQJIDOC.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.4 KB
Line 
1AAQJIDOC ;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
8EN 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
15ASKDOC 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?"
21ASKX 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
28ASKMSG 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
31GETMSG 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
33DOC 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
35BLD 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
37CMP 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
39LIST 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)
48PAUSE R !!,"Press RETURN to Continue: ",AAQX:20
49 W @IOF Q
50MSG 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
54NOMSG S AAQNOMSG=0 W !!,"Sorry. The Mailman message for this patch is not available." Q
55CKMSG ;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
62KUPDT K AAQBX,AAQCALL,AAQLN2,AAQLN3,AAQP,AAQP1,AAQP2,AAQP3,AAQPRE,AAQPX,AAQX1,AAQX12,AAQX2
63 G:AAQXMZ'="" MSG
64EXIT 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
67EXITK 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
Note: See TracBrowser for help on using the repository browser.