iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

revision for testing RPCs

This commit is contained in:
george 2009-05-30 21:10:30 +00:00
parent e1cad5df1b
commit 88ec0eec76
2 changed files with 99263 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0CCCR.m
View File

@ -80,7 +80,7 @@ CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART) ;RPC ENTRY POINT FOR CCR OUTPUT
S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
I '$D(CCRPARMS) S CCRPARMS="" I '$D(CCRPARMS) S CCRPARMS=""
I '$D(CCRPART) S CCRPART="CCR" I '$D(CCRPART) S CCRPART="CCR"
I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"CALL",DFN,CCRPARMS,CCRPART)="" I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"CALL",DFN)=""
D SET^C0CPARMS(CCRPARMS) ;SET PARAMETERS WITH CCRPARMS AS OVERRIDES D SET^C0CPARMS(CCRPARMS) ;SET PARAMETERS WITH CCRPARMS AS OVERRIDES
I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
I '$D(TESTALERT) S TESTALERT=1 ; FLAG FOR TESTING ALERTS SECTION I '$D(TESTALERT) S TESTALERT=1 ; FLAG FOR TESTING ALERTS SECTION

99262
p/C0C_1_0_0_T10.KID Normal file
View File

File diff suppressed because it is too large Load Diff