- SCCVCST ;ALB/TMP - Scheduling Conversion Template Utilities - CST; NOV 25, 1997
- ;;5.3;Scheduling;**211,1015**;Aug 13, 1993;Build 21
- ;
- NEW ; -- Add a new 'CST' Template entry
- D FULL^VALM1
- N DA,DD,DIC,DIE,DR,DIK,DIR,DO,SC,SCADD,SCCV,SCCV0,SCRESULT,X,Y
- ;
- ; -- make sure earilest date is set
- IF '$G(^SD(404.91,1,"CNV")) D G NEWQ
- . W !!,">>> You must set the 'Earlieat Encounter Date' parameter before"
- . W !," a template can be added."
- . W !!," Please use the 'Display/Edit Parameters' action to set this parameter."
- . D PAUSE^SCCVU
- ;
- I $G(SCCVDONE) D DONE^SCCVCST1 G NEWQ
- S DIC="^SD(404.98,",DIC("DR")="[SCCV CREATE TEMPLATE]",DIC(0)="LZ",X=$O(^SD(404.98,"A"),-1)+1 D FILE^DICN K DIC,DD,DO I Y<0 S SCRESULT=""
- I Y>0 D
- . S SCCV=+Y,SCCV0=Y(0)
- . K SC
- . S SC("STARTDT")=$P(SCCV0,U,3),SC("ENDDT")=$P(SCCV0,U,4)
- . D CHKDT^SCCVU1(.SCRESULT,.SC,"CST") ;validate date
- . Q:$G(SCRESULT)
- . S SC("TYPE")=$P(SCCV0,U,2),SC("TEMPLNO")=SCCV
- . D CHKDUP^SCCVU1(.SCRESULT,.SC,"CST")
- . Q:$G(SCRESULT)
- . W !!,"*** Template #",SCCV," has been added. [Date Range: ",$$FMTE^XLFDT(SC("STARTDT"),"5ZD")," - ",$$FMTE^XLFDT(SC("ENDDT"),"5ZD"),"]",!
- . F S DIR(0)="SA^0:Estimate;1:Convert",DIR("A")="Event: ",DIR("B")="Estimate" D ^DIR K DIR Q:X'="" W !,*7,"This is a required field!!"
- . I Y'?1N S SCRESULT="^'Event' is required ... Template entry deleted" Q
- . K SC S SC(.05)=+Y
- . D UPD^SCCVDBU(404.98,SCCV,.SC,.SCRESULT)
- . Q:$P($G(SCRESULT),U,2)'=""
- . S SCADD=1
- I $P(SCRESULT,U,2)'="" D ERR(SCRESULT,SCCV) G:SCRESULT NEWQ
- I $G(SCADD) D
- .S DIR(0)="YA",DIR("A")="Do you want to schedule this event to run? ",DIR("B")="YES" D ^DIR K DIR
- .I Y S SCCVDA=SCCV D REQ^SCCVCST1(0,$G(SCCVSCRN),1)
- .D BLD^SCCVDSP("CST")
- NEWQ S VALMBCK="R"
- Q
- ;
- VIEW ; -- Expand conversion Template
- N SCCVX,VALMY,SCCVDA
- D SELX^SCCVDSP("CST")
- I $G(SCCVDA) D EN^VALM("SCCV CONV EXPAND")
- D BLD^SCCVDSP("CST")
- S VALMBCK="R"
- Q
- ;
- ERR(SCRESULT,SCCV) ; -- Process error
- N DA,DIR,DIK,X,Y
- W !!,$P(SCRESULT,U,2),!
- I SCCV S DIK="^SD(404.98,",DA=SCCV D ^DIK
- S DIR(0)="EA",DIR("A")="Press RETURN to continue " S:$P(SCRESULT,U,2)="" DIR("A",1)="You have encountered an error" D ^DIR K DIR
- Q
- ;
- SCCVCST ;ALB/TMP - Scheduling Conversion Template Utilities - CST; NOV 25, 1997
- +1 ;;5.3;Scheduling;**211,1015**;Aug 13, 1993;Build 21
- +2 ;
- NEW ; -- Add a new 'CST' Template entry
- +1 DO FULL^VALM1
- +2 NEW DA,DD,DIC,DIE,DR,DIK,DIR,DO,SC,SCADD,SCCV,SCCV0,SCRESULT,X,Y
- +3 ;
- +4 ; -- make sure earilest date is set
- +5 IF '$GET(^SD(404.91,1,"CNV"))
- Begin DoDot:1
- +6 WRITE !!,">>> You must set the 'Earlieat Encounter Date' parameter before"
- +7 WRITE !," a template can be added."
- +8 WRITE !!," Please use the 'Display/Edit Parameters' action to set this parameter."
- +9 DO PAUSE^SCCVU
- End DoDot:1
- GOTO NEWQ
- +10 ;
- +11 IF $GET(SCCVDONE)
- DO DONE^SCCVCST1
- GOTO NEWQ
- +12 SET DIC="^SD(404.98,"
- SET DIC("DR")="[SCCV CREATE TEMPLATE]"
- SET DIC(0)="LZ"
- SET X=$ORDER(^SD(404.98,"A"),-1)+1
- DO FILE^DICN
- KILL DIC,DD,DO
- IF Y<0
- SET SCRESULT=""
- +13 IF Y>0
- Begin DoDot:1
- +14 SET SCCV=+Y
- SET SCCV0=Y(0)
- +15 KILL SC
- +16 SET SC("STARTDT")=$PIECE(SCCV0,U,3)
- SET SC("ENDDT")=$PIECE(SCCV0,U,4)
- +17 ;validate date
- DO CHKDT^SCCVU1(.SCRESULT,.SC,"CST")
- +18 IF $GET(SCRESULT)
- QUIT
- +19 SET SC("TYPE")=$PIECE(SCCV0,U,2)
- SET SC("TEMPLNO")=SCCV
- +20 DO CHKDUP^SCCVU1(.SCRESULT,.SC,"CST")
- +21 IF $GET(SCRESULT)
- QUIT
- +22 WRITE !!,"*** Template #",SCCV," has been added. [Date Range: ",$$FMTE^XLFDT(SC("STARTDT"),"5ZD")," - ",$$FMTE^XLFDT(SC("ENDDT"),"5ZD"),"]",!
- +23 FOR
- SET DIR(0)="SA^0:Estimate;1:Convert"
- SET DIR("A")="Event: "
- SET DIR("B")="Estimate"
- DO ^DIR
- KILL DIR
- IF X'=""
- QUIT
- WRITE !,*7,"This is a required field!!"
- +24 IF Y'?1N
- SET SCRESULT="^'Event' is required ... Template entry deleted"
- QUIT
- +25 KILL SC
- SET SC(.05)=+Y
- +26 DO UPD^SCCVDBU(404.98,SCCV,.SC,.SCRESULT)
- +27 IF $PIECE($GET(SCRESULT),U,2)'=""
- QUIT
- +28 SET SCADD=1
- End DoDot:1
- +29 IF $PIECE(SCRESULT,U,2)'=""
- DO ERR(SCRESULT,SCCV)
- IF SCRESULT
- GOTO NEWQ
- +30 IF $GET(SCADD)
- Begin DoDot:1
- +31 SET DIR(0)="YA"
- SET DIR("A")="Do you want to schedule this event to run? "
- SET DIR("B")="YES"
- DO ^DIR
- KILL DIR
- +32 IF Y
- SET SCCVDA=SCCV
- DO REQ^SCCVCST1(0,$GET(SCCVSCRN),1)
- +33 DO BLD^SCCVDSP("CST")
- End DoDot:1
- NEWQ SET VALMBCK="R"
- +1 QUIT
- +2 ;
- VIEW ; -- Expand conversion Template
- +1 NEW SCCVX,VALMY,SCCVDA
- +2 DO SELX^SCCVDSP("CST")
- +3 IF $GET(SCCVDA)
- DO EN^VALM("SCCV CONV EXPAND")
- +4 DO BLD^SCCVDSP("CST")
- +5 SET VALMBCK="R"
- +6 QUIT
- +7 ;
- ERR(SCRESULT,SCCV) ; -- Process error
- +1 NEW DA,DIR,DIK,X,Y
- +2 WRITE !!,$PIECE(SCRESULT,U,2),!
- +3 IF SCCV
- SET DIK="^SD(404.98,"
- SET DA=SCCV
- DO ^DIK
- +4 SET DIR(0)="EA"
- SET DIR("A")="Press RETURN to continue "
- IF $PIECE(SCRESULT,U,2)=""
- SET DIR("A",1)="You have encountered an error"
- DO ^DIR
- KILL DIR
- +5 QUIT
- +6 ;
