- APCLRPT ; IHS/CMI/LAB - INTERACTIVE ROUTINE FOR DATA FETCHER ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;
- CREATE ; - ENTRY POINT - from menu option to create report template
- S DIR(0)="FO^3:30",DIR("A")="ENTER THE NAME OF A NEW REPORT TEMPLATE",DIR("?",1)="Enter a name, 3-30 characters long for a report template. This option for",DIR("?")="creation of new report templates only." D ^DIR K DIR
- I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT)!(X="") Q
- S APCLA=0 F S APCLA=$O(^APCLRPT("B",X,APCLA)) Q:'APCLA I $P(^APCLRPT(APCLA,0),U,2)=DUZ W !,*7,"This option for creation of new report templates only!",! Q
- G:APCLA CREATE
- S DIC="^APCLRPT(",DIC("DR")=".02////"_DUZ,DIC(0)="EL",DIADD=1,DLAYGO=9001200 D ^DIC K DIC,DIADD
- I Y>0 S APCLRPT=+Y D DATA
- E W !,*7 Q
- K APCLA
- W ! G CREATE
- Q
- ;
- EDIT ; - ENTRY POINT - from menu option to modify/delete report template
- S DIC="^APCLRPT(",DIC(0)="AEMQ" D ^DIC K DIC
- I Y>0 S APCLRPT=+Y
- E Q
- D DATA
- W ! G EDIT
- Q
- ;
- DATA ; Enter or edit field values
- S DR=".01;1101;2101;3101",DR(2,9001200.03101)=".01;1101;2101",DA=APCLRPT,DIE="^APCLRPT(" D ^DIE K DIE,DR
- K APCLRPT
- Q
- ;
- PRINT ; - ENTRY POINT - for print option from report template menu
- ;S DIC="^APCLRPT(",DIC(0)="AEMQ",DIC("S")="I $P(^(0),U,2)=DUZ" D ^DIC K DIC
- S DIC="^APCLRPT(",DIC(0)="AEMQ" D ^DIC K DIC ;FORGET THE SCREEN IHS/OKCAO/POC 4/20/97
- I Y>0 S APCLRPT=+Y
- E Q
- D START1^APCLASK(APCLRPT)
- K APCLRPT
- Q
- ;
- APCLRPT ; IHS/CMI/LAB - INTERACTIVE ROUTINE FOR DATA FETCHER ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;
- CREATE ; - ENTRY POINT - from menu option to create report template
- +1 SET DIR(0)="FO^3:30"
- SET DIR("A")="ENTER THE NAME OF A NEW REPORT TEMPLATE"
- SET DIR("?",1)="Enter a name, 3-30 characters long for a report template. This option for"
- SET DIR("?")="creation of new report templates only."
- DO ^DIR
- KILL DIR
- +2 IF $DATA">DATA">DATA">DATA">DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA">DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA">DATA">DATA">DATA">DATA(DIRUT)!$DATA">DATA">DATA">DATA">DATA">DATA">DATA">DATA(DIROUT)!(X="")
- QUIT
- +3 SET APCLA=0
- FOR
- SET APCLA=$ORDER(^APCLRPT("B",X,APCLA))
- IF 'APCLA
- QUIT
- IF $PIECE(^APCLRPT(APCLA,0),U,2)=DUZ
- WRITE !,*7,"This option for creation of new report templates only!",!
- QUIT
- +4 IF APCLA
- GOTO CREATE
- +5 SET DIC="^APCLRPT("
- SET DIC("DR")=".02////"_DUZ
- SET DIC(0)="EL"
- SET DIADD=1
- SET DLAYGO=9001200
- DO ^DIC
- KILL DIC,DIADD
- +6 IF Y>0
- SET APCLRPT=+Y
- DO DATA
- +7 IF '$TEST
- WRITE !,*7
- QUIT
- +8 KILL APCLA
- +9 WRITE !
- GOTO CREATE
- +10 QUIT
- +11 ;
- EDIT ; - ENTRY POINT - from menu option to modify/delete report template
- +1 SET DIC="^APCLRPT("
- SET DIC(0)="AEMQ"
- DO ^DIC
- KILL DIC
- +2 IF Y>0
- SET APCLRPT=+Y
- +3 IF '$TEST
- QUIT
- +4 DO DATA
- +5 WRITE !
- GOTO EDIT
- +6 QUIT
- +7 ;
- DATA ; Enter or edit field values
- +1 SET DR=".01;1101;2101;3101"
- SET DR(2,9001200.03101)=".01;1101;2101"
- SET DA=APCLRPT
- SET DIE="^APCLRPT("
- DO ^DIE
- KILL DIE,DR
- +2 KILL APCLRPT
- +3 QUIT
- +4 ;
- PRINT ; - ENTRY POINT - for print option from report template menu
- +1 ;S DIC="^APCLRPT(",DIC(0)="AEMQ",DIC("S")="I $P(^(0),U,2)=DUZ" D ^DIC K DIC
- +2 ;FORGET THE SCREEN IHS/OKCAO/POC 4/20/97
- SET DIC="^APCLRPT("
- SET DIC(0)="AEMQ"
- DO ^DIC
- KILL DIC
- +3 IF Y>0
- SET APCLRPT=+Y
- +4 IF '$TEST
- QUIT
- +5 DO START1^APCLASK(APCLRPT)
- +6 KILL APCLRPT
- +7 QUIT
- +8 ;
